GetVolumeInformation seltsames Verhalten?

[Glados]

Folgendes Konstrukt gibt als Rückgabe sonderliche Zeichen beispielsweise einen Pfeil der nach oben zeigt wenn man Informationen eines Laufwerks abfragt welches nicht verbunden ist

Delphi-Quellcode:

DriveLetter := #0;

Tmp := ExtractFileDrive(Path);
if Length(Tmp) >= 1 then
 DriveLetter := Tmp[1];

if DriveLetter <> #0 then
 begin
  GetVolumeInformation(PChar(DriveLetter + ':\'), Buf, SizeOf(Buf), nil, Max, Flags, nil, 0);
  sRes := StrPas(Buf);
 end;

Ist es möglich vorher abzufragen, ob das Laufwerk überhaupt verbunden ist?

[Der schöne Günther]

Wenn du es unbedingt über die WinAPI (statt den Komfortfunktionen welche dir Delphi schon bietet) nutzen willst: GetLogicalDriveStrings.

Außerdem solltest du den Rückgabewert deines GetVolumeInformation-Aufrufs auswerten, der gibt ein True/False zurück ob es überhaupt geklappt hat

[himitsu]

Wie ist "Buf" deklariert?

Und warum prüft niemand den Rückgabewert dieser API?
GetVolumeInformation -> siehe "Return value"

[Glados]

Fehler gefunden danke.

[himitsu]

Aber für andere Hilfesuchende, mit dem gleichen Problem, nicht genannt.
Die bedanken sich bestimmt dann auch, wenn sie diesen Thread finden.

[Glados]

So ist es falsch

Delphi-Quellcode:

GetVolumeInformation(PChar(DriveLetter + ':\'), Buf, SizeOf(Buf), nil, Max, Flags, nil, 0);
sRes := StrPas(Buf);

So ist es besser

Delphi-Quellcode:

if GetVolumeInformation(PChar(DriveLetter + ':\'), Buf, SizeOf(Buf), nil, Max, Flags, nil, 0) then
 sRes := StrPas(Buf);

Wenn jetzt sRes = '' ist, kann man ja noch immer gucken was man macht. Vielleicht sogar ein RaiseLastOSError oder eine andere Behandlung.

[freimatz]

Danke.