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

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

А это Ваша процедура, Вы же мне ее давно и написали

Вторая процедура не работает, изобразил её в классическом виде - всё заработало. »

странно, у меня она работает (правда у меня идет вызов удаления папки а не замена текста, так что я думал все рабочее)
Наверное потому что у меня препроцессор стоит.

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

[скандирует] СКРИПТ! СКРИПТ В СТУДИЮ!

[serg aka lain]

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

Да, я это заметил и вроде пофиксил.

Вот пример

Код:

[Setup]
AppName=My Program  
AppVerName=My Program
DefaultDirName={sd}\My Program
OutputDir=.
OutputBaseFilename=test

[code]
procedure MyFunction(Sender: TObject);
var
  S: String;
begin
  S := Copy(WizardForm.DirEdit.Text, 0, Length(WizardForm.DirEdit.Text)
                   - Length(ExtractFileName(WizardForm.DirEdit.Text)) - 1);

  if IsWin64 then
  begin
    if (S = ExpandConstant('{pf32}')) or (S = ExpandConstant('{pf64}')) then
    begin
      MsgBox('Программу нельзя устанавливать в' + #13#10 + S, mbInformation, MB_OK);
      WizardForm.DirEdit.Text := ExpandConstant('{sd}\My Program');
    end;
  end else
  if S = ExpandConstant('{pf}') then
  begin
    MsgBox('Программу нельзя устанавливать в' + #13#10 + S, mbInformation, MB_OK);
    WizardForm.DirEdit.Text := ExpandConstant('{sd}\My Program');
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.DirEdit.OnChange := @MyFunction;
end;

[Duality]

serg aka lain, спасибо! работает отлично)) очень хорошо

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

serg aka lain,
я бы сделал поиском {pf} в пути установки:
if (Pos(ExpandConstant('{pf}'), S > 0) then begin
MsgBox('Программу нельзя устанавливать в' + #13#10 + S, mbInformation, MB_OK);
WizardForm.DirEdit.Text := ExpandConstant('{sd}\My Program');
end;

[Duality]

я бы сделал поиском {pf} в пути установки: if (Pos(ExpandConstant('{pf}'), S > 0) then begin MsgBox('Программу нельзя устанавливать в' + #13#10 + S, mbInformation, MB_OK); WizardForm.DirEdit.Text := ExpandConstant('{sd}\My Program'); end; »

в чем преимущество?

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

в чем преимущество »

вообще в програм филесы поставить нельзя с дописко или без

[Serega]

Да и файл этот малюсенький - пусть просматривает весь... »

Всё в этом мире относительно...

А это Ваша процедура, Вы же мне ее давно и написали »

Может быть, видимо было давно...
Просто в Inno удалить строку из массива нельзя, по крайней мере пока, а вот TStringList поддерживает удаление строки.

[serg aka lain]

я бы сделал поиском {pf} в пути установки: »

Принципиального отличия нет, всё равно код по объёму не уменьшится (pf, pf32, pf64 проверять нужно)

Код:

if (Pos(ExpandConstant('{pf32}'), S) > 0) or (Pos(ExpandConstant('{pf64}'), S) > 0) then

А дописка обрабатывается тут

Код:

  S := Copy(WizardForm.DirEdit.Text, 0, Length(WizardForm.DirEdit.Text)
                   - Length(ExtractFileName(WizardForm.DirEdit.Text)) - 1);

з.ы. Ну это ИМХО. Модифицировать никто не запрещает.

[Serega]

serg aka lain, строка начинается с 1, а массивы по умолчанию с 0, т.е. при использовании Copy, копировать можно начиная с 1.
И может проще сделать так:
S := ExtractFilePath(WizardForm.DirEdit.Text);
SetLength(S, Length(S)-1);

[Duality]

все хорошо, но вот если у disk:\program files\ убрать последний слэш, т.е. disk:\program files - все равно дает установить(