Alle Festplatten finden

[Blackheart]

Hallo Leute
Kann Mir wer sagen der mehr als eine Partion oder Festplatte ob der Code funktioniert.
Hab nur eine Festplatte C: und da hauts hin.
Dank

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Drive:Char;
begin
  for Drive := 'A' to 'Z' do
  begin
   case GetDriveType(PChar(Drive + ':/')) of
   DRIVE_FIXED: ComboBox1.Items.Add(Drive+':\');
  end;
end;