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