что не так?

← →
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

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