Merged in 2023.03_3.0.36_MRB23021401.DNF4_ADMIN (pull request #3)

2023.03 3.0.36 MRB23021401.DNF4 ADMIN

fontbada3.iss

@@ -4,13 +4,13 @@
 #define MyAppName           "폰트바다 매니저"
 #define MyAppVersion        "3.0"
 #define MyAppVerName        "36.MR"
-#define MyAppBuildData      "B23021401.W10DNF4"
+#define MyAppBuildData      "B23022301.W10DNF4"
 #define MyAppPublisher      "(주)한양정보통신"
 #define MyAppURL            "http://www.fontbada.co.kr/"
 #define MyAppFolderName     "FontbadaManager"
 #define MyAppDataName       "fontbada3"
 #define MyAppProcessName    "FontManager"
-#define MyAppRootPath       "{userappdata}\..\Local\hanyang"
+#define MyAppRootPath       "{localappdata}\hanyang"
 #define MyAppWindowName     "FontbadaManager"
 #define MyAppFilter         "fontmanager.exe"
 #define MyAppMinOS          10
@@ -110,7 +110,6 @@ end;
 
 function IsFontManagerProcesss: Boolean;
 var
-    S:              string;
     I:              Integer;
     Filter:         string;
     ProcessList:    TProcessEntryList;
@@ -179,8 +178,6 @@ end;
 
 
 procedure CurStepChanged(CurStep: TSetupStep);
-var
-    ResultCode: Integer;
 begin
     if CurStep = ssInstall then
     begin
@@ -275,3 +272,21 @@ Name: {userstartup}\
 
 [Run]
 Filename: "schtasks";Parameters: "/create /sc onLogon /tn FontManager /tr /f ""'{#MyAppRootPath}\{#MyAppFolderName}\{#MyAppProcessName}.exe'"" /RL HIGHEST /DELAY 0000:10"; Flags:ShellExec;
+
+
+[Registry]
+; keys for 32-bit systems
+Root: HKCU32; \
+    Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType: String; \
+    ValueName: "{#MyAppRootPath}\{#MyAppFolderName}\{#MyAppProcessName}.exe"; ValueData: "RUNASADMIN"; Flags: uninsdeletekeyifempty uninsdeletevalue; Check: not IsWin64
+Root: HKLM32; \
+    Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType: String; \
+    ValueName: "{#MyAppRootPath}\{#MyAppFolderName}\{#MyAppProcessName}.exe"; ValueData: "RUNASADMIN"; Flags: uninsdeletekeyifempty uninsdeletevalue; Check: not IsWin64
+
+; keys for 64-bit systems
+Root: HKCU64; \
+    Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType: String; \
+    ValueName: "{#MyAppRootPath}\{#MyAppFolderName}\{#MyAppProcessName}.exe"; ValueData: "RUNASADMIN"; Flags: uninsdeletekeyifempty uninsdeletevalue; Check: IsWin64
+Root: HKLM64; \
+    Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType: String; \
+    ValueName: "{#MyAppRootPath}\{#MyAppFolderName}\{#MyAppProcessName}.exe"; ValueData: "RUNASADMIN"; Flags: uninsdeletekeyifempty uninsdeletevalue; Check: IsWin64