Delphi关机程序NT版
来源:互联网 发布:mac照片如何传磁盘上 编辑:程序博客网 时间:2024/04/30 07:03
以下是一段NT的关机程序(抄的)
procedure ExitWindowsNT(uFlags : integer);
var
hToken : THANDLE;
tkp, tkDumb : TTokenPrivileges;
DumbInt : DWORD;
begin
FillChar(tkp, sizeof(tkp), 0);
// Get a token for this process
if not (OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, hToken)) then
raise Exception.create('OpenProcessToken failed with code '
+ inttostr(GetLastError));
// Get the LUID for the Shutdown privilege
LookupPrivilegeValue(nil, pchar('SeShutdownPrivilege'),
tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1; // one privilege to set
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
// Get the shutdown provolege for this process
AdjustTokenPrivileges(hToken, false, tkp, sizeof(tkDumb), tkDumb, DumbInt);
// Cannot test the return value of AdjustTokenPrivileges
if GetLastError <> ERROR_SUCCESS then
Raise Exception.create('AdjustTokenPrivileges failed with code '
+ inttostr(GetLastError));
// shut down the system and for all applications to close
if not ExitWindowsEx(uFlags, 0) then
Raise Exception.create('ExitWindowsEx failed with code '
+ inttostr(GetLastError));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsNT(EWX_POWEROFF);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ExitWindowsNT(EWX_REBOOT);
end;
- Delphi关机程序NT版
- Delphi开发NT Service程序
- delphi NT服务程序制作
- delphi关机
- 用DELPHI进行NT、2000、2003服务程序的调试
- 运用Delphi编写Windows NT中服务程序
- Delphi安装NT服务程序时,不出现提示信息
- 再谈Delphi关机消息拦截 -- 之控制台程序 SetConsoleCtrlHandler
- 关机程序
- 关机程序
- 关机程序
- delphi 关机代码
- 在NT/2000下实现关机!
- WINDOWS NT下的禁止关机
- Delphi 编写Windows NT服务
- 编写NT服务程序
- NT服务程序
- 程序的开机关机重启,开机启动,休眠功能delphi实现
- PB消息大全下载
- Debug命令详解
- 怎样备份硬盘引导区记录
- 蜀道难,难于上青天,做pacs难,难于上蜀道
- Java学习课堂(二)
- Delphi关机程序NT版
- 数学建模(6)-DNA限制性图谱的绘制
- 想剪头发了
- 《Contraband》
- [原创]用C#创建可拖动窗体
- 经济学相关网址超级大全
- Lotus软件实施工程的几点要求
- 经济学英文资源大全
- 针对oracle的分页解决方法