Wie beende ich mein Programm/Thread richtig ?

**PattyPur**

Ich hab da mal was ausprobiert :

Code:

			program threadApp; 

uses 

  classes; 

type 

  TCheckThread = class(TThread) 

  protected 

    procedure Execute; override; 

  end; 

{$R *.res} 

var 

  CheckThread : Tcheckthread; 

Procedure TCheckThread.execute; 

var 

    found:boolean; 

    i:integer; 

begin 

  while not terminated do begin 

    //.... hier passiert halt was ! 

  end; 

end; 

begin 

  Checkthread:=Tcheckthread.Create(false); 

  Checkthread.Execute; 

end.

Das programm läuft wenn es gestartet wurde einfach weiter und weiter und weiter... - Soll es auch nur wenn windows runtergefahren wird kann dieses Programm nicht von Windows beendet werden und ich kann nur mit Task->beenden mein programm schliessen.

Wie reagiere ich da richtig auf Die anweisung von Windows ?
also ich weiss das ich irgendwie eine art onClose - Event benötige in dem ich auch sage

markieren

Code:

Checkthread.terminate;

zuerst hatte ich mein Programm in verbindung mit einer TForm (standard Anwendung halt) und hab das onClose event der Form benutzt um meinen thread zu terminieren - nur da ich die Form für sonst nix brauche will ich auch ohne sie auskommen.

Wie beende ich mein Programm/Thread richtig ?

Wie beende ich mein Programm/Thread richtig ?

Forumregeln