Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата semiono:
Нужно добваить пару строк в {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;

Цитата semiono:
Желательно не выводить окна, если Non Admin mode, чтобы всё тихо было. »
nonadmin-программам в системных директориях делать нечего.
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:34, 20-10-2016 | #1700