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 win7下超级管理员创建普通权限任务

Delphi tidhttp 登录网页封装

Delphi中txmldocument控件的用法

Delphi 控制台程序获取系统信息

Delphi xe2模拟键盘按键

Delphi unicode转汉字 ，支持自动过滤非 unicode编码

Delphi中url的编码与解码，即urlencode的使用

Delphi示例代码 android，ios，osx，windows，linux，html5

Delphi 获取系统当前活动窗口的句柄及对应的进程名

获取网络日期

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

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