процессы

← →
md (2003-10-29 13:32) [0]

как сделать так, чтобы прога ждала пока закончит работу её копия (уже работающая). если можно - пример.

← →
panov © (2003-10-29 13:44) [1]

http://delphimaster.net/view/1-1067249880/

← →
Digitman © (2003-10-29 13:46) [2]

var
hProcess: THandle;
...
hProcess := CreateProcess(.. такой-то ...);
Win32Chech(hProcess <> 0);
while True do
case MsgWaitForMultipleObjects(1, hProcess, False, INFINITE, QS_ALLINPUT) of
WAIT_OBJECT_0:
begin
CloseHandle(hProcess);
Break;
end;
WAIT_OBJECT_0 + 1:
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
end;

← →
panov © (2003-10-29 14:23) [3]

> panov

а я почем знаю, кто ее запускал ?
пример - в предположении, что копия запушена оригиналом

процессы Найти похожие ветки