Вопрос № 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
Отправить вопрос экспертам этой рассылки
Приложение (если необходимо):
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
