Советы по Delphi

       

Запуск программы с ожиданием


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

function WinExecAndWait(Path: PChar; Visibility: Word): Word;varInstanceID: THandle;Msg: TMsg;beginInstanceID := WinExec(Path, Visibility);if InstanceID < 32 then { значение меньшее чем 32 указывает на ошибку запуска }WinExecAndWait := InstanceIDelserepeatwhile PeekMessage(Msg, 0, 0, 0, pm_Remove) dobeginif Msg.Message = wm_Quit then Halt(Msg.WParam);TranslateMessage(Msg);DispatchMessage(Msg);end;until GetModuleUsage(InstanceID) = 0;WinExecAndWait := 0;end;
[000352]



Содержание раздела