Thread abschießen bei Programmende?

Thema durchsuchen

Ansicht

Themen-Optionen

Thread abschießen bei Programmende?

Ein Thema von HJay · begonnen am 21. Dez 2012 · letzter Beitrag vom 27. Dez 2012

Vorheriger Beitrag

Nächster Beitrag

Wishmaster

Registriert seit: 14. Sep 2002
Ort: Steinbach, MB, Canada
301 Beiträge

Delphi XE2 Architect

AW: Thread abschießen bei Programmende?

22. Dez 2012, 10:47

hi.

try it this way

zusammenfalten · markieren

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;