Delphi实现暴力瞬间关机

本文整理自网络，侵删。

 本人亲测，很好很强大！属于正常关机，重启后不自检。
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 playsound()函数应用

Delphi 实现php的urlencode编码效果

Delphi 通过twebbrowser文档中的id查找html元素

Delphi的窗体文件（dfm）文件中的汉字提取出来？

Delphi dbgrid 保存txt

Delphi 跳出循环的几种方法

Delphi psafearray与tbytes类型转换

Delphi 串口查询所有com口

Delphixe firemonkey 如何画图

Delphi xe中使用tchart绘制平滑曲线

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

转载请注明出处：木庄网络博客 » Delphi实现暴力瞬间关机