Ошибка при открытии файла hosts

[bananasus]

Добрый день.

Вот программа:

procedure TForm1.btn1Click(Sender: TObject);
var f: TFileStream;
s:string;
begin
   s:=('127.0.0.1'+edt1.Text);
   f:=TFileStream.Create('C:\WINDOWS\system32\drivers\etc\hosts', fmOpenReadWrite);
   f.Seek(0, soFromEnd);
   f.Write(s, length(s));
   f.Free;

end;

Как только пытаюсь запустить у меня вылетает ошибка открытия файла. Что нужно тут делать?

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

снимать с файла аттрибут read-only на время.

[ArtGrek]

если windows 7, то думаю мороки больше будет,
там даже в ручную, сложно поменять

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

дать при запуске права админа, а потом то что я писал до этого.

[bananasus]

если windows 7, то думаю мороки больше будет,
там даже в ручную, сложно поменять

Не, вручную там легко поменять, только не работает оно там. У меня на ХР блокируется, а у друга на семерке все равно работает. Тут видимо что-то другое.

А по теме: как програмно обеспечить права админа или снять атрибут. я просто не совсем разбираюсь...

[Человек_Борща]

Кхм... а почему TfileStream?
Можно же TStringList или на худой конец TTextFile.


Вот тоже у знакомого были проблемы на семёрке при открытии данного файла. Решилось всё так:
На форме:
1. Memo
2. 2е кнопи
3. 1 Checkbox

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    LoadFileBtn: TButton;
    SaveFileBtn: TButton;
    BuckupFileChk: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure LoadFileBtnClick(Sender: TObject);
    procedure SaveFileBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  WinDir:string;
  OwnerDir:string='system32\drivers\etc\';

{$R *.dfm}

function GetWinDir: string;
const
  BuffSize = 255;
var
  CharBuff: PChar;
begin
  GetMem(CharBuff, BuffSize);
  GetWindowsDirectory(CharBuff, BuffSize);
  Result := IncludeTrailingBackslash(string(CharBuff));
  FreeMem(CharBuff);
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
WinDir:=GetWinDir;
If BuckupFileChk.Checked then
begin
MkDir(WinDir+OwnerDir+'BuckUp');
CopyFile(PAnsiChar(WinDir+OwnerDir+'hosts'),
PAnsiChar(WinDir+OwnerDir+'BuckUp\hosts.bak'),True);
end;
end;

procedure TForm1.LoadFileBtnClick(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(WinDir+OwnerDir+'hosts');
end;

procedure TForm1.SaveFileBtnClick(Sender: TObject);
begin
Memo1.Lines.SaveToFile(WinDir+OwnerDir+'hosts');
end;

end.

[bananasus]

С проблемой разобрался. Это касперский не дает записывать в этот файл. При выключенном каспера все работает прекрасно. Он прогу еще как троян определяет. Есть вообще способ бороться с этим?

[ArtGrek]

я так поборол
microsoft security essentials

[bananasus]

Ты бы пояснее выражался....

[ArtGrek]

поменял антивир, введи в гугл и поимеш
он, вроди блокирует ток реално вирусы, пока мои проги не трогал