Скачать: CL | DM;

WaitForSingleObject( pi.hProcess, INFINITE )?   Найти похожие ветки 

← →
Игорь   (2004-01-20 12:01) [0]

Запускаю RunAndWait("start.bat")

procedure RunAndWait(FileName: String);
var
si:STARTUPINFO;
pi:PROCESS_INFORMATION;
begin
SetCurrentDir(ExtractFilePath(Application.ExeName));
ZeroMemory(@si,sizeof(si)); si.cb:=SizeOf(si);
si.dwFlags:=STARTF_USESHOWWINDOW; si.wShowWindow:=SW_NORMAL;
if not CreateProcess( nil, PChar(FileName), nil, nil, False, 0, nil, PChar(ExtractFilePath(Application.ExeName)), si, pi ) then begin ShowMessage( "Не смог запустить процесс - "+FileName+"!"+#13+"Не знаю, что за херня случилась:("); Exit; end;
WaitForSingleObject( pi.hProcess, INFINITE );
CloseHandle( pi.hProcess ); CloseHandle( pi.hThread );
end;

В WInXP всё проходит нормально.
В 98-х зависает на WaitForSingleObject( pi.hProcess, INFINITE );
В окне написано "Сеанс завершён", пролетает только при закрытии в ручную окна.
Как сделать, что бы процесс (запуск bat"ника) сам отрабатывал?

---

← →
Семен Сорокин ©   (2004-01-20 12:05) [1]

может вот так:
si.wShowWindow:=SW_HIDE;

---

← →
Reindeer Moss Eater ©   (2004-01-20 12:06) [2]

последней командой в bat файле поставить cls

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c