delphi 禁止关机的代码

本文整理自网络，侵删。

 unit Unit1;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;


Private
type
　TForm1 = class(TForm)

prvate declarations }
　procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;
　public
　　{ Public declarations }
　end;
　　{ www.delphitop.com}
var
　Form1: TForm1;
　implementation
　{$R *.dfm}
　procedure TForm1.QueryEndSession(var Msg:TMessage);
begin
　Msg.Result:=0;
end;
end. 

相关阅读 >>

Delphi中emptyparam参数被改写问题

Delphi extractfileext() 获取文件后缀的函数

Delphi 取得某一天所在的星期一及星期天

Delphi 系统服务运行桌面用户指定程序

Delphi xe2 硬盘序列号

Delphi中实现变长函数笔记

Delphi 如何检查字符串是否为数字

Delphi取得网页源码内容

Delphi 快速读取txt 指定行的数据

Delphi 制作放两个小图片的按钮

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 禁止关机的代码