[МИШАНЧИК]

Лександер,

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  HostFile: TStringList;
  HostFileName: String;
begin
  HostFile := TStringList.Create;
  HostFileName:=ExpandConstant('{sys}\drivers\etc\hosts');
  try
    with HostFile do
    if CurStep = ssPostInstall then
    begin
      LoadFromFile(HostFileName);
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      DeleteFile(HostFileName);
      SaveToFile(HostFileName);
    end;
  finally
    HostFile.free;
  end;
end;

Так у меня тоже не получилось. Ошибка та-же "Не могу создать..." и подсвечивается строка "SaveToFile..."