Скачать: CL | DM;

Как убивать поток по истечению какогото времени после его старта   Найти похожие ветки 

← →
noname:))   (2005-03-09 17:37) [0]

Создаётся много потоков(поток выполняет пинг и если он удачен то
ищет розшареные папки). Как убить все потоки по нажатию кнопки например?
И ещё. Как убивать поток по истечению какогото времени после его старта.
procedure tr.Execute;
..var z:integer;
begin
inherited;
WaitForSingleObject(Semaphore, INFINITE);
inc(flag);
//z:=GetTickCount();//?????????
scan(hhh,sport,sname,sshare); // Например после запуска этой процедуры
//ждать 10 секунд а потом убить поток если он ещё не завершон
if terminated then exit;
//if GetTickCount() = z + 2000 then begin terminate; end;
ReleaseSemaphore(Semaphore, 1, NIL);
dec(flag);
if flag = 0 then  begin
Form1.StatusBar1.Panels.Items[0].Text := "Сканирование завершено!!!:)";
end;
synchronize(update);
end;
И ещё:))) Есть ли лучшая альтернатива Semaphore. Я слышал что критические
секци но как ими использовать незнаю...
Зарание спасибо!

---

← →
Fay ©   (2005-03-09 18:19) [1]

Events

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c