学步园

 InnoSutup打包工具下载

 

不带.netFramework

 

; 脚本用 Inno Setup 脚本向导 生成。
; 查阅文档获取创建 INNO SETUP 脚本文件详细资料！

[Setup]
; 注意: AppId 的值是唯一识别这个程序的标志。
; 不要在其他程序中使用相同的 AppId 值。
; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
AppId={{E47F55B6-5604-4430-A9BE-AE7ADAB5D08C}
AppName=xxxxxxxxxxxxxxxx V1.1.8.8
AppVerName=xxxxxxxxxxxxxxxx V1.1.8.8
AppPublisher=xxxxxxxxxxxxxxxx
AppPublisherURL=http://www.sdzn.com/
AppSupportURL=http://www.sdzn.com/
AppUpdatesURL=http://www.sdzn.com/
DefaultDirName={pf}\LessonTool
DefaultGroupName=xxxxxxxxxxxxxxxx
OutputDir=C:\Documents and Settings\Administrator\桌面\备课工具_201200614\
OutputBaseFilename=xxxxxxxxxxxxxxxx_20120627_1645_不带dotFramework
Compression=lzma
SolidCompression=no

[Languages]
Name: default; MessagesFile: compiler:Default.isl

[Files]
Source: C:\Documents and Settings\Administrator\桌面\MMMMMM_201200614\package\Debug\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
Source: C:\Documents and Settings\Administrator\桌面\MMMMMM_201200614\package\dsoFramer\*; DestDir: {win}; Languages: 
Source: ..\..\..\..\Documents and Settings\Administrator\桌面\MMMMMM_201200614\package\Desktop4Bing\*; DestDir: {tmp}

[Icons]
Name: {group}\{cm:UninstallProgram,xxxxxxxxxxxxxxxx}; Filename: {uninstallexe}
Name: {group}\xxxxxxxxxxxxxxxx; Filename: {app}\LessonTool.exe
Name: {commondesktop}\xxxxxxxxxxxxxxxx; Filename: {app}\LessonTool.exe

[Run]
Filename: {win}\dsoFramer2.bat; WorkingDir: {tmp}; Flags: nowait runminimized
Filename: {tmp}\hong.exe; WorkingDir: {tmp}\

[Messages]
WelcomeLabel1=xxxxxxxxxxxxxxxx V1.1.8.8
WelcomeLabel2=xxxxxxxxxxxxxxxx V1.1.8.8

 

 

覆盖.netFramework

 

; 脚本用 Inno Setup 脚本向导 生成。
; 查阅文档获取创建 INNO SETUP 脚本文件详细资料！

[Setup]
; 注意: AppId 的值是唯一识别这个程序的标志。
; 不要在其他程序中使用相同的 AppId 值。
; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
AppId={{E47F55B6-5604-4430-A9BE-AE7ADAB5D08C}
AppName=XXXXXXXXXXXXXXXX V1.1.8.8
AppVerName=XXXXXXXXXXXXXXXX V1.1.8.8
AppPublisher=XXXXXXXXXXMMMMMMMMMMMMMM
AppPublisherURL=http://www.sdzn.com/
AppSupportURL=http://www.sdzn.com/
AppUpdatesURL=http://www.sdzn.com/
DefaultDirName={pf}\LessonTool
DefaultGroupName=XXXXXXXXXXXXXXXX
OutputDir=C:\Documents and Settings\Administrator\桌面\MMMMMMM_201200614\
OutputBaseFilename=XXXXXXXXXXXXXXXX_20120626_0935_覆盖dotFramework
Compression=lzma
SolidCompression=yes

[Languages]
Name: default; MessagesFile: compiler:Default.isl

[Files]
Source: C:\Documents and Settings\Administrator\桌面\MMMMMMM_201200614\package\Debug\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
Source: C:\Documents and Settings\Administrator\桌面\MMMMMMM_201200614\package\dsoFramer\*; DestDir: {win}; Languages: 

[Icons]
Name: {group}\{cm:UninstallProgram,XXXXXXXXXXXXXXXX}; Filename: {uninstallexe}
Name: {group}\XXXXXXXXXXXXXXXX; Filename: {app}\LessonTool.exe
Name: {commondesktop}\XXXXXXXXXXXXXXXX; Filename: {app}\LessonTool.exe

[Run]
Filename: {win}\dsoFramer2.bat; WorkingDir: {tmp}; Flags: nowait runminimized
Filename: {app}\upgrade\Temp\wic_x86_chs.exe; Parameters: /quiet /norestart; WorkingDir: {tmp}; Flags: runhidden; StatusMsg: 安装Wic,大约需要1分钟，请稍后……
Filename: {app}\upgrade\Temp\dotNetFx40_Full_x86_x64.exe; Parameters: /quiet /norestart; WorkingDir: {tmp}; Flags: runhidden; StatusMsg: 安装.NetFramework,大约需要15分钟，请稍后……
Filename: {app}\upgrade\Temp\vcredist_x86.exe; Parameters: /quiet /norestart; WorkingDir: {tmp}; StatusMsg: 安装VC++支持环境,大约需要1分钟,请稍后……

;[Registry]
;Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows\CurrentVersion\Run; ValueType: expandsz; ValueName: ThinkTankBox; ValueData: {app}\Bin\ThinkTankBox.exe

[Messages]
WelcomeLabel1=XXXXXXXXXXXXXXXX V1.1.8.8
WelcomeLabel2=XXXXXXXXXXXXXXXX V1.1.8.8

 

检测.netFramework

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

 

; 脚本用 Inno Setup 脚本向导 生成。
; 查阅文档获取创建 INNO SETUP 脚本文件详细资料！

[Setup]
; 注意: AppId 的值是唯一识别这个程序的标志。
; 不要在其他程序中使用相同的 AppId 值。
; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
AppId={{E47F55B6-5604-4430-A9BE-AE7ADAB5D08C}
AppName=XXXXXXXXXXXXXXXX V1.1.8.8
AppVerName=XXXXXXXXXXXXXXXX V1.1.8.8
AppPublisher=MMMMMMMMMMMMMMMMMMMMMMM
AppPublisherURL=http://www.sdzn.com/
AppSupportURL=http://www.sdzn.com/
AppUpdatesURL=http://www.sdzn.com/
DefaultDirName={pf}\LessonTool
DefaultGroupName=XXXXXXXXXXXXXXXX
OutputDir=C:\Documents and Settings\Administrator\桌面\NNNNNNNNN_201200614\
OutputBaseFilename=XXXXXXXXXXXXXXXX_20120626_0935_检测dotFramework
Compression=lzma
SolidCompression=no

[Languages]
Name: default; MessagesFile: compiler:Default.isl

[Files]
Source: C:\Documents and Settings\Administrator\桌面\NNNNNNNNN_201200614\package\Debug\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
Source: C:\Documents and Settings\Administrator\桌面\NNNNNNNNN_201200614\package\dsoFramer\*; DestDir: {win}; Languages: 

[Icons]
Name: {group}\{cm:UninstallProgram,XXXXXXXXXXXXXXXX}; Filename: {uninstallexe}
Name: {group}\XXXXXXXXXXXXXXXX; Filename: {app}\LessonTool.exe
Name: {commondesktop}\XXXXXXXXXXXXXXXX; Filename: {app}\LessonTool.exe


[Run]
Filename: {win}\dsoFramer2.bat; WorkingDir: {tmp}; Flags: nowait runminimized
;Filename: {app}\LiveUpdate\Temp\wic_x86_chs.exe; Parameters: /quiet; WorkingDir: {tmp}; Flags: runhidden; StatusMsg: 安装Wic
;Filename: {app}\LiveUpdate\Temp\dotNetFx40_Full_x86_x64.exe; Parameters: /quiet; WorkingDir: {tmp}; Flags: runhidden; StatusMsg: 安装.Net
Filename: {app}\upgrade\Temp\vcredist_x86.exe; Parameters: /quiet /norestart; WorkingDir: {tmp}; StatusMsg: 安装VC++支持环境,大约需要1分钟,请稍后……


[Code]
function InitializeSetup: Boolean;

var Path:string ;

    ResultCode: Integer;

    dotNetV4RegPath:string;

    dotNetV4PackFile:string;

    wic:string;

begin


dotNetV4RegPath:='SOFTWARE\Microsoft\.NETFramework\policy\v4.0';

dotNetV4PackFile:='{src}\环境配置\dotNetFx40_Full_x86_x64.exe';

wic:='{src}\环境配置\wic_x86_chs.exe';

    if RegKeyExists(HKLM, dotNetV4RegPath) then

    begin

        Result := true;

    end

    else

    begin

        Exec(ExpandConstant(wic), '/q /norestart', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

        if MsgBox('正在安装NNNNNNNNN必备组件.Net Framework 4.0，此过程将会持续15分钟左右，请稍后……', mbConfirmation, MB_YESNO) = idYes then

        begin

            Path := ExpandConstant(dotNetV4PackFile);

            if(FileOrDirExists(Path)) then

            begin

                Exec(Path, '/q /norestart', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

            end

            else

            begin

                if MsgBox('软件安装目录中没有.Net Framework的安装程序，跳过安装.Net Framework 4.0？', mbConfirmation, MB_YESNO) = idYes then

                begin

                Result := true;

                end

            end

        end

        Result := true;

    end;

end;

 

 

[Pascal脚本]检测.netFramework

若.netFramework不存在，则去安装包所在目录去寻zhaoFramework，然后安装

若Framework寻找不到，则去下载.netFramework，然后手动安装，然

后我们的程序才可以继续安装

 

[Code]
function InitializeSetup: Boolean;

var Path:string ;

    ResultCode: Integer;

    dotNetV4RegPath:string;

    dotNetV4DownUrl:string;

    dotNetV4PackFile:string;

    wic:string;

begin


dotNetV4RegPath:='SOFTWARE\Microsoft\.NETFramework\policy\v4.0';

dotNetV4DownUrl:='http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe';

dotNetV4PackFile:='{src}\update\dotNetFx40_Full_x86_x64.exe';

wic:='{src}\update\wic_x86_chs.exe';

  if RegKeyExists(HKLM, dotNetV4RegPath) then

  begin

    Result := true;

  end

  else

  begin

    Exec(ExpandConstant(wic), '/q /norestart', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

    if MsgBox('系统检测到您没有安装.Net Framework4.0运行环境，是否立即安装？', mbConfirmation, MB_YESNO) = idYes then

    begin



      Path := ExpandConstant(dotNetV4PackFile);

      if(FileOrDirExists(Path)) then

      begin

        Exec(Path, '/q /norestart', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

        if RegKeyExists(HKLM, dotNetV4RegPath) then

        begin

           Result := true;

        end

        else

        begin

           MsgBox('未能成功安装.Net Framework4.0运行环境，系统将无法运行，本安装程序即将退出！',mbInformation,MB_OK);

        end

      end

      else

      begin

        if MsgBox('软件安装目录中没有包含.Net Framework的安装程序，是否立即下载后安装？', mbConfirmation, MB_YESNO) = idYes then

        begin

          Path := ExpandConstant('{pf}\Internet Explorer\iexplore.exe');

          Exec(Path, dotNetV4DownUrl , '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

          MsgBox('请安装好.Net Framework4.0环境后，再运行本安装包程序！',mbInformation,MB_OK);

          Result := false;

        end

        else

        begin

          MsgBox('不下载安装.Net Framework4.0运行环境，系统将无法运行，本安装程序即将退出！',mbInformation,MB_OK);

          Result := false;

        end

      end

    end

    else

    begin

      MsgBox('没有安装.Net Framework4.0运行环境，系统将无法运行，本安装程序即将退出！',mbInformation,MB_OK);

      Result := false;

    end;

  end;

end;

 

InnoSetup打包常用代码集锦

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工作室'

返回