(2011-12-29 11:54:56)
转载▼标签：
innosetupit |
分类： 开发工具经验累积 |
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++工具，获取进程对应的窗口名或类名。