Einzelnen Beitrag anzeigen

MrDelock123

Registriert seit: 17. Aug 2015
6 Beiträge
 
#1

Dateigröße in Byte auslesen

  Alt 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:

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.
Miniaturansicht angehängter Grafiken
datei.jpg  
  Mit Zitat antworten Zitat