Вопрос по – Как разрешить установку только в определенную папку?

3

Error: User Rate Limit ExceededNextError: User Rate Limit Exceeded

Error: User Rate Limit ExceededNextError: User Rate Limit Exceeded

Error: User Rate Limit Exceeded user1320880
Error: User Rate Limit Exceededthe Next button is greyed until the user chooses the right folderError: User Rate Limit Exceededchoose folderError: User Rate Limit Exceeded TLama

Ваш Ответ

2   ответа
2

Error: User Rate Limit Exceeded

[SETUP]
DisableDirPage=yes
Error: User Rate Limit ExceededI want to have the Next button on directory selection page disabled, unless the user chooses the right folder to install to.
6

NextSelectDirC:\MySecretDirMySecretDir

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
const
  MySecretDir = 'C:\MySecretDir';

procedure OnDirEditChange(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := CompareText(WizardDirValue, MySecretDir) = 0;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then
    OnDirEditChange(nil);
end;

procedure InitializeWizard;
begin
  WizardForm.DirEdit.OnChange := @OnDirEditChange;
end;

NextMyUniqueFile.exeOnDirEditChange

procedure OnDirEditChange(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := FileExists(AddBackslash(WizardDirValue) +
    'MyUniqueFile.exe');
end;
Error: User Rate Limit ExceededwhyError: User Rate Limit Exceededdoes.
Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded user1320880
Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded

Похожие вопросы