Detecting Drive Types

//Note: you will need one button and

//one memo on your form, for this tip...

procedure TForm1.Button1Click(Sender: TObject) ;

var

  Drive: Char;

  DriveLetter: String[4];

begin

  for Drive := 'A' to 'Z' do

  begin

  DriveLetter := Drive + ':';

  case GetDriveType(PChar(Drive + ':')) of

   DRIVE_REMOVABLE:

    Memo1.Lines.Add(DriveLetter + ' Floppy Drive') ;

   DRIVE_FIXED:

    Memo1.Lines.Add(DriveLetter + ' Fixed Drive') ;

   DRIVE_REMOTE:

    Memo1.Lines.Add(DriveLetter + ' Network Drive') ;

   DRIVE_CDROM:

    Memo1.Lines.Add(DriveLetter + ' CD-ROM Drive') ;

   DRIVE_RAMDISK:

    Memo1.Lines.Add(DriveLetter + ' RAM Disk') ;

   end;

  end;

end;