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修改默认打印机

Delphi abort 用法

Delphi stringgrid 加载excel表格文件内容自动宽度

Delphi读取utf8格式ini及取得动态�热�

Delphi 自带单元字符md5加密

Delphi olevariant excel保存文件

Delphi winapi: getwindowrect、getclientrect - 获取窗口的外部与内部矩形

Delphi 怎样判断spinedit在微调时值是增加还是减少了

Delphi编写涂鸦桌面的小程序

Delphi idhttp解决获取utf-8网页中文乱码问题

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

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