| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/12/16 19:29:30 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 请问各位大虾：怎样让运行中的程序最小化的时候，让它的图标落在托盘区？ 另外怎样让程序执行完之后自动关机？请大虾指点。 ---------------------------------------------- -huttion |
|||||
| 作者： |
|
2003/12/16 21:03:56 | ||||
| 1楼： | 不知道 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/16 21:19:52 | ||||
| 2楼： | 第一个问题我不知道； 重新起动用API： exitwindowsex(ewx_reboot,0); 关机用 exitwindowsex(ewx_shutdown,0); =====别地方看来的，原型我还不有找到！ 谁知道完整函数请回贴！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/16 22:26:03 | ||||
| 3楼： | 注消用： exitwindowsex(ewx_FORCE,0); 但注消不完全，不知道是怎么回事！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/16 23:18:52 | ||||
| 4楼： | 用Raize Components 3.09 (控件包)就可以很好的做到了。 ---------------------------------------------- Delphi 免费组件提供 http://www.delphi-free.com |
|||||
| 作者： |
|
2003/12/24 20:46:55 | ||||
| 5楼： | 有没有能回答第一个问题的?有的话请即时联系. ---------------------------------------------- -huttion |
|||||
| 作者： |
|
2003/12/24 21:36:00 | ||||
| 6楼： | 找个TrayIcon的控件就是了,Raize里面有 或者自己写，也不难 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/24 21:37:14 | ||||
| 6楼： | var Tray:NOTIFYICONDATA; begin ShowWindow(Application.Handle,sw_minimize); ShowWindow(Application.Handle,sw_hide); //先在任务栏隐藏 Tray.cbSize:=sizeof(Tray); Tray.Wnd:=Self.Handle; Tray.uFlags:=NIF_ICON+NIF_MESSAGE+NIF_TIP; Tray.uCallbackMessage:=WM_USER; Tray.hIcon:=application.Icon.Handle ; Shell_NotifyIcon(NIM_ADD,@Tray); end ---------------------------------------------- I'm XT_CN! |
|||||
| 作者： |
|
2004/1/5 19:27:05 | ||||
| 7楼： | 希望上次给我联系的那个人能与我联系，上次你给我的那个程序只有运行可执行程序，而用delphi打不开那个源程序，希望你能和我联系。 ---------------------------------------------- -huttion |
|||||
| 作者： |
|
2004/3/20 9:14:06 | ||||
| 8楼： | 用ApplicationEvents1控件 里的 Minimize事件 加入最小化到托盘的代码 中函数 ExitWindows 的语法如下 : function ExitWindows(dwReserved: Cardinal; Code: Word): LongBool; 如果调用该函数成功,则返回 True,否则返回 False ; 成功调用该函数将执行注销。其中的参数 dwReserved 和参数 Code 都必须是 0 EWX_LOGOFF 关闭所有与当前调用函数 ExitWindowsEx 相关的进程并注销用户。 EWX_POWEROFF 关闭系统并关闭电源。其中,关闭电源要求系统应支持 power-off 特性。 EWX_REBOOT 关闭系统并重新启动计算机。 EWX_SHUTDOWN 在安全关闭电源后关闭系统。该操作将所有的缓存刷新到磁盘并停止所有正在运行的进程。 参数 dwReserved 被函数所忽略,可以是任意值。 例如,要强制注销,可以通过如下语句实现 : ExitWindowsEx(EWX_FORCE, 0); 再如,要重新启动计算机,可以通过如下语句实现 : ExitWindowsEx(EWX_REBOOT, 0); ---------------------------------------------- --------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name |
|||||
| 信息 |
| 登陆以后才能回复 |
