Последовательный запуск приложений

← →
denimy (2003-12-25 18:54) [0]

Подскажите, плз. Пишу инсталлятор ( на дельфе ). Проблема, надо в ходе инсталляции запускать ряд приложений, причём, запускать хотелось бы последовательно, т.е. одно установилось, запускаем на установку другое. Проблема: как узнать установилось ли приложение. Например, в ходе инсталляции программы надо установить ( Framework, DirectX, и д.р ). Запускаем framework через ShellExecute(.....), получаю из неё "return value is the instance handle of the application that was run", что можно зделать? Как, например, по handle, отследить завершение программы?

← →
Юрий Зотов © (2003-12-25 19:21) [1]

var
SI: TStartupInfo;
PI: TProcessInformation;
begin
ZeroMemory(@SI, SizeOf(SI));
SI.cb := SizeOf(SI);
if CreateProcess(nil, "...", nil, nil, False, 0, nil, nil, SI, PI) then
begin
CloseHandle(PI.hThread);
WaitForSingleObject(PI.hProcess, INFINITE);
CloseHandle(PI.hProcess);
... // Здесь запущенная программа уже точно завершилась
end
end;

Последовательный запуск приложений Найти похожие ветки