Wie Procedure abbrechen

[sniper_w]

Delphi-Quellcode:

var
  Form1: TForm1;
  ThreadId : cardinal;
  T_ID : integer;

implementation

procedure Proc();
begin
// Berechnungen....
end;

//...
procedure TForm1.FormCreate(Sender: TObject); // Zum Beispiel...
begin
//...
TID := BeginThread(nil,0,@Proc,nil,0,ThreadID);
//....
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TerminateThread(TId,0);// Thead "BRUTAL" beenden  :)
end;