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

Вниз

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

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

>Digitman © (29.10.03 13:46) [2]

Обрати внимание - в вопросе - копия (уже работающая). -)

---

← →
Digitman ©   (2003-10-29 14:41) [4]

> panov


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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.023 c