Delphi Dateigröße in Byte auslesen

Thema durchsuchen

Ansicht

Themen-Optionen

Dateigröße in Byte auslesen

Ein Thema von MrDelock123 · begonnen am 4. Mai 2017 · letzter Beitrag vom 4. Mai 2017

Vorheriger Beitrag

Nächster Beitrag

MrDelock123

Registriert seit: 17. Aug 2015
6 Beiträge

Dateigröße in Byte auslesen

4. Mai 2017, 15:22

Delphi-Version: XE3

Hallo zusammen,

wie kann ich die Größe einer Datei auf dem Datenträger auslesen? Bisher kann ich nur die "normale" Größe ermittlen:

markieren

Code:

			function GetFileSize(const AFileName: string): Int64;

var

  F: TSearchRec;

begin

  Result := -1;

  if FindFirst(AFileName, faAnyFile, F) = 0 then

  begin

    Result :=  F.FindData.nFileSizeLow or (F.FindData.nFileSizeHigh shl 32);

  end;

end;

Allerdings brauche ich die Größe, die unter Windows als "Größe auf Datenträger" angezeigt wird.

Danke im voraus.

Angehängte Grafiken