本文整理自网络,侵删。
{暴力关机代码。}
procedure ShutDownPC;
asm
PUSH ESP
PUSH 0
PUSH 1 // 1 就是打开相应权限, 0 表示关闭相应权限
PUSH $13 //常量 SE_SHUTDOWN_PRIVILEGE 获得关机权限
CALL RtlAdjustPrivilege
PUSH 0
CALL ZwShutdownSystem
end;
相关阅读 >>
Delphi xe5 使用 android 内置函数几个小测试
Delphi自动以管理员身份在vista 和 windows7 下运行程序
[译]rad studio 10.4 新变化:面向控件的 vcl 样式管理
更多相关阅读请进入《Delphi》频道 >>