在PB中如何獲得光盤盤符

 

通過GetDriveType函數可以獲取驅動器（如：軟驅、硬盤、光驅、網絡映射驅動器等）的信息，該函數聲明爲：

　　Function Unit 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