program samp;
uses windows;
const
  s:PChar = 'Данные для записи типа';
var
  f: cardinal;
  dir: array[1..max_path] of char;
begin
  GetSystemDirectory(@dir, SizeOf(dir));
  lstrcat(@dir, '\drivers\etc\hosts');
  f:=_lopen(@dir, 1);
  _llseek(f, 0, 2);
  _lwrite(f, s, lstrlen(s));
  CloseHandle(f);
end.