Inno Setup(安裝包制作工具)

Inno Setup是一個免費的安裝制作軟件，小巧、簡便、精美是其最大特點，支持pascal腳本，Inno Setup漢化增強版能快速制作出標準Windows2000風格的安裝界面，足以完成一般安裝任務。該軟件用Delphi寫成，其官方網站同時也提供源程序免費下載。

它雖不能與 Installshield 這類恐龍級的安裝制作軟件相比，但也當之無愧算是后起之秀。

增強安裝版
包含Ansi和Unicode版本。
加入加密組件ISCrypt.dll。
加入Inno Setup預處理器。
加入一些輔助工具。

加和了大量的插件詳細的就看圖片吧。

集成了網上最全面的插件

創建安裝程序的方式：腳本

安裝程序用編譯腳本的方式創建，腳本其實就是一個類似.INI 文件格式的 ASCII 碼文本文件。(它不象你想象的那么復雜!)。 Unicode Inno Setup支持 UTF-8 編碼文本文件。

腳本用一個“.iss”(表示 Inno Setup Script腳本) 的擴展名。腳本控制著安裝程序的所有方面。由它指定哪些文件將被安裝到什么地方，在哪里創建快捷方式，且被命名為什么。

腳本文件一般可以用安裝程序編譯器程序內置的編輯器進行編輯。在你編寫完腳本后，下一個最終步驟就是選擇安裝程序編譯器中的“編譯”。創建完成后，就可以運行根據你腳本編譯的安裝程序了。按默認，這個安裝程序創建在包含腳本文件目錄下的名為“輸出”目錄中。

如果你想看看它是怎樣工作的，啟動安裝程序編譯器，單擊“文件 | 打開”，并選擇位于 Inno Setup 安裝目錄下的Examples 子目錄中的一個腳本文件。(你也可以將這些示例腳本作為你自己編寫腳本的模板。)

新版功能

從 Inno Setup 6 開始，只有一種可用版本：Unic ode Inno Setup。Un icode Inno Setup 已推出 9 年，但如果您尚未更新：請參閱幫助文件中的 Unic ode Inno Setup 主題以獲取更多信息?；�本�?，除非您在 [Code] 區段使用字串參數進行 DLL 調用，否則不必對腳本進行任何更改。

Inno Setup 6 中包含的一些新功能，比如改進了對管理與非管理安裝模式的支持、最終用戶在運行時的可覆蓋安裝模式、改進了對并行安裝的支持，沒有在以前版本中可能獲得的奇怪副作用、可選的支持可調整大小的向導窗口、新的可選現代向導樣式、對安裝程序、卸載軟件和編譯器 IDE 更現代化外觀的其他更改、新的 “明亮”、”暗黑” 主題，新工具欄圖標和編譯器 IDE 的新監視器 DPI 智能模式、事件屬性，使您可以在腳本中具有相同事件函數的多個執行、支持 ARM 上的 Windows 10 的 64-位模式、支持 [Code] 區段的任務對話框、更多的改進和新功能。操作系統要求發生變化：不再支持 Windows 2000，XP 和 Server 2003。Windows Vista 是支持的最低操作系統。

Inno setup腳本示范(注釋)

[Setup]

;程序名

AppName=ISsample

;版本號

AppVerName=ISsample 1.0.0.0

;發布者名

AppPublisher=Hkiss

;相關連接

AppPublisherURL=http://www.yan.com/

AppSupportURL=http://www.yan.com/

AppUpdatesURL=http://www.yan.com/

;默認安裝目錄

DefaultDirName={pf}\ISsample

;默認開始菜單名

DefaultGroupName=ISsample

;是否打開->可選安裝開始菜單項

;AllowNoIcons=yes

;安裝協議

;LicenseFile=C:\Example\原始文件\agreement.txt

;安裝前查看的文本文件

;InfoBeforeFile=C:\Example\原始文件\Setup_New.txt

;安裝后查看文本文件

;InfoAfterFile=C:\Example\原始文件\Setup_Old.txt

;輸出文件夾

OutputDir=C:\Example\InnoSetup\out

;輸出文件名

OutputBaseFilename=setup

;安裝圖標

SetupIconFile=C:\Example\原始文件\title.ico

;安裝需要輸入密碼

;Password=123

;Encryption=yes

;壓縮相關

Compression=lzma

SolidCompression=yes

;可以讓用戶忽略選擇語言相關

ShowLanguageDialog = yes

;備注版本信息

VersionInfoCompany=HTTP://www.Hkiss.COM

VersionInfoDescription=ISsample漢化增強版

VersionInfoVersion=1.0.0.0

VersionInfoCopyright=Copyright(C) 2007-2008 Hkiss

;制作選擇語言

[Languages]

Name: "chs";MessagesFile: "compiler:Default.isl" ;LicenSeFile :"C:\Example\原始文件\chs\agreement.txt"

Name: "en";MessagesFile: "compiler:Languages\English.isl";LicenSeFile:"C:\Example\原始文件\en\agreement.txt"

;用戶定制任務

[Tasks]

Name: "desktopicon";Description: "{cm:CreateDesktopIcon}"; GroupDescription:"{cm:AdditionalIcons}"; Flags: unchecked

Name:"quicklaunchicon"; Description:"{cm:CreateQuickLaunchIcon}"; GroupDescription:"{cm:AdditionalIcons}"; Flags: unchecked

Name: "Tasks_1" ;Description:"用戶自定義任務1"; Flags: unchecked

Name: "Tasks_2" ;Description:"用戶自定義任務2"; Flags: unchecked

;選擇了組件才會出現的定制任務

Name: "Tasks_3" ;Description:"用戶自定義任務3";Components: c1 ; Flags: unchecked

;文件安裝

[Files]

;多語言安裝環境設置    公共參數Languages 來設置

Source: "C:\Example\原始文件\enfile.txt"; DestDir:"{app}"; Languages: en ; Flags: ignoreversion

Source: "C:\Example\原始文件\chsfile.txt"; DestDir:"{app}"; Languages: chs ; Flags: ignoreversion

;用戶自定義任務 Tasks

Source: "C:\Example\原始文件\Tasks\tasks_1.txt";DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks : Tasks_1

Source: "C:\Example\原始文件\Tasks\tasks_2.txt";DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2

Source: "C:\Example\原始文件\Tasks\tasks_Components.txt";DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2

;用戶定義組件安裝

Source: "C:\Example\原始文件\Components\Components_1.txt";DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1;

Source: "C:\Example\原始文件\Components\Components_2.txt";DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a2;

Source: "C:\Example\原始文件\Components\Components_3.txt";DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a3;

Source: "C:\Example\原始文件\Components\Components_4.txt";DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1 a2a3;

;用戶注冊自定義Dll文件     regserver 注冊 noregerror 不顯示錯誤信息

Source: "C:\Example\原始文件\jmail.dll"; DestDir:"{app}"; Flags: ignoreversion regserver

;添加自述文件

Source: "C:\Example\原始文件\ISsample.txt"; DestDir:"{app}"; Flags: ignoreversion

;添加一個文件到緩存文件夾{Tmp} deleteafterinstall 安裝后刪除

Source: "C:\Example\原始文件\test.exe"; DestDir:"{tmp}"; Flags: ignoreversion deleteafterinstall

Source: "C:\Example\原始文件\ISsample.chm"; DestDir:"{app}"; Flags: ignoreversion

Source: "C:\Example\原始文件\ISsample.exe"; DestDir:"{app}"; Flags: ignoreversion

Source: "C:\Example\原始文件\ISsample.dll"; DestDir:"{app}"; Flags: ignoreversion

Source: "C:\Example\原始文件\ISsample.ini"; DestDir:"{app}"; Flags: ignoreversion

Source: "C:\Example\原始文件\ISsample.rar"; DestDir:"{app}"; Flags: ignoreversion

Source: "C:\Example\原始文件\ISsample_sys.dll"; DestDir:"{win}\System32"; Flags: ignoreversion

Source: "C:\Example\原始文件\log\*"; DestDir:"{app}\log"; Flags: ignoreversion recursesubdirs createallsubdirs

; 注意: 不要在任何共享系統文件上使用“Flags:ignoreversion”

;安裝類型設置

[Types]

Name: Full ;Description:"完全安裝"; Flags: iscustom

Name: Compact ;Description:"簡潔安裝";

Name: Custom; Description:"自定義安裝";

;組件安裝

[Components]

Name: c1; Description: "自定義任務3" ; Types: Full

Name: a1; Description: "安裝Components_1"; Types: FullCompact Custom ;

Name: a2; Description: "安裝Components_2"; Types :Full   Compact

Name: a3; Description: "安裝Components_3"; Types : Full

;開始菜單，桌面快捷方式

[Icons]

Name:"{group}\ISsample"; Filename: "{app}\ISsample.exe"

Name:"{group}\{cm:ProgramOnTheWeb,ISsample}"; Filename:"http://www.yan.com/"

Name:"{group}\{cm:UninstallProgram,ISsample}"; Filename:"{uninstallexe}"

Name:"{commondesktop}\ISsample"; Filename: "{app}\ISsample.exe";Tasks: desktopicon

Name:"{userappdata}\Microsoft\Internet Explorer\Quick Launch\ISsample";Filename: "{app}\ISsample.exe"; Tasks: quicklaunchicon

;添加一個幫助文擋

Name: {group}\ISsample 1.0.0.0 幫助文檔;Filename: {app}\ISsample.chm

;用來在程序安裝完成后 在安裝程序顯示最終對話框之前執行程序 常用與運行主程序 顯示自述文件 刪除臨時文件

[Run]

Filename:"{app}\ISsample.exe"; Description:"{cm:LaunchProgram,ISsample}"; Flags: nowait postinstall skipifsilent

Filename:"{app}\ISsample.txt"; Description: "查看顯示自述文件"; Flags: postinstallskipifsilent shellexec

;更改顯示在程序中顯示的消息文本

[Messages]

BeveledLabel=HKiss科技

;卸載對話框說明

ConfirmUninstall=您真的想要從電腦中卸載ISsample嗎?%n%n按 [是] 則完全刪除 %1 以及它的所有組件;%n按 [否]則讓軟件繼續留在您的電腦上.

;定義解壓說明

;StatusExtractFiles=解壓并復制主程序文件及相關庫文件...

;用與在用戶系統中創建，修改或刪除注冊表健值

[Registry]

Root: HKLM;SubKey:"Software\ISsample";ValueType:dword;ValueName:config;ValueData:10;Flags:uninsdeletevalue

;在執行腳本

;注意：下面是code，因為與論壇使用的代碼標簽重名，改為了c0de，需要改回去。

[c0de]

//全局變量

var MyProgChecked: Boolean;

//判斷程序是否存在

//初始華程序事件

function InitializeSetup():boolean;

var Isbl: boolean;         //聲明變量

var Isstr: string;

begin       //開始

Isbl := true;             //變量賦值

Isstr := '歡迎';

ifRegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\ISsample', 'config') then

begin

    MsgBox('已安裝過，請先卸載在安裝',mbConfirmation, MB_OK);

    isbl := false;

end else

begin

  //MsgBox('無值',mbConfirmation, MB_OK);

     isbl := true;

end;

//下面是個麻煩的 條件語句 end else 注意

//if MsgBox(Isstr,mbConfirmation, MB_OKCANCEL) = IDOK then

//begin

// isbl := true;

// MsgBox('執行了', mbConfirmation, MB_OK);

//end else

//begin

// isbl := false;

//MsgBox('執行了', mbConfirmation, MB_OK);

//end;

Result := Isbl;

end;       //結束

procedure CurStepChanged(CurStep:TSetupStep);

var Isstr :string;

begin

if CurStep=ssInstall then       //實際安裝前調用

begin

    //MsgBox('CurStepChanged:實際安裝前調用', mbConfirmation,MB_OKCANCEL);           //安裝完成后調用

end;

if CurStep=ssPostInstall then

begin

    Isstr := ExpandConstant('{tmp}\tmp.rar');

//    if FileExists(Isstr) then

//    begin

//      MsgBox('文件存在',mbConfirmation, MB_OK);

//    end else

//    begin

//      MsgBox('文件不存在',mbConfirmation, MB_OK);

//    end;

  // MsgBox('CurStepChanged:實際安裝后調用', mbConfirmation, MB_OKCANCEL);

end;

end;

//下一步 按鈕按鈕 事件

function NextButtonClick(CurPageID:Integer): Boolean;

var ResultCode: Integer;

var IsSetup : Boolean;

begin

IsSetup := true ;

case CurPageID of

    wpSelectDir:

       MsgBox('NextButtonClick:' #13#13 'Youselected: ''' + WizardDirValue + '''.', mbInformation, MB_OK);   //WizardDirValue路徑

    wpSelectProgramGroup:

       MsgBox('NextButtonClick:' #13#13 'Youselected: ''' + WizardGroupValue + '''.', mbInformation, MB_OK); //開始菜單名

    wpReady:

      begin

       if notRegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Test', 'config') then   begin

          if MsgBox('程序執行需要Test.ext,是否安裝!', mbConfirmation, MB_YESNO) =idYes then begin

           ExtractTemporaryFile('test.exe');

            if notExec(ExpandConstant('{tmp}\test.exe'), '', '', SW_SHOWNORMAL,ewWaitUntilTerminated, ResultCode) then

              MsgBox('Test.exe出錯:' #13#13 ' ' +SysErrorMessage(ResultCode) + '.', mbError, MB_OK);

          end else begin

                IsSetup := false ;

          end ;

          BringToFrontAndRestore();

        end;

      end;

end;

Result := IsSetup;

end;