通过GetDriveType函数可以获取驱动器(如:软驱、硬盘、光驱、网络映射驱动器等)的信息,该函数 声明为: Function Uint GetDriveTypeA (String drive) Library ″kernel32.dll″ 参数为一个盘符(如"C:"),返回值:1表示未知,2表示软驱,3表示本地硬盘,4表示网络驱动器, 5表示光驱。因此如下代码可以获得光盘的盘符: For i=Asc(′D′) to Asc(′Z′) //列举所有可能的CDROM驱动器 If GetDriveTypeA(Char(i)+″:″)=5 Then //若找到CDROM MessageBox(″CDROM″,Char(i)+″:″) //显示光盘盘符 Exit //退出列举 End If Next 获取驱动器类型. ---- 关键:GetDriveTypeA API函数 ---- 1.创建含有如下控件的窗体: 控件 控件名 text 标签 st_1 输入盘符: 标签 st_2 获取驱动器类型: 单行编辑框 sle_1 单行编辑框 sle_2 ---- 2.首先声明如下外部函数: Function long GetDriveTypeA(string nDrive) Library |