Ожидание завершения

[DrBAXA]

Есть вот такой код

  Proc:=CreateProcess(PWideChar(self.AModemDev[N].ACMDPath),nil,nil,nil,true,NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo);
  WaitforSingleObject(ProcessInfo.hProcess, INFINITE);

Есть несколько потоков с таким кодом.
Все красиво работаєт но при виключенний проги нужно долго ждать завершения всех потоков. Прога которая здесь запускаєтся может успешно и сама доработать.
Можно ли как то прервать ето ожидание при закритии моєй програми???

[Stilet]

Есть несколько потоков с таким кодом.

Тоесть? Если они и правда в потоке то ожидания в главном потоке быть не должно.

[DrBAXA]

Сообщение от Stilet

Тоесть? Если они и правда в потоке то ожидания в главном потоке быть не должно.

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

[Stilet]

в главном потоке ожидания и нет. Оно появляетса когда закриваеш прогу

А прогу ты закрываешь именно из главного потока.
При закрытии останавливай все потоки функой TerminateThread().

[DrBAXA]

Сообщение от Stilet

А прогу ты закрываешь именно из главного потока.
При закрытии останавливай все потоки функой TerminateThread().

Да прогу закриваю с главного потока.
А остальние потоки Potok_1.Terminate;
Но прога все равно ожидает.
Есть разница между

PHP код:

Potok_1.Terminate 


и

PHP код:

TerminateThread() 


[DrBAXA]

К стати а главний поток ожидае завершения потока при Potok_1.Terminate если ето обрабативается в цикле, или переходит к следующему сразу?

[Delphi_ProGer]

Есть разница между
PHP код:
Potok_1.Terminate
и
PHP код:
TerminateThread()

Конечно, что есть
В первым случаи присваиваеться полю значение Terminated:=True; Поток при этом не остановиться.
TerminateThread же остановить поток по дескриптору потока, который вы укажете в параметре(Handle).

[DrBAXA]

Когда я так(TerminateThread ) убю поток, дание класа останутса? И можно ли будет снова ево запустить?

[Delphi_ProGer]

Сообщение от DrBAXA

Когда я так(TerminateThread ) убю поток, дание класа останутса? И можно ли будет снова ево запустить?

Да, останутся, будет утечка памяти. Лучше тогда Terminated:=True. Но вы сами должны проверять значение Terminated и сами освобождать обьекты.