inno setup 脚本常用修改 转

http://blog.sina.com.cn/s/blog_72c2eb350100y2sa.html

有人提及想更换安装界面的图片，其实方法很简单，只需要修改inno setup安装目录下的WizModernImage.bmp和WizModernSmallImage.bmp两张图片就可以了。

只需在代码页，添加如下代码，即可实现页面的优化。

#define MyAppName "服务端"
#define MyAppVersion "1.3.2"
#define MyAppPublisher "ga526"
[Setup]
AppId={{59FB74DA-DBE1-41EF-B69A-31BE8324D98B}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName=c:\ga526\ga526\服务端
DisableDirPage=yes
DefaultGroupName=ga526服务端

DisableProgramGroupPage=yes
OutputDir=C:\Documents and Settings\Administrator\
OutputBaseFilename=server
SetupIconFile=D:\桌面\图标\ga526.ico
Compression=lzma
SolidCompression=yes
[Files]

//flags 不能少BeforeInstall: ChangeDisplay，这里是调用changedisplay

Source: "C:\Documents and Settings\Administrator\desktop\ga5262011121\*"; DestDir: "{app}"; Flags: recursesubdirs createallsubdirs; BeforeInstall: ChangeDisplay

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\服务端.exe"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}" //在“开始”--“程序”里，添加一个卸载的快捷方式Name: "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\程序"; Filename: "c:\我的程序.exe"  //这里为添加开机启动项，当然也可以通过修改注册表达到这个目的
Name: "C:\Documents and Settings\Administrator\桌面\服务端"; Filename: "{app}\服务端.exe";  //这里是添加桌面快捷方式

[run]
Filename: "{app}\服务端.exe"; flags:"nowait" //安装完成后，立即运行“服务端.exe”
[Code]
var
  DetailList: TNewListBox;
  newFileNameLabel: TNewStaticText;
  LastDir: string;

procedure InitializeWizard();
begin
//界面修改
WizardForm.WizardSmallBitmapImage.left:=426;
WizardForm.taskslist.color:=clWindow;
WizardForm.innerpage.color:=clWindow;
WizardForm.readymemo.color:=clWindow;
WizardForm.PAGENAMELABEL.Font.Color:= clGreen;

WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clGreen;
 WizardForm.WelcomeLabel2.Caption := ‘安装向导将在你的电脑上安装 {#MyAppName} ‘ + #13#10 +
         + #13#10 +
         ‘建议你在继续之前关闭所有其它应用程序。‘ + #13#10 +
         ‘‘ + #13#10 +
         ‘单击“下一步”继续，或单击“取消”退‘;
WizardForm.WELCOMELABEL1.Font.Color:= clGreen;
WizardForm.WELCOMELABEL1.top:= 31;
//WizardForm.WELCOMELABEL2.caption:=‘    请确认你所使用的为我司产品，否则，因软件与硬件‘
//+ #13#10 + + #13#10 + ‘不兼容造成任何问题，本公司不负任何法律责任。‘
//+ #13#10 + + #13#10 + ‘    建议你在继续安装之前，关闭杀毒软件，并把软件安‘
//+ #13#10 + + #13#10 + ‘装在C盘下‘+‘ 单击“下一步”继续安装本程序，单击“取‘
//+ #13#10 + + #13#10 + ‘消”退出安装。‘ ;
WizardForm.WELCOMELABEL2.top:= 91;
WizardForm.Color:= clwindow;
WizardForm.Bevel1.Left:=0;
WizardForm.Bevel1.top:=0;
WizardForm.Bevel1.width:=0;
 WizardForm.Bevel.Left:=0;
WizardForm.Bevel.top:=0;
WizardForm.selectdirbitmapimage.visible:=false;
WizardForm.selectgroupbitmapimage.visible:=false;
WizardForm.selectdirlabel.left:=0;
WizardForm.selectstartmenufolderlabel.left:=0;
WizardForm.Bevel.width:=0;
WizardForm.PageDescriptionLabel.Top:=40;

//页面修改完毕

//显示细节
  DetailList:= TNewListBox.Create(WizardForm);
  DetailList.Parent := WizardForm.InstallingPage;
  DetailList.Left := ScaleX(0);
  DetailList.Top := ScaleY(70);
  DetailList.Width := ScaleX(417);
  DetailList.Height := ScaleY(153);
  newFileNameLabel:= TNewStaticText.Create(WizardForm)      // 创建 FileNameLabel 的替代
  newFileNameLabel.Parent := WizardForm.InstallingPage;
  newFileNameLabel.Top := WizardForm.FileNameLabel.Top;
  newFileNameLabel.Left := WizardForm.FileNameLabel.Left;
  newFileNameLabel.Width := WizardForm.FileNameLabel.Width;
  WizardForm.FileNameLabel.Visible := false;               // 隐藏本来的 FileNameLabel

LastDir:= ‘‘;
end;
procedure ChangeDisplay;
var
  dn, fn: string;
  pct: Extended;
begin
  pct := (WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min)/(WizardForm.ProgressGauge.Max-WizardForm.ProgressGauge.Min)*100;
  dn:= ExpandConstant(ExtractFileDir(CurrentFileName));
  fn:= ExtractFileName(CurrentFileName);

WizardForm.StatusLabel.Caption:= ‘输出目录: ‘ + dn;
  newFileNameLabel.Caption:= ‘抽取: ‘ + fn + ‘ (‘ + IntToStr(Round(pct)) + ‘% 已完成)‘;
  if dn <> LastDir then
    begin
      DetailList.Items.Append(‘输出目录: ‘ + dn);
      LastDir:= dn;
    end;
  DetailList.Items.Append(‘抽取: ‘ + fn + ‘ (‘ + IntToStr(Round(pct)) + ‘% 已完成)‘);
  DetailList.ItemIndex := DetailList.Items.Count - 1;
end;

//显示细节完毕

////修改卸载文件

procedure CurStepChanged(CurStep: TSetupStep);
var
uninspath, uninsname, NewUninsName, MyAppName: string;
begin
if CurStep=ssDone then
begin
// 指定新的卸载文件名（不包含扩展名），请相应修改！
NewUninsName := ‘卸载服务端‘;
// 应用程序名称，与 [SEUTP] 段的 AppName 必须一致，请相应修改！
MyAppName := ‘服务端‘;
// 以下重命名卸载文件
uninspath:= ExtractFilePath(ExpandConstant(‘{uninstallexe}‘));
uninsname:= Copy(ExtractFileName(ExpandConstant(‘{uninstallexe}‘)),1,8);
RenameFile(uninspath + uninsname + ‘.exe‘, uninspath + NewUninsName + ‘.exe‘);
RenameFile(uninspath + uninsname + ‘.dat‘, uninspath + NewUninsName + ‘.dat‘);
// 以下修改相应的注册表内容
if RegKeyExists(HKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\‘ + MyAppName + ‘_is1‘) then
begin
RegWriteStringValue(HKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\‘ + MyAppName + ‘_is1‘, ‘UninstallString‘, ‘"‘ + uninspath + NewUninsName + ‘.exe"‘);
RegWriteStringValue(HKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\‘ + MyAppName + ‘_is1‘, ‘QuietUninstallString‘, ‘"‘ + uninspath + NewUninsName + ‘.exe" /SILENT‘);
end;
end;
end;

时间： 2024-10-07 06:07:06

inno setup 脚本常用修改 转的相关文章

Inno Setup的常用脚本

Inno Setup的常用脚本 分类: VC++神奇理论 2012-12-06 10:07 3234人阅读 评论(2) 收藏 举报 安装不同的目录: [Files] Source: "我的程序\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "我的程序\*"; DestDir: {cf}\我的程序; Flags: ignoreve

以前编写的inno setup脚本,涵盖了自定义安装界面,调用dll等等应用

原文:以前编写的inno setup脚本,涵盖了自定义安装界面,调用dll等等应用 ; Script generated by the Inno Setup 脚本向导. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! ; 为1的时候表示定义成试用版本 #define VERSION_TYPE ReadIni('Setup.ini', 'SetupType', 'type', '0') #if VER

inno setup脚本,涵盖了自定义安装界面,调用dll等等应用

; Script generated by the Inno Setup 脚本向导. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! ; 为1的时候表示定义成试用版本 #define VERSION_TYPE ReadIni('Setup.ini', 'SetupType', 'type', '0') #if VERSION_TYPE == "2" #define LIVE_VERSION

Inno Setup 脚本

给你个我用的例子: Delphi/Pascal code ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

使用inno setup打包程序完整脚本(.net框架检测,重复安装检测)

; 脚本由 Inno Setup 脚本向导 生成!; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档! #define MyAppName "小小鸟软件"#define MyAppVersion "2012.2.29"#define MyAppPublisher "小小鸟科技"#define MyAppURL "http://www.cnblogs.com/IT-SmallBird/"#define MyAp

Inno Setup自定义卸载文件名称的脚本

Inno Setup 支持在同一个目录中安装多个应用程序,所以根据安装的先后次序自动将卸载程序文件命名为 unins000.exe,unins001.exe,unins002.exe 等等.这是 INNO SETUP 自身的功能.请参阅 http://www.jrsoftware.org/iskb.php?uninstallername . 一旦安装过程结束后,你当然可以将卸载文件的名称改成任意其它的文件名,注意的是你除了要更改安装目录里面的 unins00X.exe 和 unins00X.da

Inno Setup

Inno Setup 是一款免费的window是安装制作软件,在功能设置和稳定性上的竞争力可能已经超过一些商业的安装程序制作软件.安装程序用编译脚本(.iss)的方式创建,脚本为类似.ini文件格式的ASCII码文本文件,根据产品需求可通过脚本控制程序安装位置.创建快捷方式等功能属性.这里稍整理下一些常用属性功能:1.Inno setup脚本demo2.安装协议默认同意3.组件选择框 4.跳过特定的安装界面5.信息包含换行符号6.删除文件和删除文件夹7.自定义BeveledLabel文字8.安装

Inno Setup 教程

参考博客:制作部署安装包:Inno Setup 参考资料:Inno Setup详细教程 参考资料:Innosetup使用详细全面教程 个人使用的 风铃夜思雨 的汉化版,版本:5.5.5 ; 脚本由 Inno Setup 脚本向导 生成! ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档! #define MyAppName "xxxxxxxx" #define MyAppName1 "xxxxxx" #define MyAppName2 &quo

Inno setup中定制安装路径

原文:Inno setup中定制安装路径 我的程序修改了安装界面,所以我的界面中提供了更改安装路径的方法. 用户修改后的路径会被传回inno setup脚本,脚本中需要做的事情如下: 1,写一个函数,来返回新的安装路径,如: function MyDestDir(SubDir:String):String; begin if SubDir = '' then Result := RootDestFolder else Result := RootDestFolder + '\'+ SubDir;