[Duality]

а самому догадаться слабо что не хватает var text: TLabel; я ведь только функцию NextButtonClick склеил, тупо скопировать-вставить. »

не углядел

[Black-J]

Помогите....скажите как сделать чёрный инсталятор или кинь скин я просто начинающий...

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

скажите как сделать чёрный инсталятор или кинь скин я просто начинающий »

Если начинающий - первым делом бегом в шапку, качать и читать. Искать *black*.iss

[serg aka lain]

Подскажите как сделать в инсталляторе "невозможность установки в определенный каталог" (в частности в program files - желательно с выводом сообщения или просто вывод сообщения о нежжелательности/невозможности установки в program files. »

Попробуйте это, именно так надо?

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

Попробуйте это, именно так надо »

очень оригинально - экзешник скомпиленный давать.

[ChVL]

R.i.m.s.k.y.,
Спасибо!
Вторая процедура не работает, изобразил её в классическом виде - всё заработало. Привожу полный код секции, который при деинсталляции программы удаляет указанный текст из указанного файла, например, добавленную при инсталляции строку в hosts. Может ещё кому пригодится. (Первая процедура - Ваша, вторая - классическая).

Код:

[_code]
procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TArrayOfString;
  i : Integer;
begin
 // if not FileExists(FilePath) then begin MsgBox)'Файл не найден' + FilePath, mbError, mb_Ok); Exit;end; 
  LoadStringsFromFile(FilePath, S); 
  for i:= 0 to GetArrayLength(S)-1 do begin
    if (Pos(AnsiUpperCase(find), AnsiUpperCase(S[i])) > 0) then begin
      StringChangeEx(S[i], find, replace, True);
    end;
  end;
  SaveStringsToFile(FilePath, S, False); 
and;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
If CurUninstallStep=usPostUninstall
then
  begin
  RePlaceTextinFile(ExpandConstant('{sys}\drivers\etc\hosts'), '127.0.0.1 www.site.com', '');
  end;
end;

Одно замечание: удаляется текст, если же в строке больше нет ничего, то остаётся пустая строка. Неплохо бы в этом случае и строку убрать, но, в принципе, можно смириться...
Проверку наличия файла можно убрать.

[serg aka lain]

очень оригинально - экзешник скомпиленный давать. »

не в экзешнике дело, а как он отработает на другой системе.
дал для тестирования, т.к. задача вроде простая, но раньше я с этой идеей не сталкивался.(вдруг облажался с реализацией)

[Serega]

Неплохо бы в этом случае и строку убрать »

Тогда вам проще использовать в процедуре RePlaceTextinFile не TArrayOfString, а TStringList и уже в нём удалять нужную строку.

P.S.
В процедуре RePlaceTextinFile после того как нашли строку, я бы добавил Break, чтоб не бегать дальше по оставшимся строкам.

[Duality]

Попробуйте это, именно так надо? »

неплохо! можно реализацию?

хех, только если там самому выбрать PF и подписать дальще название папки куда устанавливать - то оно разрешает установку)))

[ChVL]

Serega,
IMHO, Break не нужен для строк в hosts. По опыту: одинаковых строк может оказаться несколько, например, когда-то они были прописаны до инсталляции программы вручную. Да и файл этот малюсенький - пусть просматривает весь...