[cloayza]

Utiliza la funcion GetDriveType, debes incluir la ShellApi.

Ejemplo:

Código Delphi [-]
Var
DType: Integer;
s:String;
disco:string;
Begin
       disco:='C:\';
       DType:=GetDriveType(PChar(disco));
       case (DType) Of
             0  :s:='No puede ser determinado'
             1  :s:='No existe'
             DRIVE_REMOVABLE:s:='Removible'
             DRIVE_FIXED    :s:='Disco no removible';drive.
             DRIVE_REMOTE    :s:='Disco de red';
             DRIVE_CDROM    :s:='CD-ROM';
             DRIVE_RAMDISK  :s:='Ram disk'
       end;
       showmessage(s);
end;

Saludos desde
Concepcion-Chile