17 寻找光驱盘号.docVIP

实例17 寻找光驱盘号 主要内容 多媒体作品由于含有大量的多媒体信息：声音、图形、图像、数字化电影、文本等多种媒体媒介。这些媒体将占据大量的存储空间，当最终发行我们的多媒体作品时，需要将这些媒体信息同程序同时发行。在当前的存储媒介中，光盘是存储空间比较大，携带非常方便的存储介质。大量的多媒体作品都是使用光盘来发行的。我们的作品也需要在光盘上发行。 使用光盘就离不开光驱，在我们作品进行开发的过程中，对于声音、图形、图像、数字化电影、文本等多种媒体媒介都存储在特定的目录下，当最终发行的时候，我们需要使用这些目录，但是，在我们的开发过程中，该目录是存储在硬盘上，甚至和应用程序在同一目录下，当我们最终发行作品时，我们在用户的硬盘上安装的仅仅是我们程序的可执行部分，大量的媒体信息被保留在光盘上，如果我们不能在程序的设计中添加一个自动地搜寻光驱盘号，为应用程序指定多媒体信息的存储位置的模块，则最终作品在用户系统上运行的过程中，大量的媒体信息应用程序将寻找不到。 在本实例中，我们利用Authorware所提供的系统函数和系统变量，并同Windows所提供的系统函数相结合起来，完成程序自动寻找光驱盘号的程序。 该实例完全是使用Authorware的编程方式来解决的。没有使用其它的设计按钮。 通过该实例的学习，读者会更充分地了解Autorware所提供的系统函数和系统变量的强大功能。 实例分析 本实例的总体结构如图17－1所示。 步骤1 拖曳一个【运算】设计按钮到图示位置，双击打开该设计按钮，在对话框中输入源程序，如图17－2所示。 该源程序中各表达式的内容如下所述： if OSNumber = 3 then 判断是否是在Windows系统下运行。 drive letter := There are no CD-ROM drives on this system 当没有CD盘时，提示没有盘号。 repeat with n := 0 to 25 查找所有的盘号从A－Z来检查是否为光驱。 if AppType = 1 then 当系统变量AppType为1，表示该系统为16位的Windows 系统。 drivecode := GetDriveType(n) 该函数取得各驱动器的特性。4为光驱。 提示： GetDriveType(n)为Windows的系统函数。 if drivecode = 4 then 如果是光驱的话。 drive letter := Char(65 + n) 取得盘号。 exit repeat 退出循环。 end if else if AppType = 2 then 用户系统为32位的Windows 系统。 drivecode := GetDriveType(Char(65+n)^:\\) 该函数取得各驱动器的特性。5为光驱。 if drivecode = 5 then 如果是光驱的话 drive letter := Char(65 + n) 取得驱动器盘号。 exit repeat 退出循环 end if end if end repeat 结束循环 else 其它情况 drive letter := This drive letter check is specific to Windows systems. end if 步骤2 显示搜寻的光驱信息： 拖曳一个显示设计按钮到图17－1所示的位置，命名为显示盘号，双击打开该设计按钮的展示窗口。在展示窗口中输入如下文本和插入变量drive letter，如图17－3所示。 打开该设计按钮的属性对话框（使用快捷键Ctrl+I），选择【DisPlay】命令按钮，转化为【Display】对话框，如图17－4所示。 在该对话框中，我们将该显示设计按钮中显示的内容放置到第3层。 选择该对话框中的【Update Displayed Variables】选项。实时显示插入的变量的值的变化。 单击该对话框中的【Layout】命令按钮，弹出图17－5所示的【Layout】对话框。 该对话框中的相关设置使用Authorware的默认设置。 单击该对话框中的【OK】命令按钮。结束对该设计按钮属性对话框的设置。 保存文件，运行程序，观察效果。 如果读者的系统上安装有光驱的话，则在屏幕上会显示光驱的盘号，如图17－6所示。 如果读者的系统上没有安装光驱的话，屏幕上会显示没有光驱的提示。 在笔者的系统上，安装的光驱的盘号为E，所以在屏幕上显示出