Запуск программы с ожиданием - API - Не стандартные примеры на Delphi - Каталог статей

Приведу код функции, вызываемой также, как и WinExec, но ожидающую заваршения вызванного приложения. Единственное различие - при успешном выполнении функция возвращает ноль.

function WinExecAndWait(Path: PChar; Visibility: Word): Word;

var

InstanceID: THandle;

Msg: TMsg;

begin

InstanceID := WinExec(Path, Visibility);

if InstanceID < 32 then { значение меньшее чем 32 указывает на ошибку запуска }

WinExecAndWait := InstanceID

else

repeat

while PeekMessage(Msg, 0, 0, 0, pm_Remove) do

begin

if Msg.Message = wm_Quit then Halt(Msg.WParam);

TranslateMessage(Msg);

DispatchMessage(Msg);

end;

until GetModuleUsage(InstanceID) = 0;

WinExecAndWait := 0;

end;

Категория: API | Добавил: DelphiAiX (28.04.2012)

Просмотров: 682 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума