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! 😊