TThread Suspend und Resume

[Mavarik]

Ich hoffe Ihr seit beide auf den Delphitage... Da gibt es einen Vortrag zu diesem Thema...

auf die Schnelle

Delphi-Quellcode:

  while not(Terminated) do
    begin
      try
        FRunning := false; // Atom

        E_Event.WaitFor(FTimeOut);

        if FCancelRequest or Terminated then
          exit;

        FRunning := true;
        // Code der ausgeführt werden soll
      except
      end;
    end;

Mavarik

PS.: Und eine alte Unit für Delphi-User ohne System.Threading oder für Threads die im nano-Sekundenbereiche starten müssen...

Einfache eine eigene Klasse davon ableiten und die abstrakten Proceduren überschreiben...