如何知道WIN2003是要重新启动还是要关机 如何知道WIN2003的关机动作是要重新启动系统还是要关机,我需要针对不同的情况进行处理。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button2Click(Sender: TObject);var EWX_SHUTDOWN,EWX_FORCE:integer; VerInfo: TOSVersionInfo; hToken: THANDLE; tkp: TOKEN_PRIVILEGES; Nothing: Cardinal;beginEWX_SHUTDOWN:=1;EWX_FORCE:=4;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;EXITWINDOWSEX(EWX_POWEROFF,0);EXITWINDOWSEX(EWX_FORCE OR EWX_SHUTDOWN,0);end; 谢谢楼上的,怎么让WIN2003关机我会的我想知道的是当WIN2003要退出时是要重新启动系统还是要关机 将图片保存到数据库 SendMessage 不能取TDxDraw类型的输入框的值? 关于在TTABLE控件中新建的LOOKUP字段在过滤问题 求教如何在过程中转到过程中的一个小程序块,运行后再转回去? 郁闷,散分 金山快译在 Win2003中不能用怎么办 ? Win2003的声卡驱动哪的下啊? 难题:n(n>10)个叶子节点的huffman树有多少种?它们是怎样求得的? 小问题 delphi中MDI怎样实现? To:Kingron(WinAPI)如果可以的话,你愿意公布一下你的资料吗?比如:年龄,所学专业之类的??? 问几个打印和保存的问题 tttk(网络芝麻)前来领分
var EWX_SHUTDOWN,EWX_FORCE:integer;
VerInfo: TOSVersionInfo;
hToken: THANDLE;
tkp: TOKEN_PRIVILEGES;
Nothing: Cardinal;begin
EWX_SHUTDOWN:=1;
EWX_FORCE:=4;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;EXITWINDOWSEX(EWX_POWEROFF,0);
EXITWINDOWSEX(EWX_FORCE OR EWX_SHUTDOWN,0);
end;