本文整理自网络,侵删。
{暴力关机代码。}
procedure ShutDownPC;
asm
PUSH ESP
PUSH 0
PUSH 1 // 1 就是打开相应权限, 0 表示关闭相应权限
PUSH $13 //常量 SE_SHUTDOWN_PRIVILEGE 获得关机权限
CALL RtlAdjustPrivilege
PUSH 0
CALL ZwShutdownSystem
end;
相关阅读 >>
Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决
Delphi webbrowser1 网页提交按钮执行点击事件
Delphi 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist
更多相关阅读请进入《Delphi》频道 >>