что не так? [D7, Win2k, WinXP]
thoth © (2004-10-01 12:52:00)
Хочу использовать функцию:
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:00) [1]
Используй лучше CreateProcess, пример есть в FAQ
Наверх 
ЧАТ |
Орешник |
|
