Einzelnen Beitrag anzeigen

Willie1

Registriert seit: 28. Mai 2008
650 Beiträge
 
Delphi 10.1 Berlin Starter
 
#5

AW: GetLogicalDrives und VolumeLabel

  Alt 21. Okt 2024, 10:26
So geht es:
Delphi-Quellcode:
uses Winapi.ShellAPI;
function GetOneDrive(const Drive: string): string;
var
  FI: TSHFileInfo;
begin
  if SHGetFileInfo(
    PChar(Drive),
    0,
    FI,
    SizeOf(FI),
    SHGFI_DISPLAYNAME
  ) = 0 then
    RaiseLastOSError;
  Result := FI.szDisplayName;
end;

function GetAllDrives: TStringDynArray; overload;
var
  i: Integer;
begin
  Result := TDirectory.GetLogicalDrives;
  for i:=Low(Result) to High(Result) do
    Result[i] := GetOneDrive(Result[i]);
end;
Es wäre schön, wenn die Embas diese nützliche Routine in IOUtils aufnehmen würden. Dann brauchte man sich nicht mit dem Systemaufruf herum zu schlagen. Vergisst man wieder.

Gruß Willie.
Gut hören kann ich schlecht, schlecht sehen kann ich gut - Ersteres stimmt nicht, das zweite schon.
  Mit Zitat antworten Zitat