Datei verkleinern / hinten abschneiden

[marabu]

Auch das könnte funktionieren:

Delphi-Quellcode:

procedure FileResize(fn: TFileName; newSize: Int64);
begin
  with TFileStream.Create(fn, fmOpenReadWrite, fmShareDenyRead) do
  begin
    Size := newSize;
    Free;
  end;
end;

Grüße vom marabu