[LordSP]

vadjliss, извиняюсь, не увидел 127 страницу.

Устарело

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  ErrorCode: Integer;
  HostFile: TStringList;
begin
  If CurStep = ssDone then
begin
  ShellExec('open', 'http://forum.oszone.net//', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
    end;
  HostFile := TStringList.Create;
  try
    with HostFile do
    if CurStep = ssPostInstall then
    begin
      LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
      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');
      SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
    end;
  finally
    HostFile.free;
  end;
end;