基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

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函数实现提权与关机}

//implementation
begin
  //Application.Initialize;
  //Application.Run;
  asm
    PUSH ESP         //依次将三个参数入栈，特别需要注意的是标准API遵循stdcall，由此注意入栈顺序。
    PUSH 0
    PUSH 1
    PUSH $13
    CALL RtlAdjustPrivilege      //提权
    PUSH 0
    CALL ZwShutdownSystem        //关机
end;
end.