Lister tous les disques

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 496 fois - Téléchargée 31 fois

Contenu du snippet

Petit truk pour lister les disques d'une machine

Source / Exemple :


var
  i:integer;
  Lecteur:string;
begin
For i := 0 To 25 do begin //Pour chaque lecteur possible (de A:\ à Z:\)
    Lecteur := chr(i + 65) + ':\';
    If GetDriveType(Pchar(Lecteur)) <> 1 Then begin
    //Kan il trouve un disque,
    //vous pouvez faire ce ke vous voulez
    //ListBox1.Items.add(Lecteur); //par exemple
    end; 
end;

A voir également

Ajouter un commentaire Commentaires
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
13
Petite erreur dans le code que tu proposes Gysmo :

Correction :
for Drive:='A' to 'Z' do if GetDriveType(PChar(Drive+':/'))<>1 then [...]

@+
Nico
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6
lol, surement, mais je savait pas kon pouvait faire ca 'A' to 'Z' !
j'en apprend tou les jours ! :-D
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

var Drive: Char;
begin
for Drive:='A' to 'Z' if GetDriveType(Drive+':/') ......

Ca serait pas un pe plus simple non?

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.