2022.11.07 - ForceKillPatch

 - 설치 전 프로세스 실행 확인 하여 강제 종료 시키지 않음.

fontbada3.iss

@@ -6,7 +6,7 @@
 #define MyAppPublisher "(주)한양정보통신"
 #define MyAppURL "http://www.fontbada.co.kr/"
 #define MyAppExeName "{pf}\hanyang\FontbadaManager\FontManager.exe"
-;#define MyAppExeName "{pf}\Hanyang\FontManager2\FONTBADA_MGR_2.0.exe"
+#define MyAppWindowName "FontbadaManager"
 
 [Setup]
 ; NOTE: The value of AppId uniquely identifies this application.
@@ -374,6 +374,11 @@ begin
   Result := (GetUninstallString() <> '');
 end;
 
+function IsFontbadaManagerRunning(): Boolean;
+begin                                                                
+  Result := (FindWindowByWindowName('{#MyAppWindowName}') <> 0);
+end;
+
 function InitializeSetup: Boolean;
 var
   V: Integer;
@@ -382,10 +387,14 @@ var
 begin
   Result := True;
   if RegValueExists(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\{A2670E5F-4D34-4042-A9C5-5A3BC9547B37}_is1', 'UninstallString') then
-  begin
    V := MsgBox(ExpandConstant('정상적인 설치를 위해 실행 중인 폰트바다 매니저를 종료(로그 아웃)해 주시기 바랍니다. 계속 진행하시겠습니까?'), mbInformation, MB_YESNO);
-    if V = IDYES then
+  begin
+    if IsFontbadaManagerRunning() then
     begin
-      V := MsgBox(ExpandConstant('이전 폰트바다 매니저를 제거 후 새 폰트바다 매니저가 설치됩니다. 계속 진행하시겠습니까?'), mbInformation, MB_YESNO);
+      MsgBox('폰트바다 매니저({#MyAppWindowName})가 실행 중입니다. 정상 종료(로그 아웃) 후 다시 실행해 주세요.', mbError, MB_OK);
+      Result := false;
+    end
+    else
    begin
+      V := MsgBox(ExpandConstant('이전 버전 폰트바다 매니저가 존재합니다. 삭제 후 설치를 권장합니다. 진행하시겠습니까?'), mbConfirmation, MB_YESNO);
       if V = IDYES then
       begin
         sUnInstallString := GetUninstallString();
@@ -394,10 +403,11 @@ begin
         Result := True;
       end
       else
+      begin
+        MsgBox('삭제 및 설치를 종료합니다.', mbError, MB_OK);
         Result := False;
-    end
-    else
-      Result := False;
+      end;
+    end;
   end;
 end;
 
@@ -405,12 +415,10 @@ procedure InitializeWizard;
 begin
   with TNewStaticText.Create(WizardForm) do
   begin
-//    Parent := WizardForm.FilenameLabel.Parent;
     Left := WizardForm.FilenameLabel.Left;
     Top := WizardForm.FilenameLabel.Top;
     Width := WizardForm.FilenameLabel.Width;
     Height := WizardForm.FilenameLabel.Height;
-    //Caption := ExpandConstant('{InstallingLabel}');
     Caption := ExpandConstant('폰트바다3 설치중...');
   end;
   WizardForm.FilenameLabel.Visible := False;
@@ -421,6 +429,6 @@ Name: {userdesktop}\
 Name: {userstartup}\폰트바다; Filename: {pf}\hanyang\FontbadaManager\FontManager.exe; workingdir: {pf}{pf}\hanyang\FontbadaManager\;
 
 [Run]
-Filename: {pf}\hanyang\FontbadaManager\FontManager.exe; Flags: ShellExec;
+// Filename: {pf}\hanyang\FontbadaManager\FontManager.exe; Flags: ShellExec;
 Filename: "schtasks";Parameters: "/create /sc onLogon /tn FontManager /tr /f ""'{pf}\hanyang\FontbadaManager\FontManager.exe'"" /RL HIGHEST /DELAY 0000:10"; Flags:ShellExec;
 // Filename: "schtasks";Parameters: "/create /sc onLogon /tn FontManager /tr /f ""'C:\Program Files\hanyang\FontbadaManager\FontManager.exe'"" /RL HIGHEST /DELAY 0000:10"; Flags:ShellExec;
\ No newline at end of file