主题:  检测光盘攀附!

threem

职务:普通成员
等级:2
金币:1.0
发贴:338
#12001/10/23 0:42:17
重谈一个老问题!


on threem
pop=new(xtra "filextra3")
----建立对象pop
set cdromlist=[]
----放置显示光区攀盘符的列表
repeat with drivenum= 67 to 91
drivename=numtochar(drivenum)
----获得驱动器盘符“b”到“z”!
put drivename
cdrom=pop.fx_volumeiscdrom(drivename&":\")
----检测驱动器“b”到“z”是否为光驱!
put cdrom
if cdrom=1 then
append cdromlist,drivename
---将检测到的光驱的盘符放置到列表中!
end if
end repeat
put cdromlist
---输出光驱盘符列表!
end
--------------利用filextra3检测光盘盘符!

编辑历史:[这消息被threem编辑过(编辑时间2001-10-23 13:20:24)]


草原风

职务:版主
等级:5
金币:13.0
发贴:3489
#22001/10/23 9:33:43
最好是能附上说明



dirman

职务:普通成员
等级:1
金币:0.0
发贴:7
#32001/10/24 14:13:52
这个是免费的吗?



threem

职务:普通成员
等级:2
金币:1.0
发贴:338
#42001/10/25 1:23:09
应该是吧!记不清了!:(

你搜索以下本论坛!以前有相关内容的帖子及下载网址!



koala_5d

职务:普通成员
等级:2
金币:1.0
发贴:189
#52001/10/25 11:43:51
最简单使用的方法 :)
on finddrive
set drive= the moviepath
set drive = char 1 to 3 of drive
put drive
return drive
end



threem

职务:普通成员
等级:2
金币:1.0
发贴:338
#62001/10/25 11:59:53
是光驱的!不是硬盘的!



koala_5d

职务:普通成员
等级:2
金币:1.0
发贴:189
#72001/10/25 15:13:23
当然,用户用的时候不就是光区的了吗 :)



questionbag

职务:普通成员
等级:1
金币:0.0
发贴:75
#82001/11/1 11:48:50
当然不行,如果用户把文件拷贝到硬盘上,呵呵···

请问有没有不用插件的方法?:)