我的托盘程序让系统无法关机!·!··#·!#·!##·¥
我的托盘程序导致系统无法关机,我在WndProc(var Message:TMessage) 中捕捉到WM_QUERYENDSESSION消息,可是程序处理完该消息后,系统仍然无法关机,下面是我的代码,请高人指教
procedure TfrmMain.WndProc(var Message:TMessage);
begin
if not (message.Msg=last) then
begin
if message.Msg in [WM_QUERYENDSESSION,WM_ENDSESSION] then
begin
message.Result:=1;
frmMain.Close;
SendMessage(HWND_BROADCAST, WM_QUERYENDSESSION, 0, 0);
end;
last:=message.Msg;
end;
inherited WndProc(Message);
end;