delphi自定义消息实现windows关机前的处理

  tform1   =   class(TForm)  
  private  
      procedure   ENDSESSION(var   Msg:   TMessage);   message   WM_QUERYENDSESSION;  
  end;  
   
  procedure   TFOrm1.EndSession；　　
  begin  
      if   MessageBox(Handle,   '关机命令来了，关不关程序？',   '确定',   MB_YESNO)   =   IDYES   then  
          msg.Result   :=   1  
      else  
          msg.Result   :=   0;  
  end;  

作者：邬畏畏