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;

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

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