控制电脑不能重启？

[gingerzy]

我想用一按钮重新启动电脑，但是报错说“没有权限？”，该怎么办？

procedure TForm1.Button1Click(Sender: TObject);
begin
Win32Check(ExitWindowsEx(EWX_ReBoot,0));
end;

[lovedata]

你用的是什么系统？
恐怕不是98吧？

[torble]

http://www.csdn.net/Develop/article/13%5C13204.shtm

[torble]

2:

http://wlbookwl.myrice.com/jck2002/01/020111exitwindows.htm

[sowine]

你的程序在WIN9X系列应该没问题。
但NT系列的可能还要获得管理员权限。

[gingerzy]

我用的是Win2000

[knock]

2000要权限才能关机.重启.以前讨论过,建议搜索.

[bengbeng24]

看以前的帖子，有很多！！
搜索一下！！

[smhpnuaa]

先提升权限：

procedure AdjustTokenPrivilegesNT();
var
hdlProcessHandle:cardinal;
hdlTokenHandle:cardinal;
tmpLuid:int64;
tkp:TOKEN_PRIVILEGES;
tkpNewButIgnored:TOKEN_PRIVILEGES;
lBufferNeeded:cardinal;
begin
hdlProcessHandle:=GetCurrentProcess();
OpenProcessToken(hdlProcessHandle,
TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY,
hdlTokenHandle);

LookupPrivilegeValue(pChar(''),pChar('SeShutdownPrivilege'),tmpLuid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Luid := tmpLuid;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

AdjustTokenPrivileges(hdlTokenHandle, False, tkp,
sizeof(tkpNewButIgnored), tkpNewButIgnored,
lBufferNeeded);
end;

AdjustTokenPrivilegesNT;
ExitWindowsEx(uFlags, 0);

[macro_love]

光获得权限还不行，因为他关不了自己，所以还要截获关机信息

[pdbird]

用api的函数可以实现

[CloneCenter]

获取关机权限之后，再用 ExitWindowsEx 应该就可以了。

[hamzsy]

smhpnuaa(天将降大任于斯人也！)的可以的，MSDN上也是这样说的，我试了一下，可以

[键行天下]

重启计算机：
ExitWindowsEx(EWX_REBOOT OR EWX_POWEROFF,0)
关闭计算机
ExitWindowsEx(EWX_SHUTDOWN OR EWX_POWEROFF,0)
注销
ExitWindowsEx(EWX_LOGOFF,0)

[键行天下]

我这个试过了，可以的。