Delphi快速关机

Delphi快速关机

{-------------------------------------------------------------}{ Module Name:QuickOff }{ Description:Delphi Quick Shutdown }{ Author:Leland Yang }{ Dev Environment:Delphi 7 }{ Time:Feburary 20th,2014 }{ Copyright:(C)2014 Leland Yang }{ License:GNU General Public License v2 }{-------------------------------------------------------------}program Quickoff;uses Windows;//Forms;//{$R *.res} function RtlAdjustPrivilege(Privilege: ULONG; Enable: BOOLEAN; CurrentThread: BOOLEAN; Enabled: PBOOLEAN): DWORD; stdcall; external 'ntdll.dll'; function ZwShutdownSystem(arg: DWORD): BOOLEAN; stdcall; external 'ntdll.dll'; {调用ntdll.dll这个微软未公开的API函数实现提权与关机}//implementationbegin //Application.Initialize; //Application.Run; asm PUSH ESP //依次将三个参数入栈，特别需要注意的是标准API遵循stdcall，由此注意入栈顺序。 PUSH 0 PUSH 1 PUSH $13 CALL RtlAdjustPrivilege //提权 PUSH 0 CALL ZwShutdownSystem //关机end;end.