castalouche5
Messages postés13Date d'inscriptionmardi 13 octobre 2009StatutMembreDernière intervention20 novembre 2009
-
26 août 2009 à 17:50
castalouche5
Messages postés13Date d'inscriptionmardi 13 octobre 2009StatutMembreDernière intervention20 novembre 2009
-
26 août 2009 à 17:50
Bonjour,
voici mon code afin de reconnaître divers disques en delphi 2006 :
function TypeLecteur(Lecteur:string) :string;
begin
Result :='';
lecteur :=uppercase(Lecteur) +':\';
case GetDriveType(Pchar(Lecteur)) of
0 :result :='Indéterminé';
1 :result :='Inexistant';
DRIVE_REMOVABLE :result :='Port USB '+ lecteur;
DRIVE_FIXED :result :='Disque dur';
DRIVE_REMOTE :result :='Distant-Réseau';
DRIVE_CDROM :result :='CD_ROM';
DRIVE_RAMDISK :result :='RamDisk - Lecteur ZIP';
else
Result :='Inconnu';
end;
end;
-----
Cependant je ne sais pas comment faire pour afficher les ports USB. Quelqu'un peut-il m'aider ? Merci par avance.
Castalouche5