Wie kann ich eine Datei erstellen ohne Savedialog?

[s14]

Hallo, mit dieser Funktion kannst Du die Dateigröße ermitteln:

Delphi-Quellcode:

function GetFileSize(const filename: String): Integer;
var sr : TSearchRec;
begin
  Result := -1; // bedeutet, keine Datei gefunden !!
  if FindFirst(filename, faAnyFile, SR) = 0 then Result := sr.Size;
  SysUtils.FindClose(sr);
end;