#12003/8/17 20:02:14
使用BUDDYAPI函数解决了查找盘符和载入视频文件的问题。
不过,在查找正确光驱时的要将各驱动器都检查一次,所以我想用个alert应该怎么写呢?
on mouseup me
repeat with drivenum= 67 to 90
drivename=numtochar(drivenum)
cdrom= baDiskInfo( drivename, "name")
put cdrom
if cdrom = "NEW" then --如果CDROM的卷标返回NEW,那么
member("file.mpg").preLoad()
Member("file.mpg").ShowLocateFileDialog =0
member("file.mpg").file=drivename & ":\video\A6.wmv"
end if
if cdrom = "Invalid" then
exit repeat
end if
end repeat
end
就是当检查完毕所有驱动器,如果驱动器卷标列表中没有NEW,那么就提示alert “请插入DISK1”,这个该有个什么条件呢?也就是说,怎么写if cdrom (没有) "new" then ......现在的情况是最少要出现3次alert,因为我的光驱是在F盘,程序至少要先检查C、D、E盘。
请各位大侠帮忙
编辑历史:[这消息被gwllb编辑过(编辑时间2003-08-18 14:05:37)]