在关闭WINDOWS时，出现的对话框“关闭程序”，在程序中怎检测到？因为一出现这个对话框，程序就暂停运行了

Question

不是什么权限!!!是HOOK技术!!!多学学HOOK吧

Answer 1

我用一时间控件
procedure TForm1.Timer1Timer(Sender: TObject);
Var
wh:Integer;
begin
edit2.text:=inttostr(strtoint(edit2.text)+1);
wh:=0;
 wh:=FindWindow(nil, '关闭程序');
if wh<>0 then
 edit1.text:='关闭程序';end;结果一按下“CTRL+ALT+DEL”三键出现“关闭程序”窗口，edit2.text就不会累加了，即程序运行暂停，所以下面的检测就不起作用啦！！

Answer 2

//截获关机事件
procedure Tserverfrm.WndProc(var Message: TMessage);
begin
  if (Message.Msg =  WM_QueryEndSession) then
  begin
    Message.Result := 1;
  end
  else if Message.Msg = WM_EndSession then
  begin
    serverfrm.Close;
  end
  else
    inherited WndProc(Message);
end;

Answer 3

呵呵。。多学学WINDOWS消息吧。学会了全懂了。