Мне надо обработать следующую ситуацию:
аварийно закрыть приложение, когда
запущены дочернии потоки и эти потоки
не отвечают. Типа такого :

код Pascal/Delphi

1: 2: 3: 4: 5: 6: procedure TMyThread.Execute; begin   while true do begin     //do nothing...   end; end;

.

Я думал что при закрытии приложения ОС сама должна с
этими потоками как-то разобраться, но на самом деле приложение
подвисает - т.е. не может завершиться пока
есть дочерние активные потоки.

Как правильно обработать ситуацию? т.е., повторюсь,
мне надо не ждать нормального завершение потока,
а "убить" зависшие потоки. Как это правильно делают?

Заранее спасибо.

код Pascal/Delphi

1: 2: 3: 4: procedure TMyThread.Execute; begin  while not Terminated do //...

Это сообщение отредактировал(а) Girder - 20.6.2005, 23:03

Цитата

мне надо не ждать нормального завершение потока, а "убить" зависшие потоки.

Если нужно немедленно завершить поток, используй функцию TerminateThread.

to Girder
в том то и дело что у меня код может
зациклится т.е. while true do

while not Terminated do мне не подходит

------

to Poseidon
пробовал, не помогает.
TerminateThread(MyThread.ThreadID, 0) возвращает false
а выполнение продолжается

Я так?

код Pascal/Delphi

1: TerminateThread(MyThread.ThreadID, 0):=True

Должно завершить поток немедленно (не тестировалось )

Цитата

TerminateThread(MyThread.ThreadID, 0)

Вместо ThreadID надо Handle...

Точно!
Заработало.
Спасибо.