Текущий архив: 2004.05.30;
Скачать: CL | DM;
Вниз
Как дождаться завершения выполнения команды? Найти похожие ветки
← →
fag2000 (2004-05-07 13:13) [0]Вот пример кода, извените, что на VB, который вроде нормально дожидается завершения исполняемых файлов. А вот если ему подсунуть например vbs, то он SEI.hProcess возвращает 0 и соответственно ничего не дожидается. Не подскажите как с этим бороться?
Dim lExecResult As Long
Dim SEI As SHELLEXECUTEINFO
If bSyncr Then
With SEI
.cbSize = Len(SEI)
.fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
.hwnd = 0
.lpVerb = "open"
.lpFile = FilePath
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
lExecResult = ShellExecuteEX(SEI)
lExecResult = WaitForSingleObject(SEI.hProcess, INFINITE)
lExecResult = CloseHandle(SEI.hProcess)
← →
Digitman © (2004-05-07 13:19) [1]
> подсунуть например vbs
чего-чего "подсунуть" ? кому "подсунуть" ? что есть вообще "подсунуть" ? что есть vbs ?
← →
Sergey_Masloff (2004-05-07 13:43) [2]Digitman © (07.05.04 13:19) [1]
Подсунуть файл со скриптом. Для Windows Script Host например. vbs это видимо имеется в виду файл VisualBasicScript.
fag2000
Фиг знает. Надо подумать. Но не твоим способом - тут ты ждешь завершения процесса а со скриптом все не так...
← →
blackman © (2004-05-07 15:53) [3]Просто не торопись :)
← →
fag2000 (2004-05-11 14:48) [4]??
← →
fag2000 (2004-05-11 19:30) [5]??
Страницы: 1 вся ветка
Текущий архив: 2004.05.30;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.03 c
