Filegrösse von Datei aus Opendialog

[SneakyBagels]

Oder so

Delphi-Quellcode:

function getFileSizeA(const aFileName: string): Int64;
var
 SR: TSearchRec;
begin
 Result := 0;

 if not FileExists(aFileName) then
  Exit;

 if FindFirst(aFileName, faAnyFile and not faDirectory, SR) = 0 then
  try
   Result := SR.Size;
  finally
   System.SysUtils.FindClose(SR)
  end;
end;