K210.ORG

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;