杭州交通信息网微店是哪个公司的产品:问windowsXP-shutdown命令参数在delphi中怎样用啊
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 04:28:14
问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;