Как сбросить на диск кэшированную информацию о бинарном файле

Автор: Олег Кулабухов

Звонок в службу технической поддержки:
- У меня компьютер не работает!
- После чего это произошло?
- Я его включил - загрузился Нортон. Смотрю - у меня слева диск С: и справа диск С:. Я подумал - нафиг мне два диска С:? И стер правый к чертовой матери.

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file;
  i: integer;
begin
  i := 10;
  AssignFile(f, 'C:\DownLoad\Test.Bin');
  ReWrite(f, 1);
  BlockWrite(f, i, sizeof(i));
  FlushFileBuffers(TFileRec(f).Handle);
  CloseFile(f);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 115 • TDictionary Custom Sort 3 304 • Fast Watermark Sources 3 055 • 3D Designer 4 807 • Sik Screen Capture 3 304 • Patch Maker 3 522 • Айболит (remote control) 3 623 • ListBox Drag & Drop 2 982 • Доска для игры Реверси 81 497 • Графические эффекты 3 909 • Рисование по маске 3 218 • Перетаскивание изображений 2 602 • Canvas Drawing 2 724 • Рисование Луны 2 548 • Поворот изображения 2 157 • Рисование стержней 2 156 • Paint on Shape 1 561 • Генератор кроссвордов 2 220 • Головоломка Paletto 1 760 • Теорема Монжа об окружностях 2 205 • Пазл Numbrix 1 678 • Заборы и коммивояжеры 2 049 • Игра HIP 1 274 • Игра Go (Го) 1 220 • Симулятор лифта 1 465 • Программа укладки плитки 1 211 • Генератор лабиринта 1 537 • Проверка числового ввода 1 346 • HEX View 1 484 • Физический маятник 1 351