小弟测试一个xp的关机程序。但是老是效果不好按F9可以运行。但就是关不了机？？各位大侠看看哦！！
procedure Get_Shutdown_Privilege;//提权
var
    rl: Cardinal;
    hToken: Cardinal;
    tkp: TOKEN_PRIVILEGES;
begin
    OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
    if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
    begin
      tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      tkp.PrivilegeCount := 1;
      AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0);
end;

end.

难道盗版的xp不行？？

你虽然写了个提权函数在那里,但都没有调用!
这样应该可以
procedure TForm1.Button1Click(Sender: TObject);
begin
  Get_Shutdown_Privilege;
  ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0);
end;

谢谢了。已经解决了！！！~~~

ExitWindowsEx 函数只适应于 Win98，Winxp不支持。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Get_Shutdown_Privilege;
  ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0);
end;

这里没有调用呀

应该是权限问题了，注意要添加管理员权限。