pb:获取驱动器的信息

通过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