Вопрос Запрет установки программы для определённых директорий

[aza]

Приветствую,как мне запретить выбор установки программы в папку Program Files и Program Files(86)?)

 

[Косой]

Как вариант, можно так:

Спойлер: пример

Function NextButtonClick(CurPageID: Integer): Boolean;
Begin
Result:= True
if (CurPageID = wpSelectDir) then
begin
if Pos(Uppercase(ExpandConstant('{pf}')), Uppercase(ExpandConstant('{app}'))) or (Pos(Uppercase(ExpandConstant('{pf64}')), Uppercase(ExpandConstant('{app}')))) > 0 then
begin
MsgBox('Установка в Program Files недопустима!', mbInformation, mb_Ok);
Result:= false;
End;
end;
end;

Возможно код и кривоват, но лучше ничего не придумал.

 

[Kotyarko_O]

как мне запретить выбор установки программы в папку Program Files и Program Files(86)?

Например:

Function NextButtonClick(CurPageID: Integer): Boolean;
begin
 Result := True;
 case CurPageID of
  wpSelectDir:
  begin
   if Pos('Program Files', WizardForm.DirEdit.Text) > 0 then
    Result := False;
  end;
 end;
end;