inno setup code 段常用代码(11)

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;

28、如何让协议许可页面默认选中我同意按钮

为了让初学者更方便的安装软件，有时候我们会发现一些使用inno setup打包的程序在许可页面默认已经选中了我同意按钮，只需要点击下一步即可继续安装，那么这个效果是如何实现的呢？下面是代码：

[code]

procedure InitializeWizard();

begin

WizardForm.LICENSEACCEPTEDRADIO.Checked := true;

end;

29、安装前检测是否已经安装

function InitializeSetup(): boolean;

begin

Result := true;

if FileExists(ExpandConstant('{pf}\我的程序\我的程序.exe')) then

begin

MsgBox('程序已经安装在你的系统中了，请先卸载！', mbInformation, MB_OK ); Result := false;

end;

end;

其中{pf}\我的程序\我的程序.exe替换为你自己的路径即可

加入此代码的含义，就是检测目录下是否包括代码中指定的文件名的文件，如果有则当您运行程序后直接弹出提示告诉您软件已经存在，请先卸载。因此，这个代码有个局限性，就是只能检测固定的目录的文件，如果用户的文件并未安装到脚本所指定的检测目录，那么就将无法检测到。所以，判断也就失效了。