TDirectory.GetLogicalDrives

[Willie1]

Hallo Freunde,
ich finde den Fehler nicht. Manchmal crasht es auch erst nach dem 3. Mal!
Dann ist es besser, wenn man ganz von vorne anfängt.

Delphi-Quellcode:

implementation
uses ShellAPI, System.IOUtils;

{$R *.dfm}

function GetOneDrive(const Drive: string): string;
  {Returns the display name for the drive with the given root path.}
var
  FI: TSHFileInfo; // info about drive
begin
  if ShellAPI.SHGetFileInfo(
    PChar(Drive),
    0,
    FI,
    SizeOf(FI),
    ShellAPI.SHGFI_DISPLAYNAME
  ) = 0 then
    RaiseLastOSError;
  Result := FI.szDisplayName;
end;

function GetAllDrives: TStringDynArray;
var
  i: Integer;
begin
  Result := TDirectory.GetLogicalDrives;
  for i:=Low(Result) to High(Result) do
    Result[i] := GetOneDrive(Result[i]);
end;

So geht es auch 100x. Ich gehe davon aus, dass TDirectory.GetLogicalDrives ALLE (außer Netz-) Laufwerke findet also auch z.B. C:,D:,E:,G: und Z: . Es dürfte also eigentlich kein Fehler auftreten, ein Lw gibt es immer.
Ich finde es interessant und gut, dass der Autor den Weg über GetFileInfo statt GetVolumeInfo gewählt hat, weil dann auch ein CD-Lw richtig angezeigt wird.
Nach der langen Diskussion, was haltet ihr von meinem Ansatz?
Gruß Willie.