Wanneer ik gebruik maak van NLDTrayIcon wil Windows (XP) niet meer afsluiten. Het lijkt wel dat hij de message ontvangt maar niet door geeft.
Ik gebruik de volgende code om de WM_ENDSESSION of WM_QUERYENDSESSION message afvangen:
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, OleCtrls;
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMQueryEndSession;
begin
Msg.Result := Integer(True);
end;
end.
Doe ik nu iets fout of ben ik nog iets vergeten.
Groetjes Greta
Bookmarks