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;

[Gausi]

C,D,E,F,J,O werden bei mir alle erkannt. Zwei davon sind USB-Platten. Die CD/DVD-Laufwerke (auch die virtuellen) sowie die Kartenslots werden nicht aufgelistet. Funktioniert also.

[Blackheart]

Danke Gausi !

[mkinzler]

Man könnte es auch umgekehrt machen, also die Laufwerke suchen und nicht anhand der Buchstaben schauen ob diese existieren.
z.B. per WMI

[marabu]

Hi,

man kann auch alle Laufwerksbuchstaben mit einem einzigen Aufruf von GetLogicalDrives() ermitteln.

Grüße vom marabu

[himitsu]

Wenn du nicht nur die über die "alten" (DOS)Laufwerksbuchstaben gemounteten Laufwerke finden möchtest, dann solltest du dir mal im PSDK/MSDN die unter GetLogicalDrives weiterverlinkten Funktionen anschauen.

Laufwerke können schließlich auch als Pfad gemountet werden und müssen nicht unbedingt über sowas wie "C:\" da sein.