| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 论坛精华贴 斑竹:liumazi,iamdream | |||||
| 作者： |
|
2005/9/18 7:50:18 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我用 ExitWindows()关机，; 怎样让关机的时候不出现那个对话诓 ---------------------------------------------- - |
|||||
| 作者： |
|
2005/9/18 10:13:44 | ||||
| 1楼： | ExitWindowsEx(EWX_SHUTDOWN OR EWX_POWEROFF, 0); ---------------------------------------------- - |
|||||
| 作者： |
|
2005/9/29 10:57:40 | ||||
| 2楼： | 那XP中呢 ---------------------------------------------- - |
|||||
| 作者： |
|
2005/10/4 9:44:11 | ||||
| 3楼： | 我的WINNT中,我也想用自动关机,不知如何是好.我用计划任务做了,可是计划任务不能按时启动.请问各位大虾. ---------------------------------------------- - |
|||||
| 作者： |
|
2005/10/14 17:48:47 | ||||
| 4楼： | procedure TForm1.Button1Click(Sender: TObject); var hToken:THANDLE; tkp:TTokenPrivileges; Rl:Dword; begin if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken) then begin LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid); tkp.PrivilegeCount:= 1; tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken,FALSE,tkp,SizeOf(tkp),tkp,Rl); ExitWindowsEx(ewx_reboot or EWX_ForCE, 0); //重启 //ExitWindowsEx(EWX_SHUTDOWN or EWX_Force,0);用这句替换上句实现关机 end; end; XP，NT，2000的关机需要获得权限，所以不能只用ExitWindowsEX直接关机或重启 上面的函数到网上去查查吧，我也是刚学会 ---------------------------------------------- - |
|||||
| 作者： |
|
2006/4/23 12:14:31 | ||||
| 5楼： | 我有个办法! procedure TForm1.Button1Click(Sender: TObject); var f:textfile; begin assignfile(f,'c:\guanji.bat'); rewrite(f); write(f,'shutdown.exe -s -t 0'); closefile(f); winexec('c:\guanji.bat',sw_hide); end; end. 怎么样,聪明吧@哈哈,不过你的磁盘上就多了一个批处理文件了! ---------------------------------------------- - |
|||||
| 作者： |
|
2006/7/18 22:27:53 | ||||
| 6楼： | 狠 ---------------------------------------------- The life is dominate by me, the world is just fascinating because of me！ |
|||||
| 作者： |
|
2006/7/31 14:32:11 | ||||
| 7楼： | 直接 winexec('sutdown -s',sw_hide); 不就行了, 2000可以把XP的sutdown.exe拷过去 ---------------------------------------------- - |
|||||
| 作者： |
|
2011/5/14 14:57:22 | ||||
| 9楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 作者： |
|
2011/6/13 23:01:09 | ||||
| 10楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 作者： |
|
2011/7/1 23:36:06 | ||||
| 11楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 作者： |
|
2011/7/7 23:29:52 | ||||
| 12楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 作者： |
|
2011/7/8 23:48:19 | ||||
| 13楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 信息 |
| 登陆以后才能回复 |
