Как убивать поток по истечению какогото времени после его старта [D7, WinXP]
noname:)) © (2005-03-09 17:37:00)
Создаётся много потоков(поток выполняет пинг и если он удачен
то
ищет розшареные папки). Как убить все потоки по нажатию
кнопки например?
И ещё. Как убивать поток по истечению какогото времени после
его старта.
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:00) [1]
Events
Наверх 
ЧАТ |
Орешник |
|
