Einzelnen Beitrag anzeigen

Benutzerbild von Olli73
Olli73

Registriert seit: 25. Apr 2008
Ort: Neunkirchen
732 Beiträge
 
#2

AW: GetLogicalDrives und VolumeLabel

  Alt 20. Okt 2024, 18:41
Da du schon Bing / CoPilot erwähnt hast, der kann diese Frage auch beantworten (TPath.GetVolumeName(Drive)):



Ja, du kannst auch die `IOUtils`-Einheit in Delphi verwenden, um die Laufwerksnamen zu ermitteln. Hier ist ein Beispiel, wie du dies umsetzen kannst:

Delphi-Quellcode:
uses
  System.SysUtils, System.IOUtils, System.Classes;

procedure TForm1.Button1Click(Sender: TObject);
var
  Drives: TStringDynArray;
  Drive: string;
  DriveList: TStringList;
begin
  DriveList := TStringList.Create;
  try
    Drives := TDirectory.GetLogicalDrives;
    for Drive in Drives do
    begin
      DriveList.Add(Drive + ': ' + TPath.GetVolumeName(Drive));
    end;
    ShowMessage(DriveList.Text);
  finally
    DriveList.Free;
  end;
end;
In diesem Beispiel wird die Methode `TDirectory.GetLogicalDrives` verwendet, um eine Liste der logischen Laufwerke zu erhalten. Anschließend wird `TPath.GetVolumeName` verwendet, um den Namen jedes Laufwerks zu ermitteln.

Falls du weitere Fragen hast oder Hilfe bei der Anpassung des Codes benötigst, lass es mich wissen! 😊
  Mit Zitat antworten Zitat