Delphi編程禁止用戶關(guān)閉操作系統(tǒng)，本實例介紹在程序運行的過程中禁止用戶關(guān)閉操作系統(tǒng)。

公司主營業(yè)務：成都做網(wǎng)站、網(wǎng)站建設、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)推出云霄免費做網(wǎng)站回饋大家。

　　用戶是否可以關(guān)閉操作系統(tǒng)是通過對WM_QueryEndSession的處理來實現(xiàn)的，為此首先需要在程序中添加WM_QueryEndSession消息處理的聲明：

 
 
 

  
  
  
procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;  
 
 
 

　　它的響應代碼如下：

 
 
 

  
  
  
procedure TForm1.QueryEndSession(var Msg:TMessage);  
  
  
  
begin  
  
  
  
　Msg.Result:=0;  
  
  
  
end;   
 
 
 

　　當用戶關(guān)閉操作系統(tǒng)時，操作系統(tǒng)會發(fā)布一個WM_QueryEndSession消息，這時就會激活本實例程序中的QueryEndSession過程，程序通過設置消息的返回值為0，就會禁止用戶關(guān)閉操作系統(tǒng)，反之如果設置消息的返回值為1，就會允許用戶關(guān)閉操作系統(tǒng)。

　　程序代碼如下：

 
 
 

  
  
  
unit Unit1;  
  
  
  
interface 
  
  
  
uses  
  
  
  
 
  
  
  
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  
  
  
 
  
  
  
Dialogs;  
  
  
  
 
  
  
  
type  
  
  
  
　TForm1 = class(TForm)  
  
  
  
private 
  
  
  
　{ Private declarations }  
  
  
  
　procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;  
  
  
  
　public 
  
  
  
　　{ Public declarations }  
  
  
  
　end;  
  
  
  
 
  
  
  
var  
  
  
  
　Form1: TForm1;  
  
  
  
　implementation  
  
  
  
　{$R *.dfm}  
  
  
  
　procedure TForm1.QueryEndSession(var Msg:TMessage);  
  
  
  
begin  
  
  
  
　Msg.Result:=0;  
  
  
  
end;  
  
  
  
end.  
 
 
 

　　保存文件，然后按F9鍵運行程序。只要本程序在正常運行，用戶就無法關(guān)閉操作系統(tǒng)。

　　在工程實際中，經(jīng)常需要使應用程序不間斷地運行，為了防止意外因素關(guān)閉操作系統(tǒng)，可以使用本實例介紹的方法。

名稱欄目：Delphi編程禁止用戶關(guān)閉操作系統(tǒng)
文章鏈接：http://uogjgqi.cn/article/dpdddsg.html