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);