Wieviel Speicherplatz belegt eine Datei HDD (FAT16/32)

[ichbins]

Probiers mal damit:

Delphi-Quellcode:

function GetFileSize(const FileName: string): LongInt;
var
  SearchRec: TSearchRec;
begin
  try
    if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
      Result := SearchRec.Size
    else Result := -1;
  finally
    SysUtils.FindClose(SearchRec);
  end;
end;