Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

что не так?   Найти похожие ветки 

← →
thoth ©   (2004-10-01 12:52) [0]

Хочу использовать функцию:
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;

Но при компиляции выдает сообщение:  Undeclared identifier: "GetModuleUsage"

Что я забыл?

---

← →
MBo ©   (2004-10-01 13:08) [1]

Используй лучше CreateProcess, пример есть в FAQ

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.058 c