Get The Drive Type

Shows how to identify the type of the drive you are acessing.

 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  typ:Integer; 
  s: string; 
begin 
  s:='C:'; 
  typ:=GetDriveType(PChar(s)); 
  if Typ <> 0 then case typ of 
    DRIVE_REMOVABLE: 
      begin 
        ShowMessage('Drive Removable / Diskette'); 
      end; 
    DRIVE_FIXED: 
      begin 
        ShowMessage('Drive fixed / Festplatte'); 
      end; 
    DRIVE_CDROM: 
      begin 
        ShowMessage('CD ROM Drive'); 
      end; 
    DRIVE_RAMDISK: 
      begin 
        ShowMessage('RAM Drive'); 
      end; 
    DRIVE_REMOTE: 
      begin 
        ShowMessage('Remote Drive / Netzlaufwerk'); 
      end; 
  end; 
end;