如何确定执行InnoSetup安装脚本之前是否正在运行应用程序

本文介绍了如何确定执行InnoSetup安装脚本之前是否正在运行应用程序的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我有一个带有Pascal代码的安装脚本，用于确定要安装的应用程序当前是否正在运行:

I have an install script with Pascal code to determine if the app to be installed is currently running:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
AppName=MyApp
AppVerName=MyApp v1.0
DiskSpanning=no
AppPublisher=me
AppPublisherURL=http://www.example.com
AppSupportURL=http://www.example.com
AppUpdatesURL=http://www.example.com
DefaultDirName={pf}\MyApp
UsePreviousAppDir=yes
DefaultGroupName=MyApp
OutputBaseFilename=Setup
OutputDir=.\MyAppSetup
MinVersion=5.0

[Tasks]
Name: desktopicon; Description: Create a &desktop icon; GroupDescription: Additional icons:; MinVersion: 4,4

[Files]
Source: .\Release\MyApp.exe; DestDir: {app}; Flags: ignoreversion

[Icons]
Name: {group}\EasyCash&Tax; Filename: {app}\MyApp.exe
Name: {userdesktop}\EasyCash&Tax; Filename: {app}\MyApp.exe; MinVersion: 4,4; Tasks: desktopicon

[Run]
Filename: {app}\MyApp.exe; Description: Launch MyApp; Flags: nowait postinstall skipifsilent

[Code]

function CheckProcessRunning( aProcName,
                              aProcDesc: string ): boolean;
var
  ShellResult: boolean;
  ResultCode: integer;
  cmd: string;
  sl: TStringList;
  f: string;
  d: string;
begin
  cmd := 'for /f "delims=," %%i ' +
         'in (''tasklist /FI "IMAGENAME eq ' + aProcName + '" /FO CSV'') ' +
         'do if "%%~i"=="' + aProcName + '" exit 1';
  f := 'CheckProc.cmd';
  d := AddBackSlash( ExpandConstant( '{tmp}' ));
  sl := TStringList.Create;
  sl.Add( cmd );
  sl.Add( 'exit /0' );
  sl.SaveToFile( d + f );
  sl.Free;
  Result := true;
  while ( Result ) do
  begin
    ResultCode := 1;
    ShellResult := Exec( f,
                         '',
                         d,
                         SW_HIDE,
                         ewWaitUntilTerminated,
                         ResultCode );
    Result := ResultCode > 0;
    if Result and
       ( MsgBox( aProcDesc + ' is active and must be closed to proceed',
                 mbConfirmation,
                 MB_OKCANCEL ) <> IDOK ) then
      Break;
  end;
  DeleteFile( d + f );
end;

// Perform some initializations.  Return False to abort setup
function InitializeSetup: Boolean;
begin
  // Do not use any user defined vars in here such as {app}
  Result := not ( CheckProcessRunning( 'MyApp.exe',      'MyApp' ));
end;


function InitializeUninstall: Boolean;
begin
  Result := not ( CheckProcessRunning( 'MyApp.exe',      'MyApp' ));
end;

此方法适用于99％的情况，但用户有时会报告误报，并且无法继续进行安装.

This works for 99% of the cases but every now and then users report a false positive and are unable to proceed with installation.

用户报告在命令行tasklist /FI "IMAGENAME eq MyApp.exe" /FO CSV(由Pascal脚本使用)中没有返回任何内容.

Users report that in command line tasklist /FI "IMAGENAME eq MyApp.exe" /FO CSV (which is used by the Pascal script) is returning nothing.

脚本中是否存在错误，可能会导致误报，或者是否有比tasklist更好的方法来确定应用程序是否正在运行?

Is there an error in the script that may give false positives or is there a better way to determine if the app is running than tasklist?

1163786

如何确定执行InnoSetup安装脚本之前是否正在运行应用程序

问题描述

推荐答案