DELPHI中调用API函数ExitWindowsEX可以实现系统的关机,注销,和重启


本文整理自网络,侵删。

 关机:ExitWindowsEx(EWX_POWEROFF or EWD SHUTDOWN,0)

注销:ExitWindowsEx(EWX_LOGOFF,0)

重启:ExitWindowsEx(EWX_REBOOT,0)

不过函数ExitWindowsEx在完成系统的关机、注销、重启动作之前必须要使应用程序获得系统相应的权限。

function GetPrivilege(PrivilegeType: PChar): longbool; stdcall;//这个是修改权限的函数
var
hToken : THandle;
tkp : TTokenPrivileges;
a: DWORD;
ll:longbool;
begin
OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
tkp.PrivilegeCount := 1;
ll:=LookupPrivilegeValue( nil,PrivilegeType , tkp.Privileges[ 0 ].Luid );
if PrivilegeType='SeDebugPrivilege' then
begin
ll:=LookupPrivilegeValue( nil,PrivilegeType , tkp.Privileges[ 0 ].Luid );
tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
end;
a:=0;
AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), nil, a);
CloseHandle(hToken);
end;

调用:
GetPrivilege('SeShutdownPrivilege');
获取这个权限你就可以调用关机函数了

相关阅读 >>

Delphi 遍历目录

Delphi ipnumberipv4

Delphixe8中获取apk的签名信息

Delphi 禁用tedit右键菜单及复制粘贴

Delphi 长文件路径转换短文件路径

Delphi结构体的方法

Delphi命令行窗口实现9*9乘法表

Delphi中dataset和json的互转

Delphi firemonkey 保存图片到jpg的方法 bmp转jpg

Delphi listview 排序功能

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...