0

我一直在尝试在我的 installshield 安装程序中检测 excel 进程。我有一个自定义操作，它在 appsearch 之后运行，如果它找到进程并弹出一个窗口并向用户显示警告。

我尝试使用在 installsite.org 上找到的一些旧示例并使用 findWindow() 调用。似乎都没有在进程列表中找到 excel.exe。

这是我在尝试 findwindow 时使用的一段代码

export prototype MyTestFunction(HWND);

function MyTestFunction(hMSI)
HWND nHwnd;
begin   
    nHwnd = FindWindow("EXCEL", "");
    if (nHwnd != 0) then
    MessageBox("found excel", WARNING);
    SendMessage(nHwnd, WM_CLOSE, 0, 0);
    else
    MessageBox("cant find excel", WARNING);
    endif;

end;

请注意，无论应用程序是打开还是关闭，似乎都只会触发 else 块。

我已经尝试了几种不同的变体，主要是用不同的大小写、扩展名和版本替换“excel”。似乎没有任何东西检测到窗口。我使用了 Spy++，它报告说该窗口是以当前打开的笔记本的名称命名的，这使事情变得复杂，因为我无法知道用户可以打开什么。

我愿意接受这里的建议。此解决方案的唯一要求是它必须能够作为自定义操作或安装条件的一部分从 Installshield 中运行。

4

3 回答 3

1

您可以使用 vbscript 自定义操作。如果您希望它作为安装条件的一部分，您可以在 UISequence 或 ExecuteSequence（或两者）的开头运行此 CA。如果要停止安装过程，请在 vbscript 函数中添加代码并将自定义操作的“返回处理”选项配置为“同步（检查退出代码）”。

这是我的脚本：

Public Function StopProcess

Dim objWMIService, objProcess, colProcess
Dim strComputer, executableFileName
Const IDABORT = 3    

strComputer = "."
executableFileName = "excel.exe"

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & executableFileName & "'")

For Each  objProcess in colProcess
   objProcess.Terminate()
   ' OR
   StopProcess = IDABORT
   Exit for
Next
End function
于 2015-09-22T14:04:01.050 回答
0

显然，试图通过查找关联窗口来确定进程是否正在运行有其缺陷。

我的建议是检测 Excel.exe 的进程是否正在运行。它将涉及枚举系统上的进程。相应地修改您的代码。使用 C++ 更容易做到这一点，但有许多可用的示例向您展示如何实现我刚才所说的。

https://community.flexerasoftware.com/archive/index.php?t-162141.html

https://community.flexerasoftware.com/archive/index.php?t-188807.html

拿

于 2015-07-22T05:12:58.457 回答
0

我们也可以编写一个 InstallScript 代码来实现这一点。请参考以下代码：

function CheckRunningProcessAndTerminate(hMSI)
// To Do:  Declare local variables.
OBJECT wmi,objProc;
STRING szProcessName;

begin
// To Do:  Write script that will be executed when MyFunction is called.
szProcessName = "Excel.exe";

set wmi = CoGetObject("winmgmts://./root/cimv2", "");
set objProc = wmi.ExecQuery("Select * from Win32_Process where Name = '" + szProcessName + "'");

if (objProc.count > 0) then
    MessageBox("Process is running.", INFORMATION);
    //kill proces
    TerminateProcesses(szProcessName); 
    //objProc.Terminate(); //I tried this, but it didn't worked.
else
    MessageBox("Process is not running.", INFORMATION);
endif;

 end;
于 2018-03-02T07:58:33.987 回答