inno-setup - 创新设置: How to run a code procedure in Run section or before Run section?

Question

我想在安装新数据库之前删除旧数据库，以便为用户更新它。

我有以下情况:

在我的 Components 部分中，我为用户提供了一个选项:

[Components]
Name: "updateDatabase";  Description: "Update Database";  Types: custom; \
    Flags: checkablealone disablenouninstallwarning

如果用户在安装新程序之前在运行部分选择此选项，我在Code部分中有一个要执行的过程。

[Code]
procedure RemoveOldDatabase();
begin
...
end;

[Run]
**--> Here I want to call RemoveOldDatabase if Components: updateDatabase is checked**
Filename: "database.exe"; StatusMsg: "Installing new database..."; Components: updateDatabase

新数据库的安装工作正常。问题是我想在安装新数据库之前删除旧数据库，调用过程 RemoveOldDatabase。

仅使用Inno Setup就可以吗？

谢谢。

Answer 1

在我看来，一种非常简单且仍然具有描述性的方法是将您的程序执行为 BeforeInstall你的[Run]的参数函数节条目。一个BeforeInstall参数函数在处理条目之前执行一次(并且仅在处理条目时执行，在您的情况下是在选择组件时)。你可以这样写:

[Run]
Filename: "database.exe"; Components: UpdateDatabase; BeforeInstall: RemoveOldDatabase

[Code]
procedure RemoveOldDatabase;
begin
  { ... }
end;