delphi - kończy wszystkie wątki (TThread) przy zamykaniu aplikacji

Moja aplikacja to serwer tcp / ip, z głównym wątkiem utworzonym tylko raz i cały czas nasłuchującym. Gdy łączy się nowy klient, główny wątek tworzy nowy wątekTClientThread rodzaj. Nie ma jednak listy uruchomionych wątków klienta, ponieważ spowodowałoby to, że moja aplikacja byłaby trochę skomplikowana ... czy jest jakiś sposób na wykonanie metody „zakończ” na wszystkich wątkach, nawet jeśli wątek jest zajęty (w moim przypadku „zajęty” oznacza, że ​​czeka na dane, gdzie ustawiony limit czasu wynosi około 30 sekund ... więc i tak muszę go zabić, nie czekając.)? Prosta aplikacja zamykająca wydaje się nie uruchamiać metody „zakończ” w wątkach, co kończy się wyciekami pamięci zgłaszanymi przez FastMM ...

questionAnswers(3)

yourAnswerToTheQuestion