Как резервировать место при создании файла?

[3D Hunter]

Задача такая: как при создании файла, зная его конечный размер, зарезервировать место на винте? (подобно тому, как это делает довнлоад мастер или юТоррент). Заранее спасибо.

[russian-stalker]

Забить его нулями?

procedure TForm1.Button1Click(Sender: TObject);
var
   f:file; 
   buf:pointer;
begin
   assignfile(f,'C:\1.myfile');
   rewrite(f);
   while filesize(f)<1024*8 do//1мб
   begin
      buf:=nil;
      blockwrite(F,buf,1);
   end;
   closefile(f);
end;

[3D Hunter]

russian-stalker, пока файл размером, скажем, 1 гб, забьется нулями, да еще и побайтно, проц будет умолять меня дать ему веревку с мылом
И 1024*8 не равно 1 мб

[Alex Cones]

И 1024*8 не равно 1 мб

Смотря в чем измерять. Если в битах, то правильно, если в байтах, то нет.

[Serge_Bliznykov]

да, нужно просто создать файл нужного размера.
чем он заполнен - это проблемы ОС.
попробуйте такой код:

var f : file;
  b1 : byte;
begin
  AssignFile(f,'big1');
  Rewrite(f,1);
  Seek(f,НУЖНЫЙРАЗМЕР_В_БАЙТАХ-1);
  b1 := 0;
  BlockWrite(f, b1, 1);
  CloseFile(f);
end;

[Пепел Феникса]

а через что делаем?
у FileStream можно установить св-во Size
и еще можно посмотреть как поток это реализует.

[russian-stalker]

FileSize как помню в битах измеряется. 1 гб заполняется за 30сек.

Upd:
Пепел Феникса +1, спс, буду знать и правда работает

var
s:tfilestream;
begin
s:=tfilestream.Create('c:\123.myfile',fmCreate or fmOpenWrite);
s.Size:=1024*1024*1024;//1гб
s.Free;
end;

[3D Hunter]

Serge_Bliznykov:
Ваш код работает, но при попытке посмотреть свойства созданного файла проводник вешается! ОС тем самым подчеркивает, что это не ее проблемы
Пепел Феникса:
Хотелось бы реализовать через CreateFile()

[Somebody]

Можно распределить место, не забивая нулями, если получить привилегию SeManageVolumePrivilege. Но возможны проблемы с безопасностью:
SetFileValidData

var
  hf, ht: THandle;
  tp: TOKEN_PRIVILEGES;
begin
  OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ht);
  LookupPrivilegeValue(nil, 'SeManageVolumePrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  AdjustTokenPrivileges(ht, false, tp, 0, nil, PCardinal(nil)^);
  CloseHandle(ht);
  hf := CreateFile('d:\file.my', GENERIC_WRITE, 0, nil, CREATE_ALWAYS,
    FILE_ATTRIBUTE_NORMAL, 0);
  SetFilePointer(hf, size, nil, FILE_BEGIN);
  SetEndOfFile(hf);
  SetFileValidData(hf, size);
  CloseHandle(hf);
end;

µTorrent по умолчанию так не делает, но может, если надо - в настройках diskio.no_zero.

[Serge_Bliznykov]

Ваш код работает, но при попытке посмотреть свойства созданного файла проводник вешается! ОС тем самым подчеркивает, что это не ее проблемы

очень-очень СТРАННО!
только что проверил. всё открывается без проблем.
А Вы закрывать файл не забываете!?