| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/8 20:01:59 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 进程的消失 implementation function RegisterServiceProcess(dwProcessID,dwType:Integer):Integer; stdcall;external 'KERNEL32.DLL'; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin // 注册 RegisterServiceProcess(0,1); // 0表示当前进程 end; procedure TForm2.Button2Click(Sender: TObject); begin // 取消注册 RegisterServiceProcess(0,0); end; 程序不出现在任务栏 SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); 显示/隐藏TaskBar(任务条) var hand : THandle; hand := FindWindow('Shell_TrayWnd',nil); ShowWindow(hand,SW_HIDE); / ShowWindow(hand,SW_NORMAL); 控制Ctrl+Alt+Del键 失效: SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0); 有效: SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0); .如何启动屏幕保护程序 SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0); ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/8 20:06:47 | ||||
| 1楼： | 有点老了！ ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/8 20:08:26 | ||||
| 1楼： | 我看不懂啊？什么乱七八糟的？ ---------------------------------------------- 艾冰，愿意与你互动！！ |
|||||
| 作者： |
|
2004/3/8 22:20:13 | ||||
| 2楼： | 有点意思. ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/8 23:17:13 | ||||
| 3楼： | 是有点老，这种原理的帖子遍地都是。 没有新鲜的技术。 ----------------------------------------------  敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯，让我们共同成长！ |
|||||
| 作者： |
|
2004/3/9 0:49:56 | ||||
| 4楼： | 顶。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/9 8:11:33 | ||||
| 5楼： | 谁有在XP中可以隐藏进程的代码啊？ ---------------------------------------------- 蛰伏 |
|||||
| 作者： |
|
2004/3/9 10:59:09 | ||||
| 6楼： | 进程的消失 implementation function RegisterServiceProcess(dwProcessID,dwType:Integer):Integer; stdcall;external 'KERNEL32.DLL'; 好像只能在9X上用吧？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/9 11:11:27 | ||||
| 7楼： | 是呀，XP下完全没用 ---------------------------------------------- 我爱delphi |
|||||
| 作者： |
|
2004/3/9 11:49:01 | ||||
| 8楼： | 在9X还有点用， 现在看来，还不如用直接插入 ---------------------------------------------- --------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name |
|||||
| 信息 |
| 登陆以后才能回复 |
