Installation Inno安装程序：如果程序中存在文件，请关闭安装程序向导；s文件夹

我正在尝试创建一个演示安装程序，如果它检测到programs文件夹中的文件

close.txt

，它将关闭向导或中止安装

我正在运行一个计划任务，该任务将在两天后自动卸载应用程序。初次安装时，将

close.txt

文件安装在程序文件夹中，然后自动卸载后，将

close.txt

文件保留在程序文件夹中。我想知道，当您重新运行安装程序时，它会检查此文件，以及是否发现它关闭向导或中止安装。我是这方面的新手，我认为这可以在代码部分完成，但我不确定

---

任何帮助或代码片段都将不胜感激，谢谢

测试文件是否存在，如果存在，则返回

False

[设置]
DefaultDirName={autopf}\My程序

[代码]
函数WasMyProgramEverInstalled:Boolean；
开始
结果：=FileExists（'{#SetupSetting（“DefaultDirName”）}\close.txt'）；
结束；
函数初始化设置：布尔；
开始
结果：=真；
如果安装了我的程序，那么
开始
MsgBox（'Some message'，mbError，MB_OK）；{可选}
结果：=假；
结束；
结束；

---

请注意，如果安装程序允许自定义安装路径，则在卸载后重新运行安装时，您将不知道安装路径。所以这不起作用。

在中测试文件是否存在，如果存在，则返回

False

[设置]
DefaultDirName={autopf}\My程序

[代码]
函数WasMyProgramEverInstalled:Boolean；
开始
结果：=FileExists（'{#SetupSetting（“DefaultDirName”）}\close.txt'）；
结束；
函数初始化设置：布尔；
开始
结果：=真；
如果安装了我的程序，那么
开始
MsgBox（'Some message'，mbError，MB_OK）；{可选}
结果：=假；
结束；
结束；

---

请注意，如果安装程序允许自定义安装路径，则在卸载后重新运行安装时，您将不知道安装路径。所以这不会起作用。

谢谢Martin，我已经把它关闭并开始工作了，但我认为您的解决方案非常干净，我正在执行函数InitializeSetup（）：Boolean；开始MsgBox（ExpandConstant（'Install'），MB信息，MB_OK）；如果是HasRequirements（），则开始MsgBox（'Demo Expired'，mbInformation，MB_OK）；结果：=假；end else结果：=真；结束；谢谢Martin，我已经把它关闭并运行了，但我认为您的解决方案非常干净，我正在执行函数InitializeSetup（）：Boolean；开始MsgBox（ExpandConstant（'Install'），MB信息，MB_OK）；如果是HasRequirements（），则开始MsgBox（'Demo Expired'，mbInformation，MB_OK）；结果：=假；end else结果：=真；结束；