inno setup code 段常用代码(10)

WM_LBUTTONDOWN = 513;

WM_LBUTTONUP = 514;

procedure InitializeWizard();

begin

PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONDOWN,0,0); PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONUP,0,0);

// 其它代码

end;

参考二

复制内容到剪贴板代码:

[Code]

procedure CurPageChanged(CurPageID: Integer);

begin

if CurPageID = wpWelcome then

WizardForm.NextButton.OnClick(WizardForm);

end;

两者都能跳过欢迎页面

26、跳过准备安装界面

使用inno打包，我们会注意到，在选择好安装向导所指定的所有项目后，安装向导会进入一个准备安装的界面提示你所有的安装信息。此时，我们只能点击安装按钮，安装才可以继续。有时候，为了某种需要，我们可能不想让程序显示这个准备安装的界面，那么如何去掉这个界面呢？请看以下的代码：

[code]

function ShouldSkipPage(PageID: Integer): Boolean;

begin

if PageID=wpReady then

result := true;

end;

27、判断注册表检查程序时候存在

有时候，我们制作软件的汉化或者补丁程序，需要判断软件是否已安装，如果软件已安装就安装此补丁，如果软件未安装就终止安装程序并且提示用户安装原版软件后再运行此补丁，那么如何实现此功能呢，这里就给大家提供一个我的判断实力。通过检查注册表相关键值来判断指定程序是否已安装，以下是我制作的一个程序的增强补丁，需要在源程序安装的基础上进行安装，具体脚本判断如下：

[CODE]

var

MyKeyExist: boolean;