如何自动取得机器上的光驱盘符？？

Question

if GetDriveType(PChar('盘符：\')) = DRIVE_CDROM then //光盘

Answer 1

var drvstr:char;
 for drive:='a' to 'z' do
   begin
    if GetDriveType(pchar(Drvst+':\'))=5 then
    break;
   end;
//Then Drvstr is the cd-rom .

Answer 2

procedure GetCDROM(var CD:char);
var
str:string;
Drivers:Integer;
driver:char;
i,temp:integer;
begin
Drivers:=GetLogicalDrives;
temp:=(1 and Drivers);
for i:=0 to 26 do
begin
  if temp=1 then
    begin
      driver:=char(i+integer('a'));
      str:=driver+':';
      if   GetDriveType(pchar(str))=DRIVE_CDROM then
       begin
         cd:=driver;
         exit;
       end;
    end;
  drivers:=(drivers shr 1);
  temp:=(1 and Drivers);
end;
end;

Answer 3

用
if GetDriveType(PChar('g：\')) = DRIVE_CDROM then 
可判断G是否为光驱盘符