日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

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

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

 
 
 

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

　　它的響應(yīng)代碼如下：

 
 
 

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

　　當(dāng)用戶關(guān)閉操作系統(tǒng)時(shí)，操作系統(tǒng)會(huì)發(fā)布一個(gè)WM_QueryEndSession消息，這時(shí)就會(huì)激活本實(shí)例程序中的QueryEndSession過(guò)程，程序通過(guò)設(shè)置消息的返回值為0，就會(huì)禁止用戶關(guān)閉操作系統(tǒng)，反之如果設(shè)置消息的返回值為1，就會(huì)允許用戶關(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鍵運(yùn)行程序。只要本程序在正常運(yùn)行，用戶就無(wú)法關(guān)閉操作系統(tǒng)。

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

本文標(biāo)題：Delphi編程禁止用戶關(guān)閉操作系統(tǒng)
URL地址：http://www.5511xx.com/article/dpdddsg.html