Inno Setup 在安装程序开始前和卸载程序开始前，检查并关闭运行的进程

 

(2011-12-29 11:54:56)

转载▼

标签： innosetup it

分类： 开发工具经验累积

Inno Setup在安装程序前，若是有使用的进程在运行，会有错误提示，而使得Installer没法写入。

一样，在卸载程序前，若是有使用的进程仍在运行，会有错误提示，以后卸载不干净，须要手动清除。

 

因此，只要在安装程序前或者卸载程序前，检查并关闭掉用到的正在运行的进程，就没有问题啦。

 

[code]

// 安装前检查关闭**进程

procedure CurStepChanged(CurStep: TSetupStep);

var appWnd: HWND;

begin

  if CurStep = ssInstall then

  begin

     // 检查××进程是否在运行，是则关闭进程

     appWnd := FindWindowByWindowName('进程窗口名称');

     if (appWnd <> 0) then

     begin

        PostMessage(appWnd, 18, 0, 0);       // quit

     end;

  end;

end;

 

// 卸载前检查关闭**进程

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

var appWnd: HWND;

begin

   // 检查**进程是否在运行，是则关闭进程

   appWnd := FindWindowByWindowName('进程窗口名称');

   if (appWnd <> 0) then

   begin

      PostMessage(appWnd, 18, 0, 0);       // quit

   end;

end;

 

其中，Pascal提供了两个函数用于查找进程窗口： FindWindowByClassName和 FindWindowByWindowName，前者是根据类名，后者是根据窗口名，查找与之匹配的顶层窗口句柄。

能够开启进程，而后使用spy++工具，获取进程对应的窗口名或类名。