NT下如何实现关机？

[biner]

在NT下关闭计算机，先要从进程获得关机权限，我的代码如下，但是老不成功，不知为什么，请高手指点，谢谢！
procedure TForm1.Button1Click(Sender: TObject);
var
hToken:THandle;
tkp,tkp1:TOKEN_PRIVILEGES;
a:DWORD;
begin
OpenProcessToken(GetCurrentProcess,
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);

LookupPrivilegeValue(NiL,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
// LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,tkp.Privileges[0].Luid);

tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

AdjustTokenPrivileges(hToken, FALSE, tkp, 0, tkp1,a);

InitiateSystemShutdown(nil,nil,0,TRUE,TRUE);
// exitwindowsex(EWX_SHUTDOWN,0);这样也不行

end;
在VC中有枚举类型SE_SHUTDOWN_NAME，DELPHI中怎么没有？

[yeah]

给你一个过程（REBOOT标志说明重启还是关机)
已在D4/NT4/SP3下通过
procedure ShutDownNT(ReBoot:Boolean);
const
ADJUST_PRIV = TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES;
SHTDWN_PRIV = 'SeShutdownPrivilege';
PRIV_SIZE = SizeOf(TTokenPrivileges);
var
Len: DWORD;
TokenPriv, Dummy: TTokenPrivileges;
Token: THandle;
begin
OpenProcessToken(GetCurrentProcess, ADJUST_PRIV, Token);
LookupPrivilegeValue(nil, SHTDWN_PRIV,TokenPriv.Privileges[0].Luid);
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
TokenPriv.PrivilegeCount := 1;
AdjustTokenPrivileges(Token, false, TokenPriv, PRIV_SIZE,Dummy, Len);
InitiateSystemShutDown(nil,nil,0,True,Reboot);
end;

[Benni]

据我所知InitiateSystemShutDown()只有administator才能用。

[biner]

yeah,你的代码和我的代码其实是一样的，你的我也试了，还是无法关机，不知是什么原因，我的也是D4/NT4/SP3，我的是NTServer。
你能不能将完整代码发过来，是不是在某些事件里无法关机？

[yeah]

我没在NT SERVER上试过，但我想如果在SERVER上，没有权限肯定是不行，你是自己的机器还单位网络上的机器？我上面的实际已经是完整代码了，使用BUTTON1的CLICK事件调用即可。