Вопрос № 55680: Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как :
а) Запустить из своего приложения другое
б) Проверить, запустилось ли то приложение
в) Закрыть то приложение
Заранее благодарен...
Вопрос № 55.680
Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как :
а) Запустить из своего приложения другое
б) Проверить, запустилось ли то приложение
в) Закрыть то приложение
Заранее благодарен
if not CreateProcess(nil,
'Notepad.exe', { указатель командной строки }
nil, { указатель на процесс атрибутов безопасности }
nil, { указатель на поток атрибутов безопасности }
false, { флаг родительского обработчика }
CREATE_NEW_CONSOLE or { флаг создания }
NORMAL_PRIORITY_CLASS,
nil, { указатель на новую среду процесса }
nil, { указатель на имя текущей директории }
StartupInfo, { указатель на STARTUPINFO }
ProcessInfo) then Result := -1 { указатель на PROCESS_INF }
else
while WaitforSingleObject(ProcInfo.hProcess,200)=WAIT_TIMEOUT do
begin
GetExitCodeProcess(ProcInfo.hProcess,Result);
Repaint;
end;
end;
end;
Заранее прошу прощение за не точности, т.к. под рукой нет установленной Delphi ... в справочной системе подробно все расписано.
Ответ отправил: CjJoker (статус: 1-ый класс)
Ответ отправлен: 17.09.2006, 09:29 Оценка за ответ: 4
