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;
