Zitat:
Ergebnis: Die Threads stehen wie eine eins und das Programm ist in einer Endlosschleife.
Macht mit Sleep keinen Sinn.
Damit hälst du doch nur alle Threads an und das Programm steht für 200 Millisekunden
Du solltest allen Threads die möglichkeit geben ihre Aktionen zu beenden.
Versuchs mal damit
Delphi-Quellcode:
procedure WinProcessMessages;
// Allow Windows to process other system messages
var
ProcMsg: TMsg;
begin
while PeekMessage(ProcMsg, 0, 0, 0, PM_REMOVE) do
begin
if (ProcMsg.message = WM_QUIT) then
Exit;
TranslateMessage(ProcMsg);
DispatchMessage(ProcMsg);
end;
end;
gruss