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.