Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как запустить приложение и подождать пока оно отработает 3

Здесь представлена функция, которая вызывается таким же образом как и 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS