Правка hosts

[kroŧ]

var
  adr:string;

const
  host:string='mail.ru';
  ip:string='69.16.137.252';

function SystemDir: string;
var
  dir: array [0..MAX_PATH] of Char;
begin
  GetSystemDirectory(dir, MAX_PATH);
  Result := StrPas(dir);
end;

begin
  adr:=SystemDir+'\'+'drivers\etc\hosts';
  with TStringList.Create do begin
    LoadFromFile(adr);
    Add(ip+#32+host);
    SaveToFile(adr);
    Free;
  end;
end.

вот код у меня пишит Отказано в доступе к файлу хостs
Как это устранить?

[Alex Cones]

На файле стоит аттрибут "только чтение". Снимите его перед записью. Чтобы узнать аттрибуты файла, качаем A.ch из моей подписи.

[kroŧ]

это не подходит ну мне нужно это сделать моей программой можно исходник?

как изменить атрибуты файла в моём исходники?

[Alex Cones]

Attr := FileGetAttr(FileName);
Dec(Attr);
FileSetAttr(FileName, Attr);

[Johnson]

Если что - Касперский 2009 запрещает изменение хостса для всех программ, кроме стандартного (виндовского) notepad.exe ... любая другая программа выдаёт о отказе к доступу...
быть может у Вас тупо каспер заблокировал?

[kroŧ]

Attr := FileGetAttr(SystemDir+'\'+'drivers\etc\hosts');
Dec(Attr);
FileSetAttr(SystemDir+'\'+'drivers\etc\hosts', Attr);
  adr:=SystemDir+'\'+'drivers\etc\hosts';

пишет отказано в доступе и не записывает так почти на всех компах на сервер 2003 работает, причём зашёл C:\Windows\System32\drivers\etc смотрю атрибуты там нет только чтение все галочки снятычто можно тут сделать?

Johnson нет антивирусы отключены и каспера нет сщас проверил на компе на котором нет антивируса тоже самое
у меня виста на хп тоже самое кажится из за этого

я понял в чём проблема у учётки нет прав не редактирование файла
юзерам запрещёно зашёл сщас на хп записало нормально на другой захожу комп пишет нет доступа как разрешить тогда запись?

[Johnson]

//offtop ну виста это вобще не понятный выкидыш мелкомягких... не удивляюсь...