高考问答小心超人之星座守护者:问windowsXP-shutdown命令参数在delphi中怎样用啊
来源：百度文库 编辑：高考问答 时间：2024/05/08 04:12:55
问windowsXP-shutdown命令参数在delphi中怎样用啊
var
hToken: THANDLE;
Tkp:TOKEN_PRIVILEGES;
Nothing:Cardinal;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, FALSE, tkp, 0, nil, Nothing);
ExitWindowsEx(EWX_ShutDown, 0) //ExitWindowsEx(2,0);重起 ExitWindowsEx(1,0);关机
end;