本文整理自网络,侵删。
本人亲测,很好很强大!属于正常关机,重启后不自检。
program Project1;
uses Windows;
//提权
function RtlAdjustPrivilege(Privilege: ULONG; Enable: BOOLEAN;
CurrentThread: BOOLEAN; Enabled: PBOOLEAN): DWORD; stdcall; external 'ntdll.dll';
//调用关机函数
function ZwShutdownSystem(arg: DWORD): BOOLEAN; stdcall; external 'ntdll.dll';
begin
asm
PUSH ESP
PUSH 0
PUSH 1
PUSH $13
CALL RtlAdjustPrivilege
PUSH 0
CALL ZwShutdownSystem
end;
end.
相关阅读 >>
Delphi 在firemonkey应用程序中设置application.title
Delphi edgebrowser1 浏览器实现控制滚动条
Delphi combobox和listbox的文字可以右对齐显示
Delphi sizetostr 文件大小转换kb mb gb tb
更多相关阅读请进入《Delphi》频道 >>