Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
40.071 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Alle MountPoints auslesen

  Alt 12. Mär 2014, 12:29
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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (12. Mär 2014 um 12:35 Uhr)
  Mit Zitat antworten Zitat