Delphi2007编译服务引发WIN+E快捷键失效等一系列问题

日总是我哥 2008-12-03 09:28:32
加精
这里啰嗦了几点,文字比较多,只是想尽力把问题描述清楚,以备后用。临时码的子,没有校对,有不清楚的地方请提出。

一、问题的发现:
自己做的程序,突然接收不到WM_DEVICECHANGE消息,很是纳闷……最近都没有新安装软件,左思右想,前两天自己写了个svchost.exe调用的服务。索性将服务停止,程序能正常接受WM_DEVICECHANGE消息了。

庆幸的是自己写了的这么一个服务,要不然,还不知道什么时候才能发现问题所在-_-!!!
【注1】 关于消息问题在这里有记载:获取USB设备插拔消息的备忘
【注2】 还导致WIN+E等快捷键失效,按了WIN+E之后,任务栏停止响应,必须停止服务后,系统才响应WIN+E打开资源管理器

二、找出元凶
因为新鲜,以前也玩过svchost.exe调用的服务,但是也没有发现类似的问题。不知哪来的灵光一闪,用Delphi7.0编译,测试一切正常。
再次用Delphi2007编译,问题依旧。

三、罪魁祸首
发现这个问题有好些天,在心里一直放不下,陆陆续续几乎每天都要调试一下。
首先是怀疑自己新添加的代码有问题,将代码一行一行注释、删除,问题依旧存在。
无奈,只有将uses的单元一个一个去除,最终发现,问题出在Controls单元,如果将uses的Controls单元取消,系统一切正常。

四、结论
使用Delphi2007编译,而且引用了Controls单元,将引发WIN+E快捷键失效等一系列问

五、进一步研究
经过哈欠点拨:“你用工具查看一下它载入的DLL们....同D7比较一下”。果然,Delphi2007编译出的dll多载入了两项进程。
(c:\windows\system32\msctfime.ime、c:\windows\system32\apphelp.dll)
查看步骤:
1、启动服务
2、到DOS提示符状态,运行tasklist.exe /svc,查看服务名称为ServiceDll的进程ID
3、运行工具查看该进程载入的dll(我这里用的是老妖的Spy4Win->附加工具->进程管理)

六、服务程序说明
该服务框架从网上下载,考虑到方便安装和卸载,加入了DllRegisterServer,DllUnregisterServer两个函数,
安装服务:regsvr32.exe ServiceDll.dll
卸载服务:regsvr32.exe ServiceDll.dll
【注3】安装之后,应手动运行服务;卸载之前,应手动停止服务。

七、源程序
因为上传附件失败,这里直接贴出源程序。
...全文
1255 53 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
53 条回复
切换为时间正序
请发表友善的回复…
发表回复
日总是我哥 2011-11-16
  • 打赏
  • 举报
回复
回头看了3年前的帖子~~~~~

HDAISEN 2011-03-31
  • 打赏
  • 举报
回复
好吧,我那个分..
疯狂的犹太人 2011-03-30
  • 打赏
  • 举报
回复
学习学习呀
码农天天向上 2009-10-14
  • 打赏
  • 举报
回复
高精尖技术!Mark!
huaihuai1110 2009-08-12
  • 打赏
  • 举报
回复
路过,看看,高科技
ctx62 2008-12-20
  • 打赏
  • 举报
回复
Mark一下
日总是我哥 2008-12-08
  • 打赏
  • 举报
回复
[Quote=引用 41 楼 zhangxiaommmm 的回复:]
因为新鲜,以前也玩过svchost.exe调用的服务
这是作什么的?
[/Quote]

玩过还不知道?:)





结贴,这个问题定性为:使用Delphi2007编译在某些操作系统环境下将出现问题,暂无解。
火龙岛主 2008-12-08
  • 打赏
  • 举报
回复
搬个板凳听讲。
teedry 2008-12-08
  • 打赏
  • 举报
回复
学习中~~
zhangxiaommmm 2008-12-08
  • 打赏
  • 举报
回复
[Quote=引用 43 楼 CoolSlob 的回复:]
引用 41 楼 zhangxiaommmm 的回复:
因为新鲜,以前也玩过svchost.exe调用的服务
这是作什么的?


玩过还不知道?:)


结贴,这个问题定性为:使用Delphi2007编译在某些操作系统环境下将出现问题,暂无解。
[/Quote]

我没玩过,哪不是引用你的话吗?
随便问问是什么?
oleboy 2008-12-08
  • 打赏
  • 举报
回复
刷分》》》》》》》》》》》》》》》》》
zhangxiaommmm 2008-12-07
  • 打赏
  • 举报
回复
因为新鲜,以前也玩过svchost.exe调用的服务
这是作什么的?
我来看看CB 2008-12-06
  • 打赏
  • 举报
回复
好。。。。。。。。。。。。
沉醉西亭 2008-12-05
  • 打赏
  • 举报
回复
太强悍
rightyeah 2008-12-05
  • 打赏
  • 举报
回复
up
gongxu86824 2008-12-05
  • 打赏
  • 举报
回复
看热闹,顺便学习下》》》》》》》》》》》
tjg5202 2008-12-05
  • 打赏
  • 举报
回复
好多星星。。。。。
derelictangel 2008-12-05
  • 打赏
  • 举报
回复
我好笨啊,都看不懂,先回复一下好了,慢慢学习

PS:
我的目标是 ---->

^_^
Spring_叶子 2008-12-04
  • 打赏
  • 举报
回复
hoho~~~~~~~
yanxizhen 2008-12-04
  • 打赏
  • 举报
回复
P.S. 当初这个代码是用来作坏事的,没有想到,居然还能有人拿来作好事,咔咔.
加载更多回复(32)

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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