我想问问，如何在windows关机之前截获消息（先不关）然后运行我的软件，然后再发出消息，关机

非常感谢，各位大虾的鼎立支持 问题点数：100、回复次数：8Top

1 楼yuFei（雨飞）回复于 2001-08-29 21:59:57 得分 0

procedure   LkWinIsClose(var   message   :   TMessage);   message   WM_QUERYENDSESSION;  
   
  procedure   TMainForm.LkWinIsClose(var   message:   Tmessage);  
  begin  
      if   MessageDlg('看明白了没?'+#13+'     请关闭！',  
              mtCustom,[mbYes],0)   =   mryes   then  
                Message.WParam   :=   1;  
  end;  
  Top

2 楼yuFei（雨飞）回复于 2001-08-29 22:01:30 得分 60

别忘了"声明message"Top

3 楼lonelybug（孤独虫子）回复于 2001-08-29 22:48:42 得分 0

可能是我太笨了，谢谢你雨飞兄，能不能说明白一点，我想知道procedure   LkWinIsClose(var   message   :   TMessage);   message   WM_QUERYENDSESSION;这个写载那里，还有LkWinIsClose这个时什麽，还有，message声明怎麽座呀！谢谢！Top

4 楼amei2000go（浪子）回复于 2001-08-29 22:55:50 得分 10

把procedure   LkWinIsClose(var   message   :   TMessage);   message   WM_QUERYENDSESSION;  
  声明在窗体的类声明中  
  把procedure   TMainForm.LkWinIsClose(var   message:   Tmessage);  
  写在implementation下面  
   
  Top

5 楼lonelybug（孤独虫子）回复于 2001-08-29 23:00:37 得分 0

写是写了，运行也没有问题，可是关不了机呀！Top

6 楼lonelybug（孤独虫子）回复于 2001-08-29 23:03:31 得分 0

可以运行了，可是我点了是之后，不能关机呀！Top

7 楼Raptor（猛禽）回复于 2001-08-29 23:40:43 得分 30

Message.WParam   :=   1;  
  一句应该为  
  Message.Result   :=   1;Top

8 楼lonelybug（孤独虫子）回复于 2001-09-02 11:49:54 得分 0

我想知道的是只在关机时才起作用，而这个方法连从新启动也有反应，怎麽班！Top

相关问题

• lkwinisclose
• 关机
• tmessage
• 运行
• queryendsession
• message
• procedure
• wm
• 声明
• var

• 帖主：lonelybug
• yuFei
• amei2000go
• Raptor

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载