Как запустить приложение и подождать пока оно отработает 7Delphi , Программа и Интерфейс , Приложения чужиеКак запустить приложение и подождать пока оно отработает 7
Автор: RhinoFC { **** UBPFD *********** by delphibase.endimus.com **** >> Запуск программы и ожидание ее завершения. Функция запускает внешнюю программу, заданную параметром Path, и ждет ее завершения. Во время выполнения внешней программы, текущее приложение скрывается ( т.к. не может перерисовать главное окно, что некрасиво), поэтому фактически происходит переключение с текущей программы на внешнюю и, после завершения внешней программы, обратно. В качестве внешней программы может выступать любой выполняемый файл (EXE, COM, BAT, SCR). Зависимости: Windows, Forms Автор: Евгений Валяев (RhinoFC), rhinofc@sniiggims.ru, ICQ:55263922, Новосибирск Copyright: RhinoFC Дата: 5 июня 2002 г. ***************************************************** } function SwitchToProg(const Path: string): Boolean; var SI: TStartupInfo; PI: TProcessInformation; ExitCode: Cardinal; begin FillChar(SI, SizeOf(SI), 0); SI.cb := SizeOf(SI); Result := CreateProcess(nil, PChar(Path), nil, nil, False, 0, nil, nil, SI, PI); if Result then begin Application.MainForm.Hide; while GetExitCodeProcess(PI.hProcess, ExitCode) and (ExitCode = STILL_ACTIVE) do ; // ждем завершения, пустой цикл Application.MainForm.Show; end; end; Статья Как запустить приложение и подождать пока оно отработает 7 раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Приложения чужие ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |