[Devils Night]

Лександер, Вот так, да, честно фиг бы догадался, да и я понимаю что уже был такой вопрос, но я не впёр нифига как и что, я с дуру тупо на панели искал, а OuterNotebook оказывается был рядом.
Лександер, тебе зачёт за скринкаст , спасибо ещё раз.

[МИШАНЧИК]

Подскажите пожалуйста.
Пытался добавить в файл hosts нужные мне строки

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  HostFile: TStringList;
begin
  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;

При установке пишет, что не может создать файл {sys}\drivers\etc\hosts и подсвечивает строку

Код:

SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));

Хотя если создать пустой текстовый файл hosts2, то внего всё записывает.
Может можно как-то сделать чтобы нормально вносилось в оригинальный hosts?

[R.i.m.s.k.y.]

МИШАНЧИК, может потому что любые мало-мальски толковые антивири блокируют этот файл от изменений?

[МИШАНЧИК]

может потому что любые мало-мальски толковые антивири блокируют этот файл от изменений? »

Вы правы. Отключил Касперского и всё нормально добавилось в файл. А нельзя это как-то обойти?

[R.i.m.s.k.y.]

МИШАНЧИК, я думаю нужно копать в сторону системных функций, их каспер блокировать не станет
но тут я не знаю, может El Sanchez подскажет?

[El Sanchez]

я думаю нужно копать в сторону системных функций, их каспер блокировать не станет но тут я не знаю, может El Sanchez подскажет? »

El Sanchez говорит, что инсталлятору бестолку соваться в защищенный каспером системный файл, а надо этот самый каспер и настроить, например:
http://forum.kaspersky.com/index.php?showtopic=185494
http://forum.kaspersky.com/index.php?showtopic=169424
и т.д.

[Gnom_aka_Lexander]

А у меня вот так прокатило:

читать дальше »

Код:

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;

По принципу - чего нельзя изменить, то сперва удалим
Единственное - Для удаления лучше взять системную функцию DeleteFile, для надежности. Или волшебный смд-скрипт товарища R.i.m.s.k.y..

а надо этот самый каспер и настроить, например: »

Беда в том, что не понимают юзеры в большинстве своем, что что компьютером нужно уметь пользоваться. Многие считают, что уметь запускать игру с ярлыка - это максимом, что от пользователя требуется. И для таких пользователей мы с вами и стараемся, автоматизируя то, что испокон веков руками делалось. Потому и не объяснить людям, что программа установки правильно написана. А не ставится она - от кривых рук пользователя, которому лень лишний раз антивирус настроить.

[Devils Night]

По принципу - чего нельзя изменить, то сперва удалим »

А если там какие другие важные данные храняться? Ну например я добавил что-то на некоторые программы, для того чтоб не просились в интернет, а тут бац, и всё тихо сносится.
А что если поступить как нибудь проще, ну например до инсталяции, сам инсталятор сначала переименовывает hosts в hosts1, потом добавляет строки которые нужны, типа

читать дальше »

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  HostFile: TStringList;
  HostFileName: String;
begin
  HostFile := TStringList.Create;
  HostFileName:=ExpandConstant('{sys}\drivers\etc\hosts1');
  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;

и в завершении переименовывает обратно, т.е из hosts1 в hosts, ведь ничего не мешает переименовыванию, как то так можно будет реализовать, не?

[Gnom_aka_Lexander]

А если там какие другие важные данные храняться? »

Читай внимательно:

LoadFromFile(HostFileName); »

Тоесть сперва мы грузим стринглист из файла, тобиш получаем содержимое хоста,

Add('127.0.0.1 www.xxx'); »

и т.д. - потом добавляем свои строки к тому. что есть. Только после этого удаляем старый хост, и создаем новый со старым содержимым+ наши строки.

А что если поступить как нибудь проще, ну например до инсталяции, сам инсталятор сначала переименовывает hosts в hosts1, »

Врядли. если нельзя изменить, то и переименовать тоже нельзя будет. Правда, есть у меня подозрение. что и удалить его тоже будет нельзя

[Devils Night]

Читай внимательно »

Что читать, если я не разбираюсь.

LoadFromFile(HostFileName); »

, а точнее что прочитаю, что нет, один фиг я в этом не шарю.

Врядли. если нельзя изменить, то и переименовать тоже нельзя будет. »

Ну а как по твоему при включенном Каспере мне приходилось вписывать хосты для программ? Естественно путём переименовывания, да и на тот момент я не знал что это каспер блокирует, думал виндовые штучки, но это под XP, а под Win7 вообще приходилось из под админа лезть.