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;