打包：採用Inno Setup（下）
阿新 • • 發佈：2020-08-07
採用Inno Setup
（1）獲取
下載地址：https://jrsoftware.org/isdl.php
（2）拷貝
將目標軟體（獨立執行的基於Arcgis Engine的應用程式）的開發環境中Debug目錄拷貝到E盤根目錄，方便後面使用
（3）啟動Inno Setup，並New一個指令碼
（4）修改指令碼內容
1）定義變數名
2）宣告安裝型別以及元件
3）拷貝檔案
;ARCGIS Engine + Lincence Manager Source: "C:\Windows\System32\msiexec.exe"; DestDir: "{app}"; Flags: ignoreversion Source:View Code"E:\Projects\ToolsDev\CADExport\trunk\Resource\arcgis lincence manager 10.2\*"; DestDir: "{tmp}\{#ArcGISLincenceManager}"; Components: arcgis\lincencemanager; Flags: ignoreversion recursesubdirs createallsubdirs deleteafterinstall Source: "E:\Projects\ToolsDev\CADExport\trunk\Resource\arcgis engine 10.2\*"; DestDir: "{tmp}\{#ArcGISEngine}"; Components: arcgis\engine; Flags: ignoreversion recursesubdirs createallsubdirs deleteafterinstall
4）執行ArcGIS Lincence Manager和ArcGIS Engine的安裝程式
Filename: "{app}\msiexec.exe";Parameters: "/i""{tmp}\{#ArcGISLincenceManager}\{#ArcGISLincenceManagerMsi}5）其他 包括解除安裝時關閉程式、清理資料夾及檔案；安裝時，對.net環境的檢查；重複執行時，尋問是否解除安裝。";Components: arcgis\lincencemanager;Flags: skipifsilent Filename: "{app}\msiexec.exe";Parameters: "/i""{tmp}\{#ArcGISEngine}\{#ArcGISEngineMsi}"; Components: arcgis\engine; Flags: skipifsilent
function InitializeSetup(): Boolean; var MykeynotExist: Boolean; ResultCode: Integer; uicmd: String; begin MykeynotExist:= true; if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{A8722393-32D5-4FAA-A581-BC535EC8C6F8}_is1', 'UninstallString', uicmd) then begin MyKeynotExist:= false; Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode); end; result:= MykeynotExist if result then begin result := IsDotNetInstalled(net45, 0); if not Result then SuppressibleMsgBox(FmtMessage(SetupMessage(msgWinVersionTooLowError), ['.NET Framework', '4.5']), mbCriticalError, MB_OK, IDOK); end; end;