Imao sam isti problem, uglavnom kada pravim programe koje se trpaju u tray. Al' naleteo ja na ovo:
Code:
type
TForm1 = class(TForm)
private
//--> procedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;
public
end;
implementation
{$R *.DFM}
procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
Msg.Result := 1;
end;
A man is smart. People are stupid.