; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "XXX軟體"
#define MyAppVersion " 1.1.0"
#define MyAppPublisher "XXX有限公司"
#define MyAppURL "http://www.xxx.com/"
#define MyAppExeName "XXX軟體.exe"
;MySourcePath 程式所在的資料夾路徑
#define MySourcePath "D:\Projects\XXX軟體\bin\Release"  

[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={{B9FB449D-761A-4A35-B874-807E55DBCDD7}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
;DefaultDirName={pf}\{#MyAppName}      預設的安裝路徑 C:\Program Files
DefaultDirName =D:\XXX軟體\
;DisableProgramGroupPage 如果該項設定為 yes, 安裝程式將不會顯示“選擇程式組”嚮導頁。在這種情況下，它將使用由 [Setup] 段的 DefaultGroupName 關鍵字指定的組名，或者“(Default)”如果沒有指定組名的話
DisableProgramGroupPage=yes
;UsePreviousAppDir 是 yes （預設值）並且安裝程式發現已經安裝了一個相同應用程式的早期版本，它將用先前選擇的目錄代替預設的目錄名稱
UsePreviousAppDir=yes
OutputDir=D:\Inno Out Exe
;DisableDirPage 有效值： yes 或 no 預設值： no 說明： 如果該項設定為 yes, 安裝程式將不會顯示“選擇目標資料夾”嚮導頁。在這種情況下，它將始終使用預設的目錄名。
DisableDirPage=no
OutputBaseFilename=XXX軟體_Ver{#MyAppVersion}
Compression=lzma
SolidCompression=yes
;在控制面板中的顯示的解除安裝資訊
Uninstallable=yes
UninstallDisplayName={#MyAppName}{#MyAppVersion}
UninstallDisplayIcon ={#MySourcePath}\ico\Uninstall.ico
;開始選單中資料夾的名字 ， 預設的為Default
DefaultGroupName={#MyAppName}


[Languages]
Name: "chi"; MessagesFile: "compiler:Default.isl"

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

[Files]
Source: "{#MySourcePath}\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
Source: "{#MySourcePath}\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files  {#MyAppName}

[Icons]
Name: "{group}\{cm:UninstallProgram, }"; Filename: "{uninstallexe}"
Name: "{group}\{#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

[Files]
Source: "{#MySourcePath}\psvince.dll"; Flags: dontcopy noencryption

[code]

// 安裝時判斷程式是否正在執行
function IsModuleLoaded(modulename: AnsiString ):  Boolean;
external '
 
[email protected]:psvince.dll stdcall';
function InitializeSetup():boolean;
var
   IsAppRunning: boolean;
begin
    Result := true;
   begin
    Result:= true;//安裝程式繼續
    IsAppRunning:= IsModuleLoaded('{#MyAppExeName}');
    while IsAppRunning do
       begin
        if MsgBox('安裝程式檢測到 {#MyAppExeName} 正在執行！' #13#13 '您必須先關閉它然後單擊“確定”繼續安裝，否則按“取消”退出！', mbConfirmation, MB_OKCANCEL) = IDOK then
         begin
         IsAppRunning:= IsModuleLoaded('{#MyAppExeName}')
         Result:= true;
         end else begin
         IsAppRunning:= false;
         Result:= false; //安裝程式退出
         Exit;
         end;
       end;
     end;
end;