Question

我已阅读以下帖子。我的代码看起来完全相同，但不起作用：
Inno Setup Checking for running process

我从http://www.vincenzo.net/isxkb/index.php?title=PSVince

复制了示例

但是这个例子也不起作用，即使我改变了这样的代码：

[Code]
function IsModuleLoaded(modulename: AnsiString):  Boolean;
external 'IsModuleLoaded@files:psvince.dll stdcall';

代码始终返回false（程序未运行，即使它正在运行）。在Windows 2008 R2和Windows 7上测试。

实际上我想查看tomcat5.exe是否正在运行。所以我认为我无法使用AppMutex。

我也见过https://code.google.com/p/psvince/source/detail?r=5
但我找不到任何有关该DLL兼容性的事实。

完整代码：

[Files]
Source: psvince.dll; Flags: dontcopy

[Code]
function IsModuleLoaded(modulename: AnsiString ):  Boolean;
external 'IsModuleLoaded@files:psvince.dll stdcall';

function InitializeSetup(): Boolean;
begin
  if(IsModuleLoaded( 'notepad.exe' )) then
    begin
      MsgBox('Running', mbInformation, MB_OK);
      Result := false;
    end
  else
    begin
      MsgBox('Not running', mbInformation, MB_OK);
      Result := true;
    end
end;

Answer 1

您可以使用WMI和Win32_Process。

尝试将此功能添加到Inno Setup脚本中。

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;

Answer 2

我没有足够的代表点来为RRUZ的优秀答案添加评论，所以我只是在这里添加。确保捕获异常，否则安装程序将无法访问无法访问该服务的用户。

try
      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);
except
end;

Answer 3

这有一个更简单的解决方案;使用RRUZ建议的代码取决于您是否知道安装路径，如果您在安装程序初始化时运行，则您不知道这一点。

最好的解决方案是使用FindWindowByClassName。它确实有一个先决条件，即您有一个始终打开的主表单，但如果您有各种可以打开的表单，则可以始终运行多个检查。不言而喻，您需要使类名尽可能唯一！

示例功能：

function IsAppRunning(): Boolean;
begin                                                                
  Result := (FindWindowByClassName( '{#AppWndClassName}') <> 0) or (FindWindowByClassName( '{#AltAppWndClassName}') <> 0);
end;

#precompile引用在安装脚本之前定义...

#define AppWndClassName "TMySplashScreen"
#define AltAppWndClassName "TMyMainForm"

然后在代码部分中，您将其调用如下：

function InitializeUninstall(): Boolean;
begin
  // check if application is running
  if IsAppRunning() then
  begin
    MsgBox( 'An Instance of MyFantasticApp is already running. - Please close it and run the uninstall again.', mbError, MB_OK );
    Result := false;
  end
  else 
    Result := true;
End;

如果你需要比这更复杂的东西，那么你需要研究互斥体，但上面代码的美妙之处在于它简单，快速，只要你有合理的独特类名，就像其他任何东西一样好。

（虽然不可否认，如果你在多用户系统上运行，那么如果它在另一个用户的会话中，这可能找不到窗口。但正如我所说，对于大多数简单的情况，这样会好的。）

Answer 4

一个简单的解决方案可能是尝试删除exe文件。我假设您无论如何都要更换或卸载它。如果该文件存在并且删除它失败则可能正在运行。

Answer 5

不幸的是，根据我的观察，psvince.dll无法查询64位正在运行的进程，因为我不是它的开发人员，我不知道如何解决它在Windows x64上工作。

我的解决方法是使用自制的命令行实用程序processviewer.exe

http://github.com/lextm/processviewer

这已经在{7}}

中的Windows 7 x64上进行了测试

Touch Mouse Mate

如果进程在Windows 2008 R2 64bit上运行，如何查看Inno Setup？

5 个答案: