注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

分享,态度 ·~~

—— 十年太长,五年;如果可以回到五年前,你最想对那时候的自己说什么?

 
 
 

日志

 
 

Inno Setup的常用脚本  

2010-01-08 09:08:00|  分类: InnoSetup |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
安装不同的目录:
[Files]
Source: "我的程序\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "我的程序\*"; DestDir: {cf}\我的程序; Flags: ignoreversion recursesubdirs createallsubdirs
开始菜单快捷方式:
[Icons]
Name: "{group}\我的程序名称"; Filename: "{app}\我的程序.exe" ;WorkingDir: "{app}"

桌面快捷方式:
[Icons]
Name: "{userdesktop}\我的程序名称"; Filename: "{app}\我的程序.exe"; WorkingDir: "{app}"

开始菜单卸载快捷方式:
[Icons]
Name: "{group}\{cm:UninstallProgram,我的程序}"; Filename: "{uninstallexe}"

安装完后选择运行:
[Run]
Filename: "{app}\我的程序.exe"; Description: "{cm:LaunchProgram,我的程序名称}"; Flags: nowait postinstall skipifsilent

安装完后自动运行:
[Run]
Filename: "{app}\我的程序.exe";

在界面左下角加文字:
[Messages]
BeveledLabel=你的网站名称

选择组件安装:(组件1的Flags: fixed为必须安装)
[Types]
Name: "full"; Description: "选择安装"; Flags: iscustom
[Components]
Name: 组件1文件夹; Description: 组件1名称; Types: full; Flags: fixed
Name: 组件2文件夹; Description: 组件2名称; Types: full
Name: 组件3文件夹; Description: 组件3名称; Types: full
[Files]
Source: "E:\组件1文件夹\我的程序.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\组件1文件夹\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: 组件1文件夹
Source: "E:\组件2文件夹\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: 组件2文件夹
Source: "E:\组件3文件夹\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: 组件3文件夹

添加关于按钮:
[Code]
{注意:关于按钮单击后执行的过程,一定要写在InitializeWizard()过程之前}
procedure ButtonAboutOnClick(Sender: TObject);
begin
MsgBox('关于对话框。'+#13#10+'另起一行', mbInformation, MB_OK);//显示对话框
end;
{初始化安装向导时会触发的过程,这个过程的名字是INNO内部定义的,不能修改}
procedure InitializeWizard();
begin
with TButton.Create(WizardForm) do//在WizardForm上面创建一个按钮
begin
Left := 32;//按钮距WizardForm左边的距离
Top := 302;//按钮距WizardForm上边的距离
Width := WizardForm.CancelButton.Width;//按钮的宽度,这里定义跟'取消'按钮等宽
Height := WizardForm.CancelButton.Height;//按钮的高度
Caption := '关于(&A)...';//按钮上的文字
Font.Name:='宋体';//按钮文字的字体
Font.Size:=9;//9号字体
OnClick := @ButtonAboutOnClick;//单击按钮触发的过程,就是前面的'ButtonAboutOnClick'过程,注意前面不要漏掉
Parent := WizardForm;//按钮的父组件,也就是按钮'载体',这里是WizardForm(安装向导窗体)
end;
end;

设置界面文字颜色:
[Code]
procedure InitializeWizard();
begin
WizardForm.WELCOMELABEL1.Font.Color:= clGreen;//设置开始安装页面第一段文字的颜色为绿色
WizardForm.WELCOMELABEL2.Font.Color:= clOlive;//设置开始安装页面第二段文字的颜色为橄榄绿
WizardForm.PAGENAMELABEL.Font.Color:= clred;//设置许可协议页面第一段文字的颜色为红色
WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue; //设置许可协议页面第二段文字的颜色为蓝色
WizardForm.MainPanel.Color:= clWhite;//设置窗格的颜色为白色
end;

判断所选安装目录中原版主程序是否存在:
[Code]
function NextButtonClick(CurPage: Integer): Boolean;
begin
Result:= true;
if CurPage=wpSelectDir then
if not FileExists(ExpandConstant('{app}\主程序.exe')) then
begin
MsgBox('安装目录不正确!', mbInformation, MB_OK );
Result := false;
end;
end;
注:
{app}表示默认安装路径为C:\Program Files\我的程序\
{cf}表示默认安装路径为C:\Program Files\Common Files\我的程序\

颜色:
clBlack(黑色),clMaroon(暗红),clGreen(绿色),clOlive(橄榄绿),clNavy(深蓝),clPurple(紫色),clTeal(深青),clGray(灰色),clSilver(浅灰),clRed(红色),clLime(浅绿),clYellow(黄色),clBlue(蓝色),clFuchsia(紫红),clAqua(青绿),clWhite(白色)。te(白色)。
增加path路径:
[Register]
Root: HKLM; Subkey: "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; ValueName: "Path"; ValueData: "{olddata};{app}";Flags:uninsdeletekey
 
  评论这张
 
阅读(2902)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017