Connaitre le type des lecteurs

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 / Disquette');
end;
DRIVE_FIXED:
begin
ShowMessage('Drive fixed / Festplatte / Disque Dur');
end;
DRIVE_CDROM:
begin
ShowMessage('CD ROM Drive');
end;
DRIVE_RAMDISK:
begin
ShowMessage('RAM Drive');
end;
DRIVE_REMOTE:
begin
ShowMessage('Remote Drive / Netzlaufwerk / Lecteur réseau');
end;
end;
end;