如何在Director for windows 中判断光驱符号

日期:2013/11/23 16:18:00 来源:本网整理 阅读:17
Director for windows 是一种在多媒体光盘制作中被广返应用的软件。但是它的 内置脚本语言LINGO却经常被忽视,很多用户仅把DIRECTOR作为一个二维平面软件。 其实我觉得LINGO才是DIRECTOR 的精华所在,有了它,才能把DIRECTOR的交互式多媒体功能发挥的淋漓尽致。下面我就举一个例子来说明这一点。

  很多用DIRECTOR作的多媒体光盘都是在光盘上运行的。在光盘上运行程序与在硬盘上 运行程序的最大区别就是运行速度。因此可能有的制作人员想把部分程序(可执行程序等)放在硬盘的某一目录下以提高运行速度,其它部分程序再从光驱上取得。但是这个好的想 法所碰到的第一个问题就是如何取得光驱符号。

  在苹果电脑上,这一点非常容易做到。play movie \"MyCD:Data:MovieA\"任何挂在苹果电脑上的卷标(包括光驱)只要包含名字和路径就可自动执行。

  而在PC机上路径名可能会变成\"G:\\MyCD\\Data\\MovieA\" 或 \"D:\\MyCD\\Data\\MovieA\" 不同的PC机由于分区不同,光驱的盘符也不同。那末如何在Director for windows 中判断光驱符号呢?

  我用LINGO编写了一个函数CheckDrive(),首先我将在光驱的根目录下放一个文件名为Lingo.ini。 函数CheckDrive()只接受lingo.ini这个文件名作参数,它将返回本机的光驱符号。

  具体用法如下:
put CheckDrive(\"lingo.ini\") into myCD
程序将光驱符号传给出myCD 变量。

  函数CheckDrive()的函数体如下:(因为大部分电脑的A驱和B驱为软盘驱动器,所以函数仅重C盘找起)。

on CheckDrive name
repeat with I = 66 to 90
set drive = numToChar( I )
set myThisPath = string(drive & \":\\\"& name)
set myFile = fileIO(mNew, \"read\", myThisPath)
if objectP(myFile) then
myFile(mDispose)
return drive&\":\"
exit
end if
end repeat
alert\"Please check that\"&\"E&name\"E&&\"is on your CD drive.\"
end

 

  • 本文相关:
  • 用面向对象的方法在DIRECTOR中实现滚动条
  • MCI指令在DIRECTOR 中的应用
  • Director中几种Scirpt
  • Case指令在Director中的应用
  • 如何可以在Director中侦测键盘的输入
  • 使用visible时要不要宣告puppetSprite
  • Director中如何设定值给变数
  • Lingo指令中importFileInto的使用方法
  • Lingo常用辞典- A
  • Lingo常用辞典- B
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2015 www.zgxue.com All Rights Reserved