论坛风格切换切换到宽版
  • 4084阅读
  • 5回复

[求助] Delphi 控制多光驱的问题 [复制链接]

上一主题 下一主题
离线ddstrg
 
发帖
646
金钱
70
威望
7
只看楼主 倒序阅读 0 发表于: 2006-01-10
这是我在其它网站上看到的 Delphi 控制多光驱的代码,我正好拿来学习,运行时界面如下:
User Posted Image

它是在菜单的 OnPopup 事件里列举出所有光驱的盘符,然后再通过的菜单的 Menuindex 来控制光驱的开关。
现在的问题是:鼠标移动到 “打开CD-ROM” 上面,还没有单击鼠标,光驱门就自动打开了(我只有一个真实的光驱)。而 “关闭CD-ROM” 菜单项则没有这个问题。
我想可能是代码里和 Menuindex 相关的部分造成的,但是不知道怎么下手去改。
附件里是源代码,请各位帮忙看看,谢谢。
离线小帆

发帖
813
金钱
10
威望
1
只看该作者 1 发表于: 2006-01-14
很簡單,將那個popupmenu的第一項的事件去掉就好了;

但是,程序有算法錯誤,當隻有一個光驅時,隻添加菜單,並不執行菜單的點擊事件.
离线ddstrg
发帖
646
金钱
70
威望
7
只看该作者 2 发表于: 2006-01-14
谢谢小帆!可以说得具体一点吗?我比较菜的。
离线小帆

发帖
813
金钱
10
威望
1
只看该作者 3 发表于: 2006-01-14
[attachmentid=18774]
參考附件,沒修改源代碼.

PS:我也曾經寫過類似的軟件,如果有興趣,請訪問我的網絡硬盤.
离线ddstrg
发帖
646
金钱
70
威望
7
只看该作者 4 发表于: 2006-01-14
谢谢!可惜你的 “多光驱控制软件” 没有源代码。
离线ddstrg
发帖
646
金钱
70
威望
7
只看该作者 5 发表于: 2006-01-16
改好了,只有一个光驱就不执行操作的bug我也找到了。
附上源码供参考(老鸟就不必看了,呵呵)。
附件: 控制多个光驱.rar (12 K) 下载次数:7