inno-setup – Inno Setup – 防止同时多次执行安装程序

[Setup]
AppId=MyProgram
SetupMutex=SetupMutex{#SetupSetting("AppId")}

如果要更改已在另一个安装程序运行时显示的消息文本,请使用：

[Messages]
SetupAppRunningError=Setup has detected that %1 is currently running.%n%nPlease close all instances of it now,then click OK to continue,or Cancel to exit.

在此版本之前,没有可用的内置机制.但你可以简单地写自己的.原则是您在安装程序启动时创建一个唯一的互斥锁.但是,首先检查是否已经创建了这样的互斥锁.如果是,则退出设置,否则,创建互斥锁：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}My Program

[Code]
const
  // this needs to be system-wide unique name of the mutex (up to MAX_PATH long),// there is a discussion on this topic https://stackoverflow.com/q/464253/960757
  // you can expand here e.g. the AppId directive and add it some 'salt'
  MySetupMutex = 'My Program Setup 2336BF63-DF20-445F-AAE6-70FD7E2CE1CF';

function InitializeSetup: Boolean;
begin
  // allow the setup to run only if there is no thread owning our mutex (in other
  // words it means,there's no other instance of this process running),so allow
  // the setup if there is no such mutex (there is no other instance)
  Result := not CheckForMutexes(MySetupMutex);
  // if this is the only instance of the setup,create our mutex
  if Result then
    CreateMutex(MySetupMutex)
  // otherwise tell the user the setup will exit
  else
    MsgBox('Another instance is running. Setup will exit.',mbError,MB_OK);
end;