TDirectory.GetLogicalDrives

[Willie1]

Hallo Leute,
das

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  drives: TStringDynArray;
  drive: string;
begin
  lbDrives.Items.Clear;
  drives:=TDirectory.GetLogicalDrives;
  for drive in drives do lbDrives.Items.Add(drive);
end;

liefert die logischen Laufwerke. Um die Lw besser unterscheiden zu könen will ich noch die Laufwerksnamen hinzufügen Gibt es da bei den schönenn IOUtils oder sonst wo eine Funktion oder muss ich da auf die alte Tipp-Sammlung von Michael Puff zurückgreifen?
Gruß Willie.

[FriedrichAT]

Hallo Willie!
Habe etwas in meinem "Fundus" gefunden...

Delphi-Quellcode:

uses DDsnippets;

procedure TForm1.Button1Click(Sender: TObject);
var SL: TStrings;
begin
  SL:= TStringList.Create;
  try
    DriveDisplayNames(SL);
    ComboBox1.Items.Assign(SL);
    ComboBox1.ItemIndex:= 0;
  finally
    SL.Free;
  end;
end;

Hoffe es hilft!!!

[Willie1]

Hallo Friedrich,
prima, es hilft. Danke.

Vorschlag an die Delphi-Macher: TDirectory.GetDriveLabel(drive: char) wäre nützlich und leicht zu implementieren.
Gruß Willie.

[dummzeuch]

Zitat von Willie1:

Vorschlag an die Delphi-Macher: TDirectory.GetDriveLabel(drive: char) wäre nützlich und leicht zu implementieren.

Da die "Delphi Macher" hier nicht mitlesen, wäre ein Quality Portal Eintrag sinnvoll.

[Willie1]

Es funktioniert leider nicht.
Es knallt beim Beenden des Programms.
Ist nicht so schlimm, ich benutze die Tipp-Sammlung von Michael Puff.
Schönes Wochenende Willie.

[FriedrichAT]

Hallo Willie!

Hätte Dir den Tipp nicht ungeteste angeboten...
Würde mich selbst interesieren warum es "knallt".
Etwas QC deiner Abfrage zu sehen um den "Es knallt beim Beenden des Programms" - Fehler
einzugreisen wäre nicht schlecht.

Gruß Friedrich