mehrere Threads sauber beenden

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

zusammenfalten · markieren

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

mehrere Threads sauber beenden

AW: mehrere Threads sauber beenden

Forumregeln