明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

防范關(guān)閉windows

[摘要]有時(shí)候程序在運(yùn)行當(dāng)中,不允許別的程序或人為的關(guān)閉計(jì)算機(jī),除非應(yīng)用程序知道windows將要退出,其實(shí)這樣很簡單,我們都知道系統(tǒng)將要關(guān)閉時(shí),會(huì)向每一個(gè)程序發(fā)送WM_QUERYENDSESSION這條關(guān)機(jī)消息,只要我們的程序接受到此消息后,做恰當(dāng)?shù)奶幚砑纯掏瓿晌覀兯枰摹? 處理windows消...
    有時(shí)候程序在運(yùn)行當(dāng)中,不允許別的程序或人為的關(guān)閉計(jì)算機(jī),除非應(yīng)用程序知道windows將要退出,其實(shí)這樣很簡單,我們都知道系統(tǒng)將要關(guān)閉時(shí),會(huì)向每一個(gè)程序發(fā)送WM_QUERYENDSESSION這條關(guān)機(jī)消息,只要我們的程序接受到此消息后,做恰當(dāng)?shù)奶幚砑纯掏瓿晌覀兯枰摹?br>

    處理windows消息有好幾種,在這里我們利用Application的OnMessage事件,建立響應(yīng)該事件的過程即可!如下面的例子:
unit unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    procedure AppMessageHandler(var Msg:TMsg; var Handled:Boolean);//聲明系統(tǒng)處理消息過程,響應(yīng)Application的OnMessage事件的過程必須為TMessageEvent類型;
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AppMessageHandler(var Msg:TMsg; var Handled:Boolean);
begin
    if Msg.message=WM_QueryEndSession then//如果收到的消息為關(guān)閉計(jì)算機(jī)的消息時(shí),進(jìn)行特別處理,因?yàn)橹皇且粋(gè)例子,我只寫出彈出對(duì)話框,大家可以根據(jù)自己程序的需要進(jìn)行響應(yīng)的處理;
       begin
         if messagedlg('shutdown?',mtconfirmation,mbyesnocancel,0)= mryes then
            Handled:=true
         else
            Handled:=false;
       end;
end;
end.
最后在程序的DPR文件中,創(chuàng)建窗體之后但在調(diào)用Application.Run前加入
Application.OnMessage:=Form1.AppMessageHandler;即可!


標(biāo)簽:防范關(guān)閉windows