使用Inno Setup 編譯器建立新頁面

1、建立一個屬於自己的頁面

     ①、定義建立頁面的函式

procedure CreateTheWizardPages;

var                                                                       //定義不同控制元件的變數

RadioButton : TRadioButton;

  Button, FormButton: TNewButton;

  Panel: TPanel;

  CheckBox: TNewCheckBox;

  PasswordEdit: TPasswordEdit;

  Memo: TNewMemo;

  ComboBox: TNewComboBox;

  ListBox: TNewListBox;

  StaticText, ProgressBarLabel: TNewStaticText;

  ProgressBar, ProgressBar2, ProgressBar3: TNewProgressBar;

  CheckListBox, CheckListBox2: TNewCheckListBox;

  FolderTreeView: TFolderTreeView;

  BitmapImage, BitmapImage2, BitmapImage3: TBitmapImage;

  BitmapFileName: String;

  RichEditViewer: TRichEditViewer;

  FileName: String;

begin

      Page1 := CreateCustomPage(wpWelcome, 'Welcome to the Matbook Setup Wizard', 'Specity either host name/ipaddress of license server(s) or node-locked license file.');                                                    //

  RadioButton11 :=TNewRadioButton.Create(Page1); //建立一個按鈕,設定大小位置

  RadioButton11.Width := Page1.SurfaceWidth;

  RadioButton11.Height := ScaleY(30);

  RadioButton11.Parent := Page1.Surface;

  RadioButton11.Caption := 'Server License';

  RadioButton11.OnClick :[email protected];   //呼叫按鈕響應函式ClickRadio1

  StaticText := TNewStaticText.Create(Page1); //建立一個靜態文字框，設定大小

  StaticText.Top := RadioButton11.Top + RadioButton11.Height + ScaleY(8);

  StaticText.Left := RadioButton11.Left + ScaleY(20);

  StaticText.Caption := 'License Path:';

  StaticText.AutoSize := True;

  StaticText.Parent := Page1.Surface;

  Edit1 := TNewEdit.Create(Page1);  //建立一個編輯框

  Edit1.Top := StaticText.Top - ScaleY(2);

  Edit1.Width := Page1.SurfaceWidth div 2 - ScaleX(8);

  Edit1.Left :=  StaticText.Left + ScaleX(130);

  Edit1.Text := '';

  //Edit1.ReadOnly := True;            //只可讀

  //Edit1.HideSelection :=False;

  Edit1.Parent := Page1.Surface;

end;

procedure ClickRadio2(Sender: TObject);      //函式要放在建立頁面函式前面

begin

    Edit1.Color := clSilver;

    Edit1.ReadOnly :=True;

    Edit.Color :=clWhite;

    Edit.ReadOnly := False;

end;

②、在InitializeSetup()中呼叫你剛才建立的函式

這樣在安裝程式初始化時呼叫，開啟後就是你自己定義的頁面。

procedure InitializeWizard();

begin

  CreateTheWizardPages;

end;

③、在安裝完成後想要輸出資料到檔案中

      在CurStepChanged(CurStep: TSetupStep);中輸出資料到檔案中。

該過程提供使用者完成預安裝和安裝之後的任務，更多的是提供了安裝過程中的狀態。引數CurStep=ssInstall是在程式實際安裝前（所有的路徑等都配置好之後準備寫入檔案錢），CurStep=ssPostInstall是實際安裝完成後，而CurStep=ssDone是在一次成功的安裝完成後、安裝程式終止前（即點選finish按鈕後執行）。

記得將所要輸出的編輯框等定義為全域性變數。

      procedure  CurStepChanged(CurStep: TSetupStep);

  begin

      if CurStep = ssDone then

      begin

SetIniString('Center','CATIA',Edit2.text,ExpandConstant('{app}/test.ini'));

      end;

  end;

④、建立一個可以自己選擇目錄的頁面

      建立頁面函式同①，只需將choose按鈕的按鈕響應函式更改。

procedure ButtonOnChoose(Sender: TObject);

var dir;

begin

  dir :='C:\\Program Files (x86)';                           //設定預設路徑

  BrowseForFolder('Browse Folder', dir, True);      //瀏覽資料夾路徑

  Edit2.text := dir;                               //將Edit2的文字改為選擇過後的路徑

end;

2、Inno Setup支援以下函式和過程。

function InitializeSetup(): Boolean;

該函式在安裝程式初始化時呼叫，返回False 將中斷安裝，True則繼續安裝，測試程式碼如下：

procedure InitializeWizard();

該過程在開始的時候改變嚮導或者嚮導頁，不要指望使用InitializeSetup函式實現改變嚮導頁的功能，因為InitializeSetup函式觸發時嚮導視窗並不存在。

procedure DeinitializeSetup();

該過程在安裝終止時被呼叫，注意及時在使用者沒有安裝任何檔案之前退出也會被呼叫。測試程式碼如下：

procedure CurStepChanged(CurStep: TSetupStep);

該過程提供使用者完成預安裝和安裝之後的任務，更多的是提供了安裝過程中的狀態。引數CurStep=ssInstall是在程式實際安裝前（所有的路徑等都配置好之後準備寫入檔案錢），CurStep=ssPostInstall是實際安裝完成後，而CurStep=ssDone是在一次成功的安裝完成後、安裝程式終止前（即點選finish按鈕後執行）。測試程式碼如下：

function NextButtonClick(CurPageID: Integer): Boolean;

當用戶單擊下一步按鈕時呼叫。如果返回True，嚮導將移到下一頁；如果返回False，它仍保留在當前頁。測試程式碼如下：

function BackButtonClick(CurPageID: Integer): Boolean;

和前面的NextButtonClick函式相反，當用戶單擊返回按鈕時呼叫。如果返回True，嚮導將移到前；如果返回False，它仍保留在當前頁，測試程式碼略。

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);

當用戶單擊取消按鈕或單擊視窗中的關閉按鈕時呼叫。Cancel引數指定取消程序是否該發生；預設為True。Confirm引數指定是否顯示“退出安裝程式嗎？”的訊息框；預設為True。如果Cancel設為False，那麼Confirm的值將被忽略。測試程式碼如下：

function ShouldSkipPage(PageID: Integer): Boolean;

嚮導呼叫這個事件函式確定是否在所有頁或不在一個特殊頁 (用PageID指定) 顯示。如果返回True，將跳過該頁；如果你返回False，該頁被顯示。注意:這個事件函式不被wpWelcome、wpPreparing和wpInstalling 頁呼叫，還有安裝程式已經確定要跳過的頁也不會呼叫 (例如，沒有包含元件安裝程式的wpSelectComponents)。測試程式碼如下：

本段程式碼將會使得安裝程式跳過選擇安裝目錄的頁面

可用的PageID有： wpLicense, wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir, wpSelectComponents, wpSelectProgramGroup, wpSelectTasks, wpReady, wpInfoAfter, wpFinished

procedure CurPageChanged(CurPageID: Integer);

在新嚮導頁 (由CurPageID 指定)顯示後呼叫。測試程式碼如下：

該段程式碼將會導致每出現一個新的一面的時候就會彈出一個訊息框。