本文整理自网络,侵删。
{暴力关机代码。}
procedure ShutDownPC;
asm
PUSH ESP
PUSH 0
PUSH 1 // 1 就是打开相应权限, 0 表示关闭相应权限
PUSH $13 //常量 SE_SHUTDOWN_PRIVILEGE 获得关机权限
CALL RtlAdjustPrivilege
PUSH 0
CALL ZwShutdownSystem
end;
相关阅读 >>
pos、ansipos、fillchar在Delphi2010中unicode的问题
Delphi system.sysutils.tmarshaller 与 system.tmarshal
更多相关阅读请进入《Delphi》频道 >>