我正在尝试创建一个演示安装程序，如果它检测到close.txt程序文件夹中的文件，则它将关闭向导或中止安装。
我正在运行一个计划任务，该任务将在两天后自动卸载该应用程序。初次安装时，close.txt文件将安装在programs文件夹中，然后在自动卸载后将close.txt文件保留在programs文件夹中。我希望当您重新运行安装程序时，它会检查该文件，以及是否发现该文件会关闭向导或中止安装。我是新手，我认为可以在代码部分完成，但我不确定。
任何帮助或代码段将不胜感激，谢谢！
在InitializeSetup事件函数中测试文件是否存在False，如果存在，则返回。
[Setup]
DefaultDirName={autopf}\My Program
[Code]
function WasMyProgramEverInstalled: Boolean;
begin
Result := FileExists('{#SetupSetting("DefaultDirName")}\close.txt');
end;
function InitializeSetup: Boolean;
begin
Result := True;
if WasMyProgramEverInstalled then
begin
MsgBox('Some message', mbError, MB_OK); { Optionally }
Result := False;
end;
end;
请注意，如果安装程序允许自定义安装路径，则在卸载后重新运行安装时，您将不知道该路径。所以这行不通。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句