Главная » Delphi » Win API » Быстро создать файл любого размера

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

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;