Alle MountPoints auslesen

[ThoPos]

Hallo zusammen,

ich muß diesen Thread mal wieder an's Licht holen.


Diese Procedure läuft unter Delphi 2007 fehlerfrei

Delphi-Quellcode:

procedure GetVolumes(Vol:TStrings);
var Res  : integer;
    Buf  : array [0..MAX_PATH] of Char;
begin
 Vol.Clear;
 Res := FindFirstVolume(Buf,SizeOf(Buf));
 repeat
  Vol.Add(StrPas(Buf));
 until (not FindNextVolume(Res,Buf,SizeOf(Buf)));
 FindVolumeClose(Res);
end;

Seit einigen Wochen nutze ich jetzt Delphi XE4. Und hier kommt es beim Befehl FindNextVolume zu einem Kernel32 Fehler.
Hat jemand 'ne Idee und noch besser: 'ne Lösung?


Gruß aus Köln
Thomas

[himitsu]

SizeOf(Buf) ?

Überleg mal, was man da als zweiten/dritten Parameter übergeben soll.



Length(Buf)

Tja, hätte man mal gleich die Dokumentation richtig gelesen.

Wobei die Fehlerbehandlung nun auch nicht sonderlich ideal ist.


[add]

Delphi-Quellcode:

procedure GetVolumes(Vol:TStrings);
var Res  : THandle;
    Buf  : array [0..MAX_PATH] of Char;
begin
  Vol.Clear;
  Res := FindFirstVolume(Buf, Length(Buf));
  if Res = INVALID_HANDLE_VALUE then 
    RaiseLastOSError;
  repeat
    Vol.Add(StrPas(Buf));
  until not FindNextVolume(Res, Buf, Length(Buf));
  FindVolumeClose(Res);
end;

[Aphton]

Also strengnenommen, himitsu, ist das ja auch nicht ganz korrekt =P
Wenn, dann~
Length() * SizeOf()..

[himitsu]

Neeee.

Length(x) * SizeOf(Char) oder SizeOf(StaticCharArray) wäre nur richtig, wenn man dort die Länge in Bytes angeben soll.

Length(x) ist dafür, wenn man die Länge in Zeichen anzugeben hat.

[Captnemo]

Kann mir jemand sagen, welche Unit ich der Uses hinzufügen muss, damit XE4 FindFistVolume, FindNextVolume und FindVolumeClose findet? Hab schon mit Grep das ganze Emba-Verzeichnis durchsucht, aber keinen Treffer erhalten.

[Neutral General]

Mein Delphi7 hier kannte es auch nicht (was nichts heißen muss).
Notfalls halt einfach grad die Funktion von MSDN abtippen.

[Captnemo]

Zitat von Neutral General:

Notfalls halt einfach grad die Funktion von MSDN abtippen.

Wie, abtippen?


Die sich oben beteiligten DP-Mitglieder verwenden die Funktion ja auch. Also bin ich jetzt mal von einer Unit in den Uses ausgegangen. Oder sind das ggf. Funktionen einer DLL z.b. kernel? Leider postet ja niemand den Interface-Abschnitt.