得到當前的光驅的盤符

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;