Блог программистов



F.A.Q.Pblog

1й год Форума программистов 2006-2007

Function WinExecAndWait

Нашел функцию которая ждет пока работа программы не закончится. Только вод код компилироваться не хочет...

************************************************** *******
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; // Und eclared identifier 'GetModuleUsage'
WinExecAndWait := 0;
end;
************************************************** ******************************************

В чем тут дело, понять не могу..... Помогите


Просмотр ответов:
http://programmersforum.ru/showthread.php?t=1599

Posted in Общие вопросы Delphi by Alar



Другие вопросы:
Поворот маленького примитива на канве
Как вызвать справку в приложении
Рисование на Delphi, компонент paintbox
Печать изображения
Определить из своего приложения - запущена программа или нет



<<<Назад    Вперёд>>>