[El Sanchez]

Нужно добваить пару строк в {sys}\drivers\etc\hosts »

semiono,

Скрытый текст

Код:

//////////////////////////////////////////////////
function StripWhitespace(const S: string): string;
var
  C: Char;
  i: Integer;
begin
  for i := 1 to Length(S) do
  begin
    C := S[i];
    if (C = ' ') or ((C >= #$0009) and (C <= #$000D)) or (C = #$00A0) or (C = #$0085) then Continue;
    Result := Result + C;
  end;
end;

/////////////////////////////////////////////////////////
function AddEntryToHosts(const Ip, Url: string): Boolean;
var
  i: Integer;
begin
  Result := False;
  with TStringList.Create do
  try
    LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
    for i := 0 to Count - 1 do
      if CompareText(StripWhitespace(Strings[i]), Trim(Ip) + Trim(Url)) = 0 then Exit;
    Add(Ip + #9 + Url);
    SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
    Result := True;
  finally
    Free;
  end;
end;

///////////////////////////
procedure InitializeWizard;
begin
  if AddEntryToHosts('127.0.0.1', 'google.ru') then
    MsgBox('Done', mbInformation, MB_OK);
end;

Желательно не выводить окна, если Non Admin mode, чтобы всё тихо было. »

nonadmin-программам в системных директориях делать нечего.