das würde per
SetEndOfFile gehn
Delphi-Quellcode:
H := CreateFile(...
...
CloseHandle(HMap);
SetFilePointer(H, NewSize, nil, FILE_BEGIN);
SetEndOfFile(H);
HMap := CreateFileMapping(H, nil, PAGE_READWRITE, 0, NewSize, nil);
...
SetFilePointer - Dateizeiger setzen
SetEndOfFile - Datei an Dateizeiger löschen/abschneiden