I. Liste des disques dans une TStrings▲
Fonction retournant la liste des disques dans une liste de chaines (TStrings). Pour obtenir cette liste, nous utiliserons la fonction GetLogicalDriveStrings de l'API Windows. Cette fonction retourne cette liste dans un buffer (DriveSt dans l'exemple), où chaque chaine est séparée par un \0 et la fin de liste par un double \0.
Sélectionnez
void
DiskList(TStrings*
Liste)
{
int
ch =
0
;
char
DriveSt[127
];
GetLogicalDriveStrings(126
, DriveSt);
while
( DriveSt[ch] !=
0
)
{
Liste->
Add(&
DriveSt[ch]);
ch +=
strlen(&
DriveSt[ch])+
1
;
}
}
Exemple d'utilisation de cette fonction pour initialiser un TMemo avec cette liste :
DiskList(Memo1->
Lines);