以上代码只是程序的一部分,请问关闭win2000应该用什么代码
解决方案 »
- Inno setup 的快捷方式
- DATAACCESSLib_TLB.dcu是哪个控件的单元文件
- 在一个很长的字符串中,如何取出我想要的字符串呢?
- P2P系统怎么找到对方IP
- 一个简单的SQL问题 急啊。。。 给老大们磕头了 谢谢
- 浮点数转成字符串形式怎么转?比如1.1转成‘1.1’
- 哪位高手能告诉我Notes/Ddelphi类(Ln)中checkaddress是怎么回事?
- wwdbgrid问题
- Jepg Error #41是什么原因?
- 老大们,帮帮忙!!sql问题,50分,解决就给!
- 如何安全关机?20分,只能这么多了
- 如何在windows2000编程关机?急急.................
点button2就可以了,自己用吧
procedure TForm1.Button2Click(Sender: TObject);
var
VerInfo:TOSVersionInfo;
hToken:THANDLE;
tkp:TOKEN_PRIVILEGES;
Nothing:Cardinal;
begin
VerInfo.dwOSVersionInfoSize:=SizeOf(VerInfo);
GetVersionEx(VerInfo);
if VerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then
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);
End;
ExitWindowsEx(EWX_POWEROFF,0);//这句就是关机
//ExitWindowsEx(EWX_REBOOT,0);
end;