如何调用win2k的关机函数?----在线等待 ExitWindows(EW_RebootSystem,0); Note: user need close win2k privilege! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我知道,不过现在找不到你可以看看MSDN中的VB的例子 function ShutDownSystem: Boolean; //关闭计算机var VerInfo: TOSVersionInfo; hToken: THANDLE; tkp: TOKEN_PRIVILEGES; Nothing: Cardinal;begin if IsWinNT then 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_FORCE + EWX_SHUTDOWN + EWX_POWEROFF, 0); end else ExitWindowsEx(EWX_FORCE + EWX_SHUTDOWN + EWX_POWEROFF, 0); Result := True;end;重新启动 什么的就不用我再说了吧 ExitWindowEx(EWX_ShutDown,0);//关闭计算机 IntraWeb如何在IIS中发布? 调试问题 怎么知道一个地址里 是什么东西 关于Data Module的问题 如何判断一个Form是否创建? 关于dll的,各位大哥帮帮我!可以给n多分! 请参与 【征求多用户操作的完美解决办法!分不够可以在开帖子!(300分)】一贴的同志近来接分!!2号贴 文件判断 如何在Socket Server端加入用户/密码机制,使客户端必须提供用户/密码才能连接socket sever? ado,OBDC和BDE 这样的ado怎么能用? delete的问题~ 如果判断鼠标按下的POS在某个窗口中?
你可以看看MSDN中的VB的例子
var
VerInfo: TOSVersionInfo;
hToken: THANDLE;
tkp: TOKEN_PRIVILEGES;
Nothing: Cardinal;
begin
if IsWinNT then 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_FORCE + EWX_SHUTDOWN + EWX_POWEROFF, 0);
end
else
ExitWindowsEx(EWX_FORCE + EWX_SHUTDOWN + EWX_POWEROFF, 0);
Result := True;
end;重新启动 什么的就不用我再说了吧
//关闭计算机