Datei kürzen (truncate) für files > 4.294 GB

[shmia]

Du musst halt über Windows API gehen. Leider ist SetFilePointerEx nicht in der Unit windows deklariert.

Delphi-Quellcode:

function SetFilePointerEx(hFile: HANDLE; liDistanceToMove: LARGE_INTEGER;
  lpNewFilePointer: PLARGE_INTEGER; dwMoveMethod: DWORD): BOOL; stdcall;

function SetFilePointerEx; external kernel32 name 'SetFilePointerEx';

Danach muss man die Datei auf die neue Länge setzen:
SetEndOfFile(filestream.Handle);