Windows编程之提权2

BOOL ExitWindowsEx(

UINT uFlags, // 关闭参数

DWORD dwReserved // 系统保留，一般取0

);

procedure TForm1.FormCreate(Sender: TObject);
begin
    Shutdown;
end;

function TForm1.GetShutdownRoot:Boolean;
var
  myhandle:THandle;    //返回句柄
  myprivilege:TOKEN_PRIVILEGES;    //Luid and privilege数组
  myluid:Int64;         //luid
  buff:Cardinal;
begin
    Result:=False;
    //打开进程关联的访问令牌
    if not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES+TOKEN_QUERY,myhandle) then Result:=False;
    //设置一个关机权限,获取luid
    if not LookupPrivilegeValue(nil,‘SeShutdownPrivileges‘,myluid) then Result:=False;
    myprivilege.PrivilegeCount:=1; //指定特权数组个数为1
    myprivilege.Privileges[0].Luid:=myluid;
    myprivilege.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED; //特权启用
    //通知操作系统特权为打开状态
    AdjustTokenPrivileges(myhandle,False,myprivilege,SizeOf(myprivilege),nil,buff);
    if not CloseHandle(myhandle) then Result:=False;           //关闭句柄对象
    Result:=True;
end;

procedure TForm1.Shutdown;
begin
   if not GetShutdownRoot then ShowMessage(‘获得关机权限失败‘);
   if not ExitWindowsEx(EWX_SHUTDOWN,0) then ShowMessage(‘关机失败!‘);          //关机
end;