将所有设置重置为其默认值

Question

有没有办法将 Inno Setup 中的所有设置“重置”为默认值？

我想在我的设置中添加 重置选项 按钮，单击该按钮会将所有选项设置为相同的值，就好像用户从未更改任何内容，而只是单击下一步，下一步，安装。

但请注意，这些值与编译时默认值略有不同，例如AppDir可以默认为DefaultDirName或wizardForm .PrevAppDir。所以我希望所有选项都默认为动态默认值，对于AppDir来说是：

if wizardForm.PrevAppDir <> '' then
    result := wizardForm.PrevAppDir
else
    result := '{#SetupSetting("DefaultDirName")}';

我希望你明白我想要完成的任务。如果应用程序已安装，则将所有选项设置为上次安装的值，如果应用程序未安装，则将它们设置为默认值。

我知道安装程序在启动时完成了所有这些操作，但我想添加一个按钮，它将用户所做的所有更改（例如在 wpSelectComponents 中）恢复为其安装启动默认值。我怎样才能做到这一点？

Answer 1

所以我在[Code]中解决了这个问题。所有信息都可以通过 WizardForm 全局对象访问，因此当第一次显示配置页面时，您可以将这些值保存到变量中。然后，每当您需要重置配置时，只需再次通过WizardForm恢复所有设置即可。我不会在这里粘贴整个代码，因为它有点长（172 LOC），但只有 AppDir 部分：

[Code]
var storedAppDir : string;
    hasAppDir : boolean;

procedure OnAppDir;
begin
    if not hasAppDir then begin
        storedAppDir := wizardForm.DirEdit.Text;
        hasAppDir := true;
    end;
end;

procedure RestoreAppDir;
begin
    if hasAppDir then begin
        wizardForm.DirEdit.Text := storedAppDir;
    end;
end;

procedure InitializeDefaults;
begin
    //hasUserInfo := false;
    hasAppDir := false;
    //hasComponents := false;
    //hasProgramGroup := false;
    //hasTasks := false;
end;

procedure RestoreDefaults;
begin
    //RestoreUserInfo;
    RestoreAppDir;
    //RestoreComponents;
    //RestoreProgramGroup;
    //RestoreTasks;
end;

procedure DefaultsCurPageChanged(CurPageID : integer);
begin
    case CurPageID of
        //wpUserInfo: OnUserInfo;
        wpSelectDir: OnAppDir;
        //wpSelectComponents: OnComponents;
        //wpSelectProgramGroup: OnProgramGroup;
        //wpSelectTasks: OnTasks;
    end;
end;

procedure InitializeWizard;
begin
    InitializeDefaults;
end;

procedure CurPageChanged(CurPageID : Integer);
begin
    DefaultsCurPageChanged(CurPageID);
end;

当您需要重置所有配置时，只需调用 RestoreDefaults。当然，这不会恢复任何自定义向导选项/页面。但您可以自己轻松添加额外的存储/恢复代码。