在PB中如何获得光盘盘符
通过GetDriveType 函数可以获取驱动器(如:软驱、硬盘、光驱、网络映射驱动器等)的信息,该函数声明为:
Function Uint GetDriveTypeA (Sering drive)Library “kemel32.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