LISTER TOUS LES DISQUES

Signaler
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002
-
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11864-lister-tous-les-disques

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?