Thread abschießen bei Programmende?

[Wishmaster]

hi.

try it this way

Delphi-Quellcode:

var ThreadID    : Cardinal = 0;


procedure Destroy_Thread(var Thread : TThread);
var
  ForceTerminate : Boolean;
begin
 if not Assigned(Thread) then
  exit;

 if not Thread.Suspended then
  ForceTerminate := True
 else
  ForceTerminate := False;

  Thread.Terminate;
//  Thread.Resume; //deprecated
  Thread.WaitFor;                        
 if ForceTerminate then
  TerminateThread(Thread.Handle, ThreadID);
  FreeAndNil(Thread);
end;