2023.02.24 - 3.0.36 MRB23022401.DNF4 릴리즈2

 - 설치 프로세스 / 프로그램 실행 위치를 변경

fontbada3.iss

@@ -11,7 +11,7 @@
 #define MyAppDataName       "fontbada3"
 #define MyAppProcessName    "FontManager"
 #define MyAppPrjFilePath    "{pf}\hanyang"
-#define MyAppRootPath       "{userappdata}\..\Local\hanyang"
+#define MyAppRootPath       "{localappdata}\hanyang"
 #define MyAppWindowName     "FontbadaManager"
 #define MyAppFilter         "fontmanager.exe"
 
@@ -339,6 +339,9 @@ type
     end;
     TProcessEntryList = array of TProcessEntry;
 
+var
+    ExitCode: Boolean;
+
 
 function GetProcessList(const Filter: string; out List: TProcessEntryList): Integer;
 var
@@ -373,7 +376,6 @@ end;
 
 function IsFontManagerProcesss: Boolean;
 var
-    S:              string;
     I:              Integer;
     Filter:         string;
     ProcessList:    TProcessEntryList;
@@ -421,6 +423,39 @@ begin
 end;
 
 
+procedure DeinitializeSetup();
+var
+    ResultCode: Integer;
+begin
+    // Log(Format('DeinitializeSetup ExitCode -> [ %d ]', [ExitCode]));
+    if ExitCode = True then
+    begin
+        Exec(ExpandConstant('{#MyAppPrjFilePath}\{#MyAppFolderName}\{#MyAppProcessName}.exe'), '', '', SW_SHOW, ewNoWait, ResultCode);
+    end;
+end;
+
+
+procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
+begin
+    ExitCode  := False;
+end;
+
+
+procedure CurStepChanged(CurStep: TSetupStep);
+begin
+    if CurStep = ssInstall then
+    begin
+        // Log(Format('CurStepChanged CurStep -> [ %d ]', [CurStep]));
+        ExitCode := True;
+    end
+    else if CurStep = ssDone then
+    begin
+        // Log(Format('CurStepChanged CurStep -> [ %d ]', [CurStep]));
+        ExitCode := True;
+    end;
+end;
+
+
 procedure InitializeWizard;
 begin
     with TNewStaticText.Create(WizardForm) do
@@ -451,6 +486,7 @@ var
     ResultCode:         Integer;
     UnInstallString:    string;
 begin
+    ExitCode  := False;
     Result    := False;
 
     // 폰트바다 매니저 실행 상태 확인
@@ -483,4 +519,3 @@ Name: {userstartup}\
 
 [Run]
 Filename: "schtasks";Parameters: "/create /sc onLogon /tn FontManager /tr /f ""'{#MyAppPrjFilePath}\{#MyAppFolderName}\{#MyAppProcessName}.exe'"" /RL HIGHEST /DELAY 0000:10"; Flags:ShellExec;
-Filename: {#MyAppPrjFilePath}\{#MyAppFolderName}\{#MyAppProcessName}.exe; Flags: nowait postinstall skipifsilent;
\ No newline at end of file