inno setup 检测程序已安装和运行

可以使用以下代码来检测程序是否已安装和运行：

function InitializeSetup():
if CheckIfProgramIsRunning('程序名称') then
MsgBox('程序已经在运行中，请先关闭程序再安装！', mbError, MB_OK);
Result := False;
else
if CheckIfProgramIsInstalled('程序名称') then
if MsgBox('程序已经安装，是否重新安装？', mbConfirmation, MB_YESNO) = IDNO then
Result := False;
end;
end;
end;

其中，CheckIfProgramIsRunning 和 CheckIfProgramIsInstalled 是自定义函数，可以根据实际情况进行编写。