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,9 +339,6 @@ type
end;
TProcessEntryList = array of TProcessEntry;
var
ExitCode: Boolean;
function GetProcessList(const Filter: string; out List: TProcessEntryList): Integer;
var
......@@ -423,39 +420,6 @@ 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
......@@ -486,7 +450,6 @@ var
ResultCode: Integer;
UnInstallString: string;
begin
ExitCode := False;
Result := False;
// 폰트바다 매니저 실행 상태 확인
......@@ -519,3 +482,4 @@ 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
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