Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
이상민
FontManager3-Installer
Commits
da6d848f
Commit
da6d848f
authored
Feb 24, 2023
by
PA-ROGS\whitrail
Browse files
2023.02.24 - 3.0.36 MR B23022401.LGC 릴리즈 4
- 설치 완료 후 폰트매니저 실행 방식 원복
parent
3f6ba3a8
Changes
2
Show whitespace changes
Inline
Side-by-side
Output/FontBada3_Manager_Setup-3.0.36.MRB23022401.LGC.exe
View file @
da6d848f
No preview for this file type
fontbada3.iss
View file @
da6d848f
...
...
@@ -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
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment