Total Commander (Часть 8) - [2918] :: Программы :: Компьютерный форум Ru.Board

Код:

#NoTrayIcon
Global $title

Select
Case $CmdLine[0] = 2
If ProcessExists("TOTALCMD64.EXE") Then
$title = _Process2Win("TOTALCMD64.EXE")
WinClose($title)
Run(@ScriptDir & '\TOTALCMD.EXE /L="' & $CmdLine[1] & '"' & ' /R="' & $CmdLine[2] & '"')
ElseIf ProcessExists("TOTALCMD.EXE") Then
$title = _Process2Win("TOTALCMD.EXE")
WinClose($title)
Run(@ScriptDir & '\TOTALCMD64.EXE /L="' & $CmdLine[1] & '"' & ' /R="' & $CmdLine[2] & '"')
EndIf
Case Else
If ProcessExists("TOTALCMD64.EXE") Then
$title = _Process2Win("TOTALCMD64.EXE")
WinClose($title)
Run(@ScriptDir & '\TOTALCMD.EXE')
ElseIf ProcessExists("TOTALCMD.EXE") Then
$title = _Process2Win("TOTALCMD.EXE")
WinClose($title)
Run(@ScriptDir & '\TOTALCMD64.EXE')
EndIf
EndSelect

Func _Process2Win($pid)
If IsString($pid) Then $pid = ProcessExists($pid)
If $pid = 0 Then Return -1
$list = WinList()
For $i = 1 To $list[0][0]
If $list[$i][0] <> "" AND BitAnd(WinGetState($list[$i][1]),2) Then
$wpid = WinGetProcess($list[$i][0])
If $wpid = $pid Then Return $list[$i][0]
EndIf
Next
Return -1
EndFunc

Модерирует : gyra, Maz
articlebot (20-03-2016 21:01): Обсуждение продолжается в части 9	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению