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

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

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