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)



15、if 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替换为你自己的路径即可

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