有谁能帮我吗?在线等待!谢谢

xianqf 2002-10-31 05:05:28
用于win2000关机的函数?win98的在win2000不能用!!
...全文
30 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
wlw88 2002-10-31
  • 打赏
  • 举报
回复
if Messagebox(ShutdownForm.Handle,'你真的要关机吗?','询问',MB_iconquestion+MB_YESNO)=IDYES then
begin
ExitWindowsEx(ewx_shutdown,0);
if (not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_ALL_ACCESS or TOKEN_QUERY, hToken))then
begin
application.Terminate;
end;
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes :=SE_PRIVILEGE_ENABLED;
ReturnLength :=0;
AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil,ReturnLength);
if (GetLastError() <> ERROR_SUCCESS) then
begin
application.Terminate;
end;

if (not ExitWindowsEx(EWX_POWEROFF,0)) then
begin
application.Terminate;
end;
end;
可以给98和2000以及xp关机!

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧