Inno Setup 检查正在运行的进程

Question

我有一个 Inno Setup 项目，我想在卸载它之前检查应用程序是否实际运行。我尝试了很多方法，但在 Windows 7 中运行时，它们都以静默方式失败。例如，使用psvince.dll 检查notepad.exe 进程的以下脚本始终返回false，无论记事本是否正在运行。

我在 C# 应用程序中使用psvince.dll 来检查它是否在 Windows 7 下工作并且没有任何问题。所以我最好的猜测是安装程序无法在启用 UAC 的情况下正确运行。

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

function InitializeSetup(): Boolean;
begin
   if(Not IsModuleLoaded('ePub.exe')) then
   begin
       MsgBox('Application is not running.', mbInformation, MB_OK);
       Result := true;
   end
   else
   begin
       MsgBox('Application is already running. Close it before uninstalling.', mbInformation, MB_OK);
       Result := false;
   end
end;

Answer 1

您使用的是 Unicode Inno 设置吗？如果你是，它应该说

function IsModuleLoaded(modulename: AnsiString): Boolean;

因为 psvince.dll 不是 Unicode dll。

该示例还检查 epub.exe，而不是 notepad.exe。

Answer 2

你也可以尝试使用WMIService：

procedure FindApp(const AppName: String);
var
  WMIService: Variant;
  WbemLocator: Variant;
  WbemObjectSet: Variant;
begin
  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  WMIService := WbemLocator.ConnectServer('localhost', 'root\CIMV2');
  WbemObjectSet :=
    WMIService.ExecQuery('SELECT * FROM Win32_Process Where Name="' + AppName + '"');
  if not VarIsNull(WbemObjectSet) and (WbemObjectSet.Count > 0) then
  begin
    Log(AppName + ' is up and running');
  end;
end;

Answer 3

Inno Setup 实际上有一个 AppMutex 指令，它记录在帮助中。实现它需要 2 行代码。

在您的 iss 文件的 [Setup] 部分中添加：

AppMutex=MyProgramsMutexName

然后在您的应用程序启动期间添加这行代码：

CreateMutex(NULL, FALSE, "MyProgramsMutexName");

Answer 4

您可以使用此代码检查 notepad.exe 是否正在运行。

[Code]
function IsAppRunning(const FileName: string): Boolean;
var
  FWMIService: Variant;
  FSWbemLocator: 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('notepad.exe');
  if not Result then
  MsgBox('notepad.exe is running. Please close the application before running the installer ', mbError, MB_OK);
end;