Connaitre le type d'un lecteur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 439 fois - Téléchargée 29 fois

Contenu du snippet

Cette fonction renvoi le type d'un lecteur sous format string

TypeLecteur('C:\');//par exemple

Source / Exemple :


Function TypeLecteur(Lecteur:string):string;
begin
Result:= '';
case GetDriveType(Pchar(Lecteur)) of
 2:Result :='Disquette';
 3:Result :='Disque dur';
 4:Result :='Distant';
 5:Result :='CD-ROM';
 6:Result :='RamDisk';
end;

end;

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
samedi 29 janvier 2005
Statut
Membre
Dernière intervention
23 février 2007

Bonjour est-il possible de faire la différence entre une clé USB et un lecteur de carte(SD, MMS ...)?

Car je dois differencier si un utilisateur connecte une clé usb (détecté comme disquette) et le lecteur de carte(détecté aussi comme disquette).

D'avance Merci
Messages postés
13
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
13 juillet 2005

Merci, c'est exactement ce que je cherchais :D
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

Tres pratique en soit.
J'ajouterais kon faire pe par ex aussi
if GetDriveType('D:/')=DRIVE_CDROM then //Ejecter le tiroir cd
Et donc 2,3,4,5,6 correspondrais aussi a DRIVE_REMOVABLE, DRIVE_FIXED, DRIVE_REMOTE, DRIVE_CDROM, DRIVE_RAMDISK.

Bye.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.