procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
Disque:String;
begin
ListBox1.Clear; //Efface le contenu de la liste
for i:=0 to 25 do
begin
Disque:=CHR(i+65)+':\\'; //de A:\\ à Z:\\
if GetDriveType(PChar(Disque)) <> 1 then //Verifie si le disque existe
ListBox1.Items.Add(Disque);
end;
end;