Inno Setup入门（二十八）——使用dll（2）

许多程序在安装过程中，会有升级的可能，但是又有个问题就是，当前的程序正在运行，这样就不能达到升级的效果，因此有必要坚持并能够结束指定程序的过程，如何在安装包中实现呢？其实很简单，就是调用dll，关于dll，可以用C++或者VB编写，个人推荐用C++，这样编写的dll文件似乎在数据类型上能够和pascal更好地融合，代码很简单，这里我就不啰嗦了，把重点集中到调用上，下面是一个例子：

[code]

var

    myPage:TWizardPage;

    Button :TNewButton;

function GetPIDByName(pname:string):Integer;

external 'GetPIDByName@F:\Coll\Inno\KP.dll cdecl setuponly';   

function KillProcess(pid:DWORD):Integer;

external 'KillProcess@F:\Coll\Inno\KP.dll cdecl setuponly';   

 

procedure ButtonOnClick(Sender: TObject);

begin

    KillProcess(GetPIDByName('qq.exe'));

end;

 

procedure InitializeWizard();

begin

    myPage:=CreateCustomPage(wpWelcome, '标题：自定义页面', '描述：这是我的自定义页面');

    Button := TNewButton.Create(mypage);

    Button.Width := ScaleX(75);

    Button.Height := ScaleY(23);

    Button.Caption := 'TNewButton';

    Button.OnClick := @ButtonOnClick;

    Button.Parent := mypage.Surface;

end;

程序中引入了KP.dll中的两个函数，分别是通过进程名称获取其pid，以及结束指定pid的进程，在这个例子中，点击按钮就会结束QQ的进程。请注意调用过程如果写的函数没自己处理好堆栈问题，则必须使用 cdecl 方式，而不是默认方式的stdcall，否则可能会出现如下错误：

 这就是调用方式不对造成的结果，这一点需要格外留心。