Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: IdIrc10 Prog soll sich selbst beenden
26. Mär 2012, 17:22
Schick Deiner Anwendung per PostMessage die Anforderung zum Beenden, damit bist Du aus der Threadprozedur raus wenn die Anwendung abgeräumt wird.
Delphi-Quellcode:
const
KillMessage = WM_USER + 200;
.......
procedure Kill( var Msg: TMessage); message KillMessage;
......
Procedure TForm1.Killapp;
begin
PostMessage( Handle,KillMessage,0,0) ;
end;
procedure TForm1.Kill( var Msg: TMessage);
begin
ConnectionTimer.Enabled := false;
irc1.Disconnect;
irc1.Free;
ssl1.Free;
Application.Terminate;
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi (26. Mär 2012 um 17:26 Uhr)
|