Commit da6d848f authored by PA-ROGS\whitrail's avatar PA-ROGS\whitrail
Browse files

2023.02.24 - 3.0.36 MR B23022401.LGC 릴리즈 4

 - 설치 완료 후 폰트매니저 실행 방식 원복
parent 3f6ba3a8
...@@ -339,10 +339,7 @@ type ...@@ -339,10 +339,7 @@ type
end; end;
TProcessEntryList = array of TProcessEntry; TProcessEntryList = array of TProcessEntry;
var
ExitCode: Boolean;
function GetProcessList(const Filter: string; out List: TProcessEntryList): Integer; function GetProcessList(const Filter: string; out List: TProcessEntryList): Integer;
var var
I: Integer; I: Integer;
...@@ -423,39 +420,6 @@ begin ...@@ -423,39 +420,6 @@ begin
end; 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; procedure InitializeWizard;
begin begin
with TNewStaticText.Create(WizardForm) do with TNewStaticText.Create(WizardForm) do
...@@ -486,7 +450,6 @@ var ...@@ -486,7 +450,6 @@ var
ResultCode: Integer; ResultCode: Integer;
UnInstallString: string; UnInstallString: string;
begin begin
ExitCode := False;
Result := False; Result := False;
// 폰트바다 매니저 실행 상태 확인 // 폰트바다 매니저 실행 상태 확인
...@@ -519,3 +482,4 @@ Name: {userstartup}\ ...@@ -519,3 +482,4 @@ Name: {userstartup}\
[Run] [Run]
Filename: "schtasks";Parameters: "/create /sc onLogon /tn FontManager /tr /f ""'{#MyAppPrjFilePath}\{#MyAppFolderName}\{#MyAppProcessName}.exe'"" /RL HIGHEST /DELAY 0000:10"; Flags:ShellExec; 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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment