防范關(guān)閉windows
發(fā)表時(shí)間:2024-02-20 來源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]有時(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;即可!