Recognize CDROM drive

Posted in Files & folders

Use GetDriveType-function for a type definition of the device. Returns values: 0 - Unknown 1 - Unknown 2 - Floppy Disk 3 - Local Drive 4 - Network Drive 5 - CD-Rom 6 - RAM-Disk implementation Uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  N: Byte;
  Drv: string;
  Drives: set of 0..25;
begin
  Integer(Drives):=GetLogicalDrives;
  for N:=0 to 25 do
    if N in Drives then
    begin
      Drv:=Char(N+Ord('A'))+':';
      if(GetDriveType(PChar(Drv))=5) then
        Label1.Caption:='Drive '+Drv+' is the CD-Rom Drive';
    end;
end;