Быстро создать файл любого размера

15:24
procedure makeFile(name: string; size: integer);
var
f: hwnd;
begin
f := createfile(pchar(name), GENERIC_READ or GENERIC_WRITE, 0, 0, OPEN_ALWAYS,
FILE_ATTRIBUTE_NORMAL, 0);
SetFilePointer(f, size * 1024 * 1024, nil, FILE_CURRENT);
SetEndOfFile(f);
closehandle(f);
end;