安装包制作的一点心得

做安装包同事放假回家了，但最后一天需要修改安装包，需要在安装前先扫描一下进程，删除已经存在的进程

，(不是询问用户，而是偷偷的干掉，没有窗口)。

一年前做过这方面的安装包，现在只好硬着头皮上了。

google了一下，知道windows系统目录下自带一个程序taskkill.exe，于是,很快写下了这个方法:

function KillTestProcess():Boolean;

var

ResultCode : Integer;

begin

Result := Exec(ExpandConstant('{sys}\taskkill.exe'), '/f /im TestProcess.exe', '', SW_HIDE, ewNoWait, ResultCode);

end;

编译，安装。进程被成功杀死。于是发布。

但是，等等，很快发现有人报告安装时找不到dll:FrameDyn.dll。

还是老规拒，google一下。

差FrameDyn.dll的人还真不少，我们不知道用户那里倒底发生了什么事，会没有这一动态库，但做为一个大众软件，我

们的目标就是让用户双击，然后就一直下一步下去，然后成功安装。因为，你每弹出的一个框，都足以让一位用户颤抖

。做为程序员，我们的目标是处理每一个已知错误。

很明显，现在我们眼前有两个解决方法:

1,下载FrameDyn.dll,在安装是判断，用户的系统目录下是否存在FrameDyn.dll，如果不存在，把这个dll复制过去，然

后再利用TaskKill.exe去杀进程，当然，在做这些事前，我建议利用Denpandency工具看一下这个taskkill.exe还有没

有依赖别的动态库。

2，自己定一个SDK程序，干掉这个要删除的进程。我就使用了这一方法。然后重写KillTestProcess函数。

1function KillTestProcess():Boolean;

2var

3 ResultCode : Integer;

4begin

5 Result := false;

6 ExtractTemporaryFile('KillTestProcess.exe');

7 if Exec(ExpandConstant('{tmp}\KillTestProcess.exe'),'','', SW_HIDE, ewWaitUntilTerminated,

8

9ResultCode) then

begin

Result := true;

end;

DeleteFile(ExpandConstant('{tmp}\KillTestProcess.exe'));

end;

问题解决,安心回家过年!