InnoSetup 打包代码 检测.netFramework

 InnoSutup打包工具下载

 

不带.netFramework

 

View Code
 1 ; 脚本用 Inno Setup 脚本向导 生成。
 2 ; 查阅文档获取创建 INNO SETUP 脚本文件详细资料!
 3 
 4 [Setup]
 5 ; 注意: AppId 的值是唯一识别这个程序的标志。
 6 ; 不要在其他程序中使用相同的 AppId 值。
 7 ; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
 8 AppId={{E47F55B6-5604-4430-A9BE-AE7ADAB5D08C}
 9 AppName=xxxxxxxxxxxxxxxx V1.1.8.8
10 AppVerName=xxxxxxxxxxxxxxxx V1.1.8.8
11 AppPublisher=xxxxxxxxxxxxxxxx
12 AppPublisherURL=http://www.sdzn.com/
13 AppSupportURL=http://www.sdzn.com/
14 AppUpdatesURL=http://www.sdzn.com/
15 DefaultDirName={pf}\LessonTool
16 DefaultGroupName=xxxxxxxxxxxxxxxx
17 OutputDir=C:\Documents and Settings\Administrator\桌面\备课工具_201200614\
18 OutputBaseFilename=xxxxxxxxxxxxxxxx_20120627_1645_不带dotFramework
19 Compression=lzma
20 SolidCompression=no
21 
22 [Languages]
23 Name: default; MessagesFile: compiler:Default.isl
24 
25 [Files]
26 Source: C:\Documents and Settings\Administrator\桌面\MMMMMM_201200614\package\Debug\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
27 ; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
28 Source: C:\Documents and Settings\Administrator\桌面\MMMMMM_201200614\package\dsoFramer\*; DestDir: {win}; Languages: 
29 Source: ..\..\..\..\Documents and Settings\Administrator\桌面\MMMMMM_201200614\package\Desktop4Bing\*; DestDir: {tmp}
30 
31 [Icons]
32 Name: {group}\{cm:UninstallProgram,xxxxxxxxxxxxxxxx}; Filename: {uninstallexe}
33 Name: {group}\xxxxxxxxxxxxxxxx; Filename: {app}\LessonTool.exe
34 Name: {commondesktop}\xxxxxxxxxxxxxxxx; Filename: {app}\LessonTool.exe
35 
36 [Run]
37 Filename: {win}\dsoFramer2.bat; WorkingDir: {tmp}; Flags: nowait runminimized
38 Filename: {tmp}\hong.exe; WorkingDir: {tmp}\
39 
40 [Messages]
41 WelcomeLabel1=xxxxxxxxxxxxxxxx V1.1.8.8
42 WelcomeLabel2=xxxxxxxxxxxxxxxx V1.1.8.8

 

 

覆盖.netFramework

 

View Code
 1 ; 脚本用 Inno Setup 脚本向导 生成。
 2 ; 查阅文档获取创建 INNO SETUP 脚本文件详细资料!
 3 
 4 [Setup]
 5 ; 注意: AppId 的值是唯一识别这个程序的标志。
 6 ; 不要在其他程序中使用相同的 AppId 值。
 7 ; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
 8 AppId={{E47F55B6-5604-4430-A9BE-AE7ADAB5D08C}
 9 AppName=XXXXXXXXXXXXXXXX V1.1.8.8
10 AppVerName=XXXXXXXXXXXXXXXX V1.1.8.8
11 AppPublisher=XXXXXXXXXXMMMMMMMMMMMMMM
12 AppPublisherURL=http://www.sdzn.com/
13 AppSupportURL=http://www.sdzn.com/
14 AppUpdatesURL=http://www.sdzn.com/
15 DefaultDirName={pf}\LessonTool
16 DefaultGroupName=XXXXXXXXXXXXXXXX
17 OutputDir=C:\Documents and Settings\Administrator\桌面\MMMMMMM_201200614\
18 OutputBaseFilename=XXXXXXXXXXXXXXXX_20120626_0935_覆盖dotFramework
19 Compression=lzma
20 SolidCompression=yes
21 
22 [Languages]
23 Name: default; MessagesFile: compiler:Default.isl
24 
25 [Files]
26 Source: C:\Documents and Settings\Administrator\桌面\MMMMMMM_201200614\package\Debug\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
27 ; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
28 Source: C:\Documents and Settings\Administrator\桌面\MMMMMMM_201200614\package\dsoFramer\*; DestDir: {win}; Languages: 
29 
30 [Icons]
31 Name: {group}\{cm:UninstallProgram,XXXXXXXXXXXXXXXX}; Filename: {uninstallexe}
32 Name: {group}\XXXXXXXXXXXXXXXX; Filename: {app}\LessonTool.exe
33 Name: {commondesktop}\XXXXXXXXXXXXXXXX; Filename: {app}\LessonTool.exe
34 
35 [Run]
36 Filename: {win}\dsoFramer2.bat; WorkingDir: {tmp}; Flags: nowait runminimized
37 Filename: {app}\upgrade\Temp\wic_x86_chs.exe; Parameters: /quiet /norestart; WorkingDir: {tmp}; Flags: runhidden; StatusMsg: 安装Wic,大约需要1分钟,请稍后……
38 Filename: {app}\upgrade\Temp\dotNetFx40_Full_x86_x64.exe; Parameters: /quiet /norestart; WorkingDir: {tmp}; Flags: runhidden; StatusMsg: 安装.NetFramework,大约需要15分钟,请稍后……
39 Filename: {app}\upgrade\Temp\vcredist_x86.exe; Parameters: /quiet /norestart; WorkingDir: {tmp}; StatusMsg: 安装VC++支持环境,大约需要1分钟,请稍后……
40 
41 ;[Registry]
42 ;Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows\CurrentVersion\Run; ValueType: expandsz; ValueName: ThinkTankBox; ValueData: {app}\Bin\ThinkTankBox.exe
43 
44 [Messages]
45 WelcomeLabel1=XXXXXXXXXXXXXXXX V1.1.8.8
46 WelcomeLabel2=XXXXXXXXXXXXXXXX V1.1.8.8

 

检测.netFramework

 注:若.netFramework不存在,则直接去安装程序--根据下方脚本编写

 
View Code
  1 ; 脚本用 Inno Setup 脚本向导 生成。
  2 ; 查阅文档获取创建 INNO SETUP 脚本文件详细资料!
  3 
  4 [Setup]
  5 ; 注意: AppId 的值是唯一识别这个程序的标志。
  6 ; 不要在其他程序中使用相同的 AppId 值。
  7 ; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
  8 AppId={{E47F55B6-5604-4430-A9BE-AE7ADAB5D08C}
  9 AppName=XXXXXXXXXXXXXXXX V1.1.8.8
 10 AppVerName=XXXXXXXXXXXXXXXX V1.1.8.8
 11 AppPublisher=MMMMMMMMMMMMMMMMMMMMMMM
 12 AppPublisherURL=http://www.sdzn.com/
 13 AppSupportURL=http://www.sdzn.com/
 14 AppUpdatesURL=http://www.sdzn.com/
 15 DefaultDirName={pf}\LessonTool
 16 DefaultGroupName=XXXXXXXXXXXXXXXX
 17 OutputDir=C:\Documents and Settings\Administrator\桌面\NNNNNNNNN_201200614\
 18 OutputBaseFilename=XXXXXXXXXXXXXXXX_20120626_0935_检测dotFramework
 19 Compression=lzma
 20 SolidCompression=no
 21 
 22 [Languages]
 23 Name: default; MessagesFile: compiler:Default.isl
 24 
 25 [Files]
 26 Source: C:\Documents and Settings\Administrator\桌面\NNNNNNNNN_201200614\package\Debug\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
 27 ; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
 28 Source: C:\Documents and Settings\Administrator\桌面\NNNNNNNNN_201200614\package\dsoFramer\*; DestDir: {win}; Languages: 
 29 
 30 [Icons]
 31 Name: {group}\{cm:UninstallProgram,XXXXXXXXXXXXXXXX}; Filename: {uninstallexe}
 32 Name: {group}\XXXXXXXXXXXXXXXX; Filename: {app}\LessonTool.exe
 33 Name: {commondesktop}\XXXXXXXXXXXXXXXX; Filename: {app}\LessonTool.exe
 34 
 35 
 36 [Run]
 37 Filename: {win}\dsoFramer2.bat; WorkingDir: {tmp}; Flags: nowait runminimized
 38 ;Filename: {app}\LiveUpdate\Temp\wic_x86_chs.exe; Parameters: /quiet; WorkingDir: {tmp}; Flags: runhidden; StatusMsg: 安装Wic
 39 ;Filename: {app}\LiveUpdate\Temp\dotNetFx40_Full_x86_x64.exe; Parameters: /quiet; WorkingDir: {tmp}; Flags: runhidden; StatusMsg: 安装.Net
 40 Filename: {app}\upgrade\Temp\vcredist_x86.exe; Parameters: /quiet /norestart; WorkingDir: {tmp}; StatusMsg: 安装VC++支持环境,大约需要1分钟,请稍后……
 41 
 42 
 43 [Code]
 44 function InitializeSetup: Boolean;
 45 
 46 var Path:string ;
 47 
 48     ResultCode: Integer;
 49 
 50     dotNetV4RegPath:string;
 51 
 52     dotNetV4PackFile:string;
 53 
 54     wic:string;
 55 
 56 begin
 57 
 58 
 59 dotNetV4RegPath:='SOFTWARE\Microsoft\.NETFramework\policy\v4.0';
 60 
 61 dotNetV4PackFile:='{src}\环境配置\dotNetFx40_Full_x86_x64.exe';
 62 
 63 wic:='{src}\环境配置\wic_x86_chs.exe';
 64 
 65     if RegKeyExists(HKLM, dotNetV4RegPath) then
 66 
 67     begin
 68 
 69         Result := true;
 70 
 71     end
 72 
 73     else
 74 
 75     begin
 76 
 77         Exec(ExpandConstant(wic), '/q /norestart', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
 78 
 79         if MsgBox('正在安装NNNNNNNNN必备组件.Net Framework 4.0,此过程将会持续15分钟左右,请稍后……', mbConfirmation, MB_YESNO) = idYes then
 80 
 81         begin
 82 
 83             Path := ExpandConstant(dotNetV4PackFile);
 84 
 85             if(FileOrDirExists(Path)) then
 86 
 87             begin
 88 
 89                 Exec(Path, '/q /norestart', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
 90 
 91             end
 92 
 93             else
 94 
 95             begin
 96 
 97                 if MsgBox('软件安装目录中没有.Net Framework的安装程序,跳过安装.Net Framework 4.0?', mbConfirmation, MB_YESNO) = idYes then
 98 
 99                 begin
100 
101                 Result := true;
102 
103                 end
104 
105             end
106 
107         end
108 
109         Result := true;
110 
111     end;
112 
113 end;

 

 
[Pascal脚本]检测.netFramework
若.netFramework不存在,则去安装包所在目录去寻zhaoFramework,然后安装
若Framework寻找不到,则去下载.netFramework,然后手动安装,然
后我们的程序才可以继续安装
 
View Code
  1 [Code]
  2 function InitializeSetup: Boolean;
  3 
  4 var Path:string ;
  5 
  6     ResultCode: Integer;
  7 
  8     dotNetV4RegPath:string;
  9 
 10     dotNetV4DownUrl:string;
 11 
 12     dotNetV4PackFile:string;
 13 
 14     wic:string;
 15 
 16 begin
 17 
 18 
 19 dotNetV4RegPath:='SOFTWARE\Microsoft\.NETFramework\policy\v4.0';
 20 
 21 dotNetV4DownUrl:='http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe';
 22 
 23 dotNetV4PackFile:='{src}\update\dotNetFx40_Full_x86_x64.exe';
 24 
 25 wic:='{src}\update\wic_x86_chs.exe';
 26 
 27   if RegKeyExists(HKLM, dotNetV4RegPath) then
 28 
 29   begin
 30 
 31     Result := true;
 32 
 33   end
 34 
 35   else
 36 
 37   begin
 38 
 39     Exec(ExpandConstant(wic), '/q /norestart', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
 40 
 41     if MsgBox('系统检测到您没有安装.Net Framework4.0运行环境,是否立即安装?', mbConfirmation, MB_YESNO) = idYes then
 42 
 43     begin
 44 
 45 
 46 
 47       Path := ExpandConstant(dotNetV4PackFile);
 48 
 49       if(FileOrDirExists(Path)) then
 50 
 51       begin
 52 
 53         Exec(Path, '/q /norestart', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
 54 
 55         if RegKeyExists(HKLM, dotNetV4RegPath) then
 56 
 57         begin
 58 
 59            Result := true;
 60 
 61         end
 62 
 63         else
 64 
 65         begin
 66 
 67            MsgBox('未能成功安装.Net Framework4.0运行环境,系统将无法运行,本安装程序即将退出!',mbInformation,MB_OK);
 68 
 69         end
 70 
 71       end
 72 
 73       else
 74 
 75       begin
 76 
 77         if MsgBox('软件安装目录中没有包含.Net Framework的安装程序,是否立即下载后安装?', mbConfirmation, MB_YESNO) = idYes then
 78 
 79         begin
 80 
 81           Path := ExpandConstant('{pf}\Internet Explorer\iexplore.exe');
 82 
 83           Exec(Path, dotNetV4DownUrl , '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
 84 
 85           MsgBox('请安装好.Net Framework4.0环境后,再运行本安装包程序!',mbInformation,MB_OK);
 86 
 87           Result := false;
 88 
 89         end
 90 
 91         else
 92 
 93         begin
 94 
 95           MsgBox('不下载安装.Net Framework4.0运行环境,系统将无法运行,本安装程序即将退出!',mbInformation,MB_OK);
 96 
 97           Result := false;
 98 
 99         end
100 
101       end
102 
103     end
104 
105     else
106 
107     begin
108 
109       MsgBox('没有安装.Net Framework4.0运行环境,系统将无法运行,本安装程序即将退出!',mbInformation,MB_OK);
110 
111       Result := false;
112 
113     end;
114 
115   end;
116 
117 end;

 

InnoSetup打包常用代码集锦

View Code
Inno setup常用代码【收藏】


1 、如何让协议许可页面默认选中我同意按钮
[code]
procedure InitializeWizard();
begin
WizardForm.LICENSEACCEPTEDRADIO.Checked := 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;
// 或者自定义安装向导小图片
[code]
procedure InitializeWizard();
begin
Wizardform.WizardSmallBitmapImage.left:= WizardForm.width-164; //自定义安装向导小图片显示位置
WizardForm.WizardSmallBitmapImage.width:=164; //自定义安装向导小图片宽度
Wizardform.PageNameLabel.width:= 495 - 164 -36; //这儿必须定义,数值根据图片宽度更改,显示软件名称的位置
Wizardform.PageDescriptionLabel.width:= 495 - 164 -42; //显示页面信息的位置
end;

3、自定BeveledLabel显示代码
[code]
procedure InitializeWizard();
begin
WizardForm.BeveledLabel.Enabled:=true; //允许显示
WizardForm.BeveledLabel.Font.Color:=$00058451;; //显示颜色
WizardForm.BeveledLabel.Font.Style := WizardForm.BeveledLabel.Font.Style + [fsBold]; //显示字体
WizardForm.BeveledLabel.Left:=5; //显示位置
end;

4、自定义安装向导图片
[code]
procedure InitializeWizard();
begin
Wizardform.WELCOMELABEL1.left:= 18; //自定义欢迎页面标题1显示位置
Wizardform.WELCOMELABEL2.left:= 18; //自定义欢迎页面标题2显示位置
Wizardform.WizardBitmapImage.left:= WizardForm.width-164 //自定义安装向导图片显示位置(显示大小,此处为居右显示)
end;

5、显示出组件选择框
[Types]
Name: full; Description: 推荐
Name: default; Description: 典型
Name: custom; Description: 自定义; Flags: iscustom
;告诉安装程序这个类型是自定义类型。必须定义iscustom这个参数,才能显示出组件选择框

6、定义[Messages]的颜色
[code]
procedure InitializeWizard();
begin
WizardForm.BeveledLabel.Enabled:= True;
WizardForm.BeveledLabel.Font.Color:= clblue;
end;

7、不显示一些特定的安装界面
[code]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if PageID=wpReady then
result := true;
end;
wpReady 是准备安装界面
PageID查询 INNO帮助中的 Pascal 脚本: 事件函数常量
预定义向导页 CurPageID 值
wpWelcome, wpLicense, wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir, wpSelectComponents, wpSelectProgramGroup, wpSelectTasks, wpReady, wpPreparing, wpInstalling, wpInfoAfter, wpFinished

8、换行符号
在 [Messages] 换行符号为%n
在 MsgBox 中换行符号为 #13#10 //#13 为回车字符

9、颜色代码
(1)一个值形如 $bbggrr, 这里的 rr, gg 和 bb 指定了两位的亮度值(以十六进制表示)分别为红色,绿色和蓝色。
(2)预定义的颜色名称:
clBlack(黑色),clMaroon(暗红),clGreen(绿色),clOlive(橄榄绿),
clNavy(深蓝),clPurple(紫色),clTeal(深青),clGray(灰色),
clSilver(浅灰),clRed(红色),clLime(浅绿),clYellow(黄色),
clBlue(蓝色),clFuchsia(紫红),clAqua(青绿),clWhite(白色)。

10、inno代码注释符号
; 实例 —— ; 分号
// 实例 —— // 双斜杠 多用在code段
{ } 实例 —— {大括号 多用在code段}
注释符号均在英文输入法状态下输入

11、在运行卸载程序前显示弹出式消息
[code]
function InitializeUninstall(): Boolean;
begin
if MsgBox('', mbConfirmation, MB_YESNO) = IDYES then
result:=true
else
result:=false;
end;

12、安装、卸载时判断是否程序正在运行,卸载完成时自动打开网页
[code]
var
ErrorCode: Integer;
IsRunning: Integer;
// 安装时判断客户端是否正在运行
function InitializeSetup(): Boolean;
begin
Result :=true; //安装程序继续
IsRunning:=FindWindowByWindowName('东方宽频网络电视');
while IsRunning<>0 do
begin
if Msgbox('安装程序检测到客户端正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装,或按“否”退出!', mbConfirmation, MB_YESNO) = idNO then
begin
Result :=false; //安装程序退出
IsRunning :=0;
end else begin
Result :=true; //安装程序继续
IsRunning:=FindWindowByWindowName('东方宽频网络电视');
end;
end;
end;
// 卸载时判断客户端是否正在运行
function InitializeUninstall(): Boolean;
begin
Result :=true; //安装程序继续
IsRunning:=FindWindowByWindowName('东方宽频网络电视');
while IsRunning<>0 do
begin
if Msgbox('安装程序检测到客户端正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装,或按“否”退出!', mbConfirmation, MB_YESNO) = idNO then
begin
Result :=false; //安装程序退出
IsRunning :=0;
end else begin
Result :=true; //安装程序继续
IsRunning:=FindWindowByWindowName('东方宽频网络电视');
end;
end;
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
usUninstall:
begin // 开始卸载
end;
usPostUninstall:
begin // 卸载完成
// MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);
// ...insert code to perform post-uninstall tasks here...
ShellExec('open', 'http://www.dreams8.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
end;
end;

13、 删除文件和删除文件夹
//删除文件 用 DeleteFile 只能删除一个文件,不能使用通配符来删除多个文件
DeleteFile(ExpandConstant('{app}\abc.exe'));
//删除所有文件及文件夹
DelTree(ExpandConstant('{app}'), True, True, False);

14、BorderStyle
TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin);
无边界式(bsNone) ,单边固定式(bsSingle),双边可变式(bsSizeable),对话框式(bsDialog)

15if else
function NextButtonClick(CurPageID: Integer): Boolean;
var
ResultCode: Integer;
begin
Result := True;
if (CurPageID = wpSelectDir) then
begin
MsgBox('AAAA', mbInformation, MB_OK);
end
else
begin
MsgBox('BBBB', mbInformation, MB_OK);
end;
end;

16、安装结束界面增加“设为首页”选项
[Tasks]
Name: changestartpage; Description: "设置vistaqq为默认主页"
[Registry]
Root: HKCU; Subkey: "Software\Microsoft\Internet Explorer\Main"; ValueType: string; ValueName: "Start Page"; ValueData: "http://www.vistaqq.com"; tasks: changestartpage

17、添加“关于”和网站链接按钮
[Code]
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.google.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
procedure AboutButtonOnClick(Sender: TObject);
begin
MsgBox(#13 'Vista 状态条风格盘符' #13 #13'本软件由jinn制作,希望各位登陆中天VIP工作室!' #13#13 '版权所有 (C) 中天VIP工作室', mbInformation, MB_OK);
end;
var
AboutButton, CancelButton: TButton;
URLLabel: TNewStaticText;
procedure InitializeWizard();
begin
{ Create the pages }
WizardForm.PAGENAMELABEL.Font.Color:= clred;
WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;
WizardForm.WELCOMELABEL1.Font.Color:= clGreen;
WizardForm.WELCOMELABEL2.Font.Color:= clblack;
CancelButton := WizardForm.CancelButton;
AboutButton := TButton.Create(WizardForm);
AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
AboutButton.Top := CancelButton.Top;
AboutButton.Width := CancelButton.Width;
AboutButton.Height := CancelButton.Height;
AboutButton.Caption := '&About';
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm;
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Caption := '中天VIP工作室';
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
{ Alter Font *after* setting Parent so the correct defaults are inherited first }
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
URLLabel.Font.Color := clBlue;
URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
end;

18、去掉安装程序左上角“关于安装程序”的代码
procedure InitializeWizard();
begin
WizardForm.BorderIcons:= [biMinimize];
end;
procedure CurPageChanged(CurPage: Integer);
begin
if CurPage=wpWelcome then
WizardForm.BorderIcons:= [biSystemMenu, biMinimize];
end;
或者
procedure InitializeWizard();
begin
WizardForm.BORDERICONS := [biHelp, biSystemMenu, biMinimize];
end;

19、自定义BeveledLabel文字
[Messages]
BeveledLabel=中天VIP工作室

20、自定义安装程序界面左上角“安装”文字
[message]
SetupAppTitle=需要的字
SetupWindowTitle=需要的字

21、自定义安装程序版本号
VersionInfoVersion=1.1
VersionInfoTextVersion=1.1

22、安装完成后显示新特性
[Run]
Filename: "{app}\WhatsNew.Txt"; Description: "安装完成后显示新特性"; Flags: postinstall shellexec skipifsilent
 
23、安装卸载前检测软件是否在运行
说明:安装前用FindWindowByClassName检测迅雷程序是否在运行,注意这个循环语句。
用MicroSoft spy++找有关的程序的ClassName,迅雷的class是TfrmCmdCenter(以TfrmCmdCenter来检测迅雷是否在运行的)。
[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;
 
24、自定义安装程序右上角图片大小
[code]
procedure InitializeWizard();
begin
WizardForm.WizardSmallBitmapImage.width:=150; //设置页眉图片的大小
WizardForm.WizardSmallBitmapImage.left:=WizardForm.width-150; //设置左边页眉留出的空隙
WizardForm.PAGENAMELABEL.width:=0; //设置标题文字显示的大小
WizardForm.PAGEDESCRIPTIONLABEL.width:=0; //设置标题文字显示的大小
end;
 
25、跳关安装程序的欢迎界面
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;
两者都能跳过欢迎页面
 
26、跳过准备安装界面
使用inno打包,我们会注意到,在选择好安装向导所指定的所有项目后,安装向导会进入一个准备安装的界面提示你所有的安装信息。此时,我们只能点击安装按钮,安装才可以继续。有时候,为了某种需要,我们可能不想让程序显示这个准备安装的界面,那么如何去掉这个界面呢?请看以下的代码:
[code]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if PageID=wpReady then
result := true;
end;
 
27、判断注册表检查程序时候存在
有时候,我们制作软件的汉化或者补丁程序,需要判断软件是否已安装,如果软件已安装就安装此补丁,如果软件未安装就终止安装程序并且提示用户安装原版软件后再运行此补丁,那么如何实现此功能呢,这里就给大家提供一个我的判断实力。通过检查注册表相关键值来判断指定程序是否已安装,以下是我制作的一个程序的增强补丁,需要在源程序安装的基础上进行安装,具体脚本判断如下:
[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;
 
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替换为你自己的路径即可
加入此代码的含义,就是检测目录下是否包括代码中指定的文件名的文件,如果有则当您运行程序后直接弹出提示告诉您软件已经存在,请先卸载。因此,这个代码有个局限性,就是只能检测固定的目录的文件,如果用户的文件并未安装到脚本所指定的检测目录,那么就将无法检测到。所以,判断也就失效了。

 

你可能感兴趣的:(framework)