用inno Setup做應用程式安裝包的示例腳本（.iss檔案）

http://blog.sina.com.cn/s/blog_6f8ff4900100pln7.html

用innoSetup做應用程式安裝包的示例腳本（.iss檔案），具體要看innoSetup附帶的文檔，好象是pascal語言寫的腳本。

示例1（應用程式.exe，用戶端安裝）：

;{089D6802-6CD3-4E45-B8D5-AC9ED99CE371}; 腳本由 Inno Setup 腳本向導 生成！

; 有關建立 Inno Setup 腳本檔案的詳細資料請查閱幫助文檔！

[Setup]

; 注: AppId的值為單獨辨別該應用程式。

; 不要為其他安裝程式使用相同的AppId值。

; (生成新的GUID，點選 工具|在IDE中生成GUID。)

AppId={{5E012E21-42EE-4840-A000-35F9FAB886E9}

AppName=AIS_Client

AppVerName=AIS_Client

AppPublisher=公司名

DefaultDirName={pf}\AIS_Client

DefaultGroupName=AIS_Client

OutputBaseFilename=AIS_Client

Compression=lzma

SolidCompression=yes

SetupIconFile=D:\AIS\AIS 打包程式\AISGUI.ico

LicenseFile=C:\Documents and Settings\Administrator\桌面\許可協定.txt

[Languages]

Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"

[Files]

Source: "D:\AIS\AIS 打包程式\AIS_client_exe\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

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

[Tasks]

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

[Icons]

Name: "{group}\AIS用戶端"; Filename: "{app}\AISGUI.exe"

Name: "{group}\AIS用戶端參數配置工具"; Filename: "{app}\ClientConfig.exe"

Name: "{group}\AIS服務設定工具"; Filename: "{app}\ServiceIPManage.exe"

Name: "{group}\AIS資料庫參數配置工具"; Filename: "{app}\DataBaseConfig.exe"

;Name: "{group}\門控服務端"; Filename: "{app}\Access_server\SecurityWare.exe"

;在開始菜單->所有程式->伴網書童裡添加一個删除快捷鍵。

Name: "{group}\解除安裝"; Filename: {uninstallexe}

Name: "{commondesktop}\AIS用戶端"; Filename: "{app}\AISGUI.exe"; Tasks: desktopicon

;Name: "{commondesktop}\門控服務端"; Filename: "{app}\Access_server\SecurityWare.exe"; Tasks: desktopicon

[Run]

;Filename: "{app}\Access_server\SecurityWare.exe"; Description: "{cm:LaunchProgram,AIS}"; Flags: nowait postinstall skipifsilent shellexec

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

[Registry]

;添加開機啟動

Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"; ValueType: string; ValueName:"ais"; ValueData:"{app}\AISGUI.exe";  Flags:uninsdeletevalue

[Code]

{解除安裝時判斷主程式是否在運作}

var

is_Sys , is_value: integer;

S_syschar, S_currentchar, S_current,S_sys, S,ResultStr : string;

I ,CloseNum: Integer;

ErrorCode: Integer;

Guid_names,window_name : TArrayOfString;

bool  : Boolean;

const AppName='{5E012E21-42EE-4840-A000-35F9FAB886E9}_is1';

{程式安裝前判斷主程式是否在運作}

function InitializeSetup(): Boolean;

var

  ResultCode: Integer;

begin

  if RegGetSubkeyNames(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',Guid_names) then

  begin

    for I:=0 to GetArrayLength(Guid_names)-1 do

    begin

      S := Guid_names[i];

      //系統資料庫中找到了此鍵

      if AppName=Guid_names[i] then

      begin

        bool := RegQueryStringValue(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+S,'UninstallString',ResultStr);

        //ResultStr := RemoveQuotes(ResultStr);

        if bool then

        begin

          if MsgBox('安裝程式檢測到目前計算機已經安裝了AIS用戶端。' #13#13 '您是否要解除安裝AIS用戶端？',  mbConfirmation, MB_YESNO) = IDYES then

            //   ShellExec('', ExpandConstant('{app}\unins000.exe'), '','', SW_SHOW, ewNoWait, ResultCode);

            begin

              Exec(RemoveQuotes(ResultStr), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);

              Result := false;

            end

        end

        break;

      end

      else

      //zdx 5.8 判斷是否已經打開了一個安裝程式

      begin

        if FindWindowbyWindowName('安裝 - AIS_Client')<>0 then

        begin

          MsgBox('安裝程式檢測到有另外一個安裝程式已經在運作了', mbConfirmation, MB_OK);

          Result := false;

          break;

        end

      end

    end;

    if I= GetArrayLength(Guid_names) then

      Result := true;

  end

  else

    Result := true;

end;

//當使用者單擊cancel的時候，删除掉拷貝到系統的檔案夾

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

begin

end ;

//解除安裝密碼驗證函數

function AskPassword(): Boolean;

var

   Form: TSetupForm;

   OKButton, CancelButton: TButton;

   PwdEdit: TPasswordEdit;

begin

   Result := false;

   Form := CreateCustomForm();

   try

Form.ClientWidth := ScaleX(256);

Form.ClientHeight := ScaleY(100);

Form.Caption := '密碼驗證';

Form.BorderIcons := [biSystemMenu];

Form.BorderStyle := bsDialog;

Form.Center;

OKButton := TButton.Create(Form);

OKButton.Parent := Form;

OKButton.Width := ScaleX(75);

OKButton.Height := ScaleY(23);

OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 50);

OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);

OKButton.Caption := '确定';

OKButton.ModalResult := mrOk;

OKButton.Default := true;

CancelButton := TButton.Create(Form);

CancelButton.Parent := Form;

CancelButton.Width := ScaleX(75);

CancelButton.Height := ScaleY(23);

CancelButton.Left := Form.ClientWidth - ScaleX(75 + 50);

CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);

CancelButton.Caption := '取消';

CancelButton.ModalResult := mrCancel;

CancelButton.Cancel := True;

PwdEdit := TPasswordEdit.Create(Form);

PwdEdit.Parent := Form;

PwdEdit.Width := ScaleX(210);

PwdEdit.Height := ScaleY(23);

PwdEdit.Left := ScaleX(23);

PwdEdit.Top := ScaleY(23);

Form.ActiveControl := PwdEdit;

if Form.ShowModal() = mrOk then

begin

   Result := PwdEdit.Text = 'bw12345678';

   if not Result then

         MsgBox('密碼錯誤', mbInformation, MB_OK);

end;

   finally

Form.Free();

   end;

end;

//解除安裝程式的時候判斷是否在運作

function InitializeUninstall(): Boolean;

begin

  begin

  //密碼驗證

  //Result :=  AskPassword();

  Result := TRUE;

//  DelTree(ExpandConstant('{app}\*'), False, True, True);

  end

end;

//提示解除安裝完後重新開機計算機

function UninstallNeedRestart(): Boolean;

begin

   Result := False;

   DelTree(ExpandConstant('{app}\*'), False, True, True);

   DelTree(ExpandConstant('{app}'), True, True, True);

end;

示例2（windows service，服務端安裝）：

;{089D6802-6CD3-4E45-B8D5-AC9ED99CE371}; 腳本由 Inno Setup 腳本向導 生成！

; 有關建立 Inno Setup 腳本檔案的詳細資料請查閱幫助文檔！

[Setup]

; 注: AppId的值為單獨辨別該應用程式。

; 不要為其他安裝程式使用相同的AppId值。

; (生成新的GUID，點選 工具|在IDE中生成GUID。)

AppId={{D0D0B722-C6F9-4A89-AB56-1417B9BD1400}

AppName=AIS_Server

AppVerName=AIS_Server

AppPublisher=公司名

DefaultDirName={pf}\AIS_Server

DefaultGroupName=AIS_Server

OutputBaseFilename=AIS_Server

Compression=lzma

SolidCompression=yes

SetupIconFile=D:\AIS\AIS 打包程式\AISGUI.ico

LicenseFile=C:\Documents and Settings\Administrator\桌面\許可協定.txt

[Languages]

Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"

[Files]

Source: "D:\AIS\AIS 打包程式\AIS_server_exe\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

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

[Tasks]

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

[Icons]

Name: "{group}\AIS服務端參數配置工具"; Filename: "{app}\ServiceConfig.exe"

;Name: "{group}\AIS用戶端"; Filename: "{app}\AIS_client_exe\AISGUI.exe"

;Name: "{group}\門控服務端"; Filename: "{app}\Access_server\SecurityWare.exe"

;在開始菜單->所有程式->伴網書童裡添加一個删除快捷鍵。

Name: "{group}\解除安裝"; Filename: {uninstallexe}

;Name: "{commondesktop}\AIS用戶端"; Filename: "{app}\AIS_client_exe\AISGUI.exe"; Tasks: desktopicon

;Name: "{commondesktop}\門控服務端"; Filename: "{app}\Access_server\SecurityWare.exe"; Tasks: desktopicon

[Run]

;Filename: "{app}\Access_server\SecurityWare.exe"; Description: "{cm:LaunchProgram,AIS}"; Flags: nowait postinstall skipifsilent shellexec

;Filename: "{app}\AIS_client_exe\AISGUI.exe"; Description: "{cm:LaunchProgram,AIS}"; Flags: nowait postinstall skipifsilent shellexec

[Registry]

;添加開機啟動

;Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"; ValueType: string; ValueName:"bwqc"; ValueData:"{app}\MSrv.exe";  Flags:uninsdeletevalue

[Code]

{解除安裝時判斷主程式是否在運作}

var

is_Sys , is_value: integer;

S_syschar, S_currentchar, S_current,S_sys, S,ResultStr : string;

I ,CloseNum: Integer;

ErrorCode: Integer;

Guid_names,window_name : TArrayOfString;

bool  : Boolean;

const AppName='{D0D0B722-C6F9-4A89-AB56-1417B9BD1400}_is1';

{程式安裝前判斷主程式是否在運作}

function InitializeSetup(): Boolean;

var

  ResultCode: Integer;

begin

  if RegGetSubkeyNames(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',Guid_names) then

  begin

    for I:=0 to GetArrayLength(Guid_names)-1 do

    begin

      S := Guid_names[i];

      //系統資料庫中找到了此鍵

      if AppName = Guid_names[i] then

      begin

        bool := RegQueryStringValue(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+S,'UninstallString',ResultStr);

        //ResultStr := RemoveQuotes(ResultStr);

        if bool then

        begin

           if MsgBox('安裝程式檢測到目前計算機已經安裝了AIS_Server。' #13#13 '您是否要解除安裝AIS_Server？',  mbConfirmation, MB_YESNO) = IDYES then

            //   ShellExec('', ExpandConstant('{app}\unins000.exe'), '','', SW_SHOW, ewNoWait, ResultCode);

            begin

              Exec(RemoveQuotes(ResultStr), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);

              Result := false;

            end

        end

        break;

      end

      else

      //zdx 5.8 判斷是否已經打開了一個安裝程式

      begin

        if FindWindowbyWindowName('安裝 - AIS_Server')<>0 then

        begin

          MsgBox('安裝程式檢測到有另外一個安裝程式已經在運作了', mbConfirmation, MB_OK);

          Result := false;

          break;

        end

      end

    end;

    if I = GetArrayLength(Guid_names) then

      Result := true;

  end

  else

    Result := true;

end;

//當使用者單擊cancel的時候，删除掉拷貝到系統的檔案夾

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

begin

end ;

//解除安裝密碼驗證函數

function AskPassword(): Boolean;

var

   Form: TSetupForm;

   OKButton, CancelButton: TButton;

   PwdEdit: TPasswordEdit;

begin

   Result := false;

   Form := CreateCustomForm();

   try

Form.ClientWidth := ScaleX(256);

Form.ClientHeight := ScaleY(100);

Form.Caption := '密碼驗證';

Form.BorderIcons := [biSystemMenu];

Form.BorderStyle := bsDialog;

Form.Center;

OKButton := TButton.Create(Form);

OKButton.Parent := Form;

OKButton.Width := ScaleX(75);

OKButton.Height := ScaleY(23);

OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 50);

OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);

OKButton.Caption := '确定';

OKButton.ModalResult := mrOk;

OKButton.Default := true;

CancelButton := TButton.Create(Form);

CancelButton.Parent := Form;

CancelButton.Width := ScaleX(75);

CancelButton.Height := ScaleY(23);

CancelButton.Left := Form.ClientWidth - ScaleX(75 + 50);

CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);

CancelButton.Caption := '取消';

CancelButton.ModalResult := mrCancel;

CancelButton.Cancel := True;

PwdEdit := TPasswordEdit.Create(Form);

PwdEdit.Parent := Form;

PwdEdit.Width := ScaleX(210);

PwdEdit.Height := ScaleY(23);

PwdEdit.Left := ScaleX(23);

PwdEdit.Top := ScaleY(23);

Form.ActiveControl := PwdEdit;

if Form.ShowModal() = mrOk then

begin

   Result := PwdEdit.Text = 'bw12345678';

   if not Result then

         MsgBox('密碼錯誤', mbInformation, MB_OK);

end;

   finally

Form.Free();

   end;

end;

procedure CurStepChanged(CurStep: TSetupStep);//添加環境變量

var

  ResultCode: Integer;

begin

if CurStep = ssPostInstall  then

 begin

     ShellExec('', ExpandConstant('{app}\ServiceInstall.exe'),

                '-is AIS_server "'+ ExpandConstant('{app}\AIS_server.exe')+'"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

 end;

end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

var

  ResultCode: Integer;

begin

  if CurUninstallStep = usUninstall then

    begin

       ShellExec('', ExpandConstant('{app}\ServiceInstall.exe'),

          '-u AIS_server "'+ ExpandConstant('{app}\AIS_server.exe')+'"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);

   end;

end;

//解除安裝程式的時候判斷是否在運作

function InitializeUninstall(): Boolean;

begin

  begin

  //密碼驗證

  //Result :=  AskPassword();

  Result := TRUE;

//  DelTree(ExpandConstant('{app}\*'), False, True, True);

  end

end;

//提示解除安裝完後重新開機計算機

function UninstallNeedRestart(): Boolean;

begin

   Result := False;

   DelTree(ExpandConstant('{app}\*'), False, True, True);

   DelTree(ExpandConstant('{app}'), True, True, True);

end;