Delphi关机程序NT版

最新推荐文章于 2024-01-26 10:18:08 发布

JiYangTX

最新推荐文章于 2024-01-26 10:18:08 发布

阅读量1.8k

点赞数

文章标签： delphi token integer system query

本文链接：https://blog.csdn.net/JiYangTX/article/details/104661

版权

以下是一段NT的关机程序（抄的）

procedure ExitWindowsNT(uFlags : integer);
var
hToken : THANDLE;
tkp, tkDumb : TTokenPrivileges;
DumbInt : DWORD;
begin
FillChar(tkp, sizeof(tkp), 0);
// Get a token for this process
if not (OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES
          or TOKEN_QUERY, hToken)) then
     raise Exception.create('OpenProcessToken failed with code '
               + inttostr(GetLastError));

// Get the LUID for the Shutdown privilege
LookupPrivilegeValue(nil, pchar('SeShutdownPrivilege'),
                       tkp.Privileges[0].Luid);

tkp.PrivilegeCount := 1; // one privilege to set
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

// Get the shutdown provolege for this process
AdjustTokenPrivileges(hToken, false, tkp, sizeof(tkDumb), tkDumb, DumbInt);

// Cannot test the return value of AdjustTokenPrivileges
if GetLastError <> ERROR_SUCCESS then
     Raise Exception.create('AdjustTokenPrivileges failed with code '
               + inttostr(GetLastError));

// shut down the system and for all applications to close
if not ExitWindowsEx(uFlags, 0) then
     Raise Exception.create('ExitWindowsEx failed with code '
               + inttostr(GetLastError));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsNT(EWX_POWEROFF);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ExitWindowsNT(EWX_REBOOT);
end;