通过GetDriveType函数可以获取驱动器的信息,该函数声明为: Function Uint GetDriveTypeA (String drive) 参数为一个盘符(如“C:"),返回值:1表示未知,2表示软驱,3表示本地硬盘,4表示网络驱动器,5表示光驱。可以通过遍历a到z 来得到光盘盘符,因此如下代码可以获得光盘的盘符: (我是在网吧写的程序,可能有错误,你自己再调试一下吧!) For i=Asc(′D′) to Asc(′Z′) //列举所有可能的CDROM驱动器 If GetDriveTypeA(Char(i)+″:″)=5 Then begin //若找到CDROM showMessageBox(″CDROM″,Char(i)+″:″) ; //显示光盘盘符 Exit; End ;
begin //若找到CDROM showMessageBox(″CDROM″,Char(i)+″:″) ; //显示光盘盘符 Exit; End ;