Inno setup 常用代码收集

1.安装卸载前检测软件是否在运行
说明：安装前用FindWindowByClassName检测迅雷程序是否在运行，注意这个循环语句。
用MicroSoft spy++找有关的程序的ClassName，迅雷的class是TfrmCmdCenter（本人是以TfrmCmdCenter来检测迅雷是否在运行的）。
ps:其实本文没什么创新，只是因为我首次使用MicroSoft spy++来找程序的ClassName，发现那些只在前台运行的程序的ClassName非常好找，而那些可以缩小到系统托盘的软件例如qq和迅雷等就有点麻烦了，没有一定的经验还真不好找，这里要特别感谢似水老大为我指明方向，同时特别感谢9esu朋友给予我的巨大帮助，一并表示感谢。发此贴仅为了让那些刚开始使用此工具的朋友有个参照。好了，闲言少叙，以下是代码。

 

[Code]
var
is_value: integer;
function InitializeSetup(): Boolean;
begin
Result :=true;
is_value:=FindWindowByClassName(‘TfrmCmdCenter’);
while is_value<>0 do
begin
if Msgbox(‘安装程序检测到您的迅雷软件当前正在运行。’ #13#13 ‘您必须先关闭它然后单击“是”继续安装，或按“否”退出！’, mbConfirmation, MB_YESNO) = idNO then
begin
Result :=false; //安装程序退出
is_value :=0;
end else begin
Result :=true; //安装程序继续
is_value:=FindWindowByClassName(‘TfrmCmdCenter’);
end;
end;
end;

function InitializeUninstall(): Boolean;
begin
is_value:=FindWindowByClassName(‘TfrmCmdCenter’);
if is_value<>0 then begin
MsgBox(‘卸载程序检测到您的迅雷软件当前正在运行。’ #13#13 ‘为了更安全完整的卸载，您必须关闭它在进行卸载操作！’, mbError, MB_OK);
Result :=false;
end else Result :=true;
end;

2.自定义安装程序右上角图片大小
[code]
procedure InitializeWizard();
begin
WizardForm.WizardSmallBitmapImage.width:=150; //设置页眉图片的大小
WizardForm.WizardSmallBitmapImage.left:=WizardForm.width-150; //设置左边页眉留出的空隙
WizardForm.PAGENAMELABEL.width:=0; //设置标题文字显示的大小
WizardForm.PAGEDESCRIPTIONLABEL.width:=0; //设置标题文字显示的大小
end;

3.跳关安装程序的欢迎界面
INNO 的设计中本身可以跳过所有向导页面（用 ShouldSkipPage 函数），但是唯独不能跳过欢迎页面，据说作者是有意为了防止该功能被滥用，即产生完全没有界面的在后台运行的安装程序。
要跳过欢迎页面，只能调用系统的功能。

参考一
复制内容到剪贴板代码:
[Code]
const
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;
两者都能跳过欢迎页面

4.跳过准备安装界面
使用inno打包，我们会注意到，在选择好安装向导所指定的所有项目后，安装向导会进入一个准备安装的界面提示你所有的安装信息。此时，我们只能点击安装按钮，安装才可以继续。有时候，为了某种需要，我们可能不想让程序显示这个准备安装的界面，那么如何去掉这个界面呢？请看以下的代码：
[code]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if PageID=wpReady then
result := true;
end;

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

function InitializeSetup(): boolean;
begin
MyKeyExist:= true;
if Not RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE/Adobe/Audition/3.0', 'ApplicationPath') then
begin
MyKeyExist:= false;
MsgBox('安装程序检测到您的系统内没有安装Adobe Audition3.0，请先安装软件在运行此补丁。', mbInformation, MB_OK);
end;
Result:= MyKeyExist;
end;

6.如何让协议许可页面默认选中我同意按钮
为了让初学者更方便的安装软件，有时候我们会发现一些使用inno setup打包的程序在许可页面默认已经选中了我同意按钮，只需要点击下一步即可继续安装，那么这个效果是如何实现的呢？下面是代码：
[code]
procedure InitializeWizard();
begin
WizardForm.LICENSEACCEPTEDRADIO.Checked := true;
end;

7.安装前检测是否已经安装
function InitializeSetup(): boolean;
begin
Result := true;
if FileExists(ExpandConstant('{pf}/我的程序/我的程序.exe')) then
begin
MsgBox('程序已经安装在你的系统中了，请先卸载！', mbInformation, MB_OK );
Result := false;
end;
end;
其中{pf}/我的程序/我的程序.exe替换为你自己的路径即可
加入此代码的含义，就是检测目录下是否包括代码中指定的文件名的文件，如果有则当您运行程序后直接弹出提示告诉您软件已经存在，请先卸载。因此，这个代码有个局限性，就是只能检测固定的目录的文件，如果用户的文件并未安装到脚本所指定的检测目录，那么就将无法检测到。所以，判断也就失效了。