Перезапуск Total Commander

Материал из TCKB 2.0

Перейти к: навигация, поиск
Q: Нужен скрипт, который бы перезапускал запущенную копию TC (полезно при отладке плагинов).
A: Этот скрипт написал Volniy, и он идёт в качестве примера к Script Helper:


Option Explicit
Dim TCS, WshShell, TCexe, Timeout, QuitByTimeOut
Set TCS = CreateObject("TCScript.Helper")
Set WshShell = WScript.CreateObject("WScript.Shell")
TCexe = """" & TCS.TCPath & "\totalcmd.exe"""
'Завершаем работу ТС
TCS.SendCommand "cm_Exit", True
 
'Ожидание завершения работы ТС
Timeout = 3000 ' Сколько ждать выключения в мсек
Do
Timeout = Timeout - 100
If Timeout < 0 Then QuitByTimeOut = True: Exit Do
WScript.Sleep 100
Loop While TCS.IsRunningTC
 
'Запускаем новый экземпляр программы
If Not QuitByTimeOut Then WshShell.Run TCexe
 
Set TCS = Nothing
Set WshShell = Nothing
WScript.Quit


По ответам форума http://forum.wincmd.ru

Личные инструменты
Реклама