Звонок в службу технической поддержки:
- У меня компьютер не работает!
- После чего это произошло?
- Я его включил - загрузился Нортон. Смотрю - у меня слева диск С: и справа диск С:. Я подумал - нафиг мне два диска С:? И стер правый к чертовой матери.
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;
Статья Как сбросить на диск кэшированную информацию о бинарном файле раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.