自己设置的开机启动 关机提示程序
来源:互联网 发布:淘宝的积分 编辑:程序博客网 时间:2024/05/09 21:50
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Registry;
type
TForm3 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure QueryEndSession(var Msg:TMessage);
Message WM_QueryEndSession;
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
i:Integer;
implementation
{$R *.dfm}
procedure TForm3.QueryEndSession(var Msg: TMessage);
var j:Integer;
begin
j:=1;
if j<>i then
begin
Form3.Visible:=true;
Memo1.ScrollBars:=ssBoth;
Memo1.Lines.LoadFromFile('d:/e.txt');
Msg.Result:=0;
end
else
Msg.Result:=1;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Hide;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
i:=1;
WinExec('shutdown -s -t 0', sw_Show);
end;
procedure TForm3.FormCreate(Sender: TObject);
var
reg:TRegistry;
{
var
hToken:THandle;
Tkp:TTokenPrivileges;
zero:DWORD;
}
begin
{ OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
Tkp.PrivilegeCount :=1;
Tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken,False,Tkp,SizeOf(TTokenPrivileges),nil,Zero);
}
i:=0;
Memo1.Lines.LoadFromFile('d:/d.txt');
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',true);
reg.WriteString('信息','C:/Documents and Settings/Administrator/My Documents/RAD Studio/Projects/yitutong.exe');
reg.CloseKey;
reg.Free;
end;
end.
注意 此程序用一个全局变量i的值, 来判断是否需要关机
如果i的值与j不同
则不关机
如果相同
则关机
所以我们可以在另一个事件中设置全局变量i的取值,然后将它与其它事件中的局部变量做比较,来控制选择分支
=====================
^^!!! 可惜源程序找不到了 DELPHI 也就学习了那几天 无法重新编译了 看看以后还有米有心情再调试吧
- 自己设置的开机启动 关机提示程序
- MFC 把自己写的程序设置成开机启动
- 设置Win8开机启动自己的程序和脚本
- linux下设置自己的程序开机自启动
- 设置CentOS开机启动程序及定时关机
- 开机启动过程(自己程序的开机启动)
- Linux开机启动自己的程序
- 设置程序开机启动
- 如何给自己编写的程序隐蔽的设置开机启动
- 在 win10 环境下,设置自己写的 程序 开机自动 启动的方法
- 在tiny6410开发板上运行自己的qt4.7程序,并设置为开机启动
- 在CentOS系统下,主要有两种方法设置自己安装的程序开机启动。
- 如何设置XV6700开机启动的程序
- Android 程序开机自启动的设置
- 程序的开机关机重启,开机启动,休眠功能delphi实现
- 设置开机启动小程序
- 设置程序为开机启动
- 设置程序开机自启动
- 网易邮箱显示附件上传不成功,请重试!(错误码:FR_INVALID_REQUEST) 的解决方法
- 记事本中用到的字符识别(UTF8/UNICODE)
- Vancl 还能玩出什么花样来吗?
- ping: unknown host XXXX (centos)
- Migrating VC6 driver project to VC8 with DDK 2003
- 自己设置的开机启动 关机提示程序
- BT3&spoonwep无线破解与Q3&spoonwep无线破解哪个容易
- 需求的问题,是一个简单的问题
- 江恩21条买卖守则
- 有关sim卡联系人和短信的操作(wm)
- 字符设备驱动程序
- Visual C# 加密和解密文件
- Building NT kernel mode drivers in MS Visual C 6.0
- 发现一个学习算法优化的好网站