目標：靜默安裝軟體，動態配置引數

初次使用inno setup ，完全不瞭解pascal語言，網上找了很多資料，很多也很零散，總結整理下，方便大家使用

第一步：按引導建立指令碼，這部分就不描述了

; Script generated by the Inno Setup Script Wizard.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!


#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "setup.exe"


[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{A026898B-6C4E-41FA-8F26-9067D95C6BE0}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes


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


[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked


[Files]
Source: C:\Submetering\setup.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\Submetering\uninstall\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files


[Icons]
Name: {commonprograms}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon


[Run]
Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}; Flags: nowait postinstall skipifsilent

第二步：建立自定義視窗

[Code]
var
myPage:TwizardPage;//定義視窗
ed1:TEdit;//定義輸入框

Lbl1: TNewStaticText;//標題

//定義校驗方法，校驗失敗時，下一步按鈕為空

procedure Key_Form_KeyChange(Sender: TObject);
begin
if(length(ed1.Text) <= 6) then
        WizardForm.NextButton.Enabled := True
    else
WizardForm.NextButton.Enabled := False;

end;

//初始化引導 視窗

procedure InitializeWizard();
begin
myPage:=CreateCustomPage(wpWelcome, '標題：標題', '描述：描述');
Lbl1 := TNewStaticText.Create(myPage);
Lbl1.Left := ScaleX(5);
Lbl1.Top := ScaleY(5);
Lbl1.Width := ScaleX(250);
Lbl1.Height := ScaleY(50);
Lbl1.Caption := '輸入框標題';
Lbl1.Parent := myPage.Surface;
ed1:=TEdit.Create(myPage);
ed1.Width:=ScaleX(410);
ed1.Top := ScaleY(25);
ed1.Text :='999910';
ed1.Parent:=myPage.Surface;
ed1.OnChange := @Key_Form_KeyChange;//新增校驗方法

end;

//新增步驟

procedure CurStepChanged(CurStep: TSetupStep);
var
    fileName,tempStr:String;
    svArray: TArrayOfString;
    nLines,i:Integer;

begin

if CurStep=ssinstall then
//安裝前執行

       if CurStep=ssPostinstall then

//複製檔案後執行

            begin

//開始修改檔案

fileName := ExpandConstant('{app}\檔名');
LoadStringsFromFile(fileName, svArray);
nLines := GetArrayLength(svArray);//讀取檔案
  for i := 0 to nLines - 1 do
  begin
tempStr := svArray[i];
if (1 = Pos('查詢內容', tempStr)) then//查詢目標行
begin
  svArray[i] := ExpandConstant('修改內容'+ed1.Text);//修改行
  StringChangeEx(svArray[i], '\', '/', True);
end;
  end;
  SaveStringsToFile(fileName, svArray, false);

end;

if CurStep=ssDone then

//安裝完成後執行

end;