Inno Setup - impedisce l'esecuzione del programma di installazione più volte simultaneamente

Question

Ho un po 'di sottaceti con Inno Setup: su un computer utente, il mio programma di installazione stava funzionando lentamente (qualcosa che devo ancora diagnosticare, potrebbe essere un problema specifico con quel computer, ancora non lo so). Questo ha portato l'utente a eseguire di nuovo l'installazione, mentre la prima istanza era ancora in esecuzione - e con mia sorpresa, entrambi sembravano essere in esecuzione per qualche tempo, prima di arrestarsi e bruciarli ...

Ho cercato in giro ma ho non è stato trovato alcun modo per disabilitare questo comportamento - la maggior parte delle mie query si sono concluse con la funzione mutex di Inno Setup, che non è proprio ciò che sto cercando. Qualcuno ha dei suggerimenti su come assicurarsi che ci sia solo un'istanza/processo di esecuzione dell'installatore? Grazie!

Answer 1

Dal Inno Setup 5.5.6 è possibile utilizzare la direttiva SetupMutex:

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

Se si desidera modificare un testo del messaggio, che consente di visualizzare quando un altro programma di installazione è già in esecuzione, l'uso:

[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. 

---

Prima di questa versione, non vi era alcun meccanismo incorporato a disposizione. Ma potresti scrivere il tuo semplicemente semplicemente. Il principio è che si crea un mutex univoco all'avvio del setup. Ma, come prima cosa controlla se non c'è già un tale mutex creato. Se sì, si esce dal setup, in caso contrario si crea il mutex:

[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 http://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; 

Answer 2

Se il programma di installazione è stato chiamato setup.exe, ad esempio, è possibile utilizzare il seguente codice per verificare se setup.exe è in esecuzione e terminare l'installazione.

[Code] 
function IsAppRunning(const FileName : string): Boolean; 
var 
    FSWbemLocator: Variant; 
    FWMIService : Variant; 
    FWbemObjectSet: Variant; 
begin 
    Result := false; 
    FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator'); 
    FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', ''); 
    FWbemObjectSet := FWMIService.ExecQuery(Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName])); 
    Result := (FWbemObjectSet.Count > 0); 
    FWbemObjectSet := Unassigned; 
    FWMIService := Unassigned; 
    FSWbemLocator := Unassigned; 
end; 

function InitializeSetup: boolean; 
begin 
    result := not IsAppRunning('setup.exe'); 
    if not result then 
    MsgBox('setup.exe is already running', mbError, MB_OK); 
end;