Skip to content

GitLab

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

2023.02.14 - 3.0.36 MR B23021401.LGC / 프로그램 설치 및 업데이트 조건 기존과 동일하게 유지

parent e2661b60
Hide whitespace changes
Inline Side-by-side
fontbada3.iss
View file @ 97a2683e
......@@ -10,10 +10,10 @@
#define MyAppFolderName "FontbadaManager"
#define MyAppDataName "fontbada3"
#define MyAppProcessName "FontManager"
#define MyAppPrjFilePath "{pf}\hanyang"
#define MyAppRootPath "{userappdata}\..\Local\hanyang"
#define MyAppWindowName "FontbadaManager"
#define MyAppFilter "fontmanager.exe"
#define MyAppMinOS 10
[Setup]
......@@ -50,20 +50,13 @@ Name: Korean; MessagesFile: "Korean.isl";
[Files]
; 실행 파일
Source: "FontManager/FontManager.exe"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\"; Flags: ignoreversion
Source: "FontManager/FontManager.exe.config"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\"; Flags: ignoreversion
Source: "FontManager/FontManager.exe"; DestDir: "{#MyAppPrjFilePath}\{#MyAppFolderName}\"; Flags: ignoreversion
Source: "FontManager/FontManager.exe.config"; DestDir: "{#MyAppPrjFilePath}\{#MyAppFolderName}\"; Flags: ignoreversion
Source: "FontManager/FONTBADA_UPDATER.exe"; DestDir: "{#MyAppRootPath}\{#MyAppDataName}\"; Flags: ignoreversion
;Source: "FontManager/MicrosoftEdgeWebview2Setup.exe"; DestDir: "{#MyAppRootPath}\{#MyAppDataName}\"; Flags: ignoreversion
; 추가 라이브러리
Source: "FontManager/Newtonsoft.Json.dll"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\"; Flags: ignoreversion
;Source: "FontManager/Microsoft.Web.WebView2.Core.dll"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\"; Flags: ignoreversion
;Source: "FontManager/Microsoft.Web.WebView2.WinForms.dll"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\"; Flags: ignoreversion
;Source: "FontManager/Microsoft.Web.WebView2.Wpf.dll"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\"; Flags: ignoreversion
;Source: "FontManager/runtimes\win-arm64\native\WebView2Loader.dll"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\runtimes\win-arm64\native\"; Flags: ignoreversion
;Source: "FontManager/runtimes\win-x64\native\WebView2Loader.dll"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\runtimes\win-x64\native\"; Flags: ignoreversion
;Source: "FontManager/runtimes\win-x86\native\WebView2Loader.dll"; DestDir: "{#MyAppRootPath}\{#MyAppFolderName}\runtimes\win-x86\native\"; Flags: ignoreversion
Source: "FontManager/Newtonsoft.Json.dll"; DestDir: "{#MyAppPrjFilePath}\{#MyAppFolderName}\"; Flags: ignoreversion
; 폰트 파일
......@@ -346,10 +339,7 @@ type
end;
TProcessEntryList = array of TProcessEntry;
var
ExitCode: Boolean;
function GetProcessList(const Filter: string; out List: TProcessEntryList): Integer;
var
I: Integer;
......@@ -431,41 +421,6 @@ begin
end;
// procedure DeinitializeSetup();
// var
// ResultCode: Integer;
// begin
// // Log(Format('DeinitializeSetup ExitCode -> [ %d ]', [ExitCode]));
// if ExitCode = True then
// begin
// MsgBox('Microsoft Edge Webview2 런타임을 설치합니다.', mbInformation, MB_OK);
// Exec(ExpandConstant('{#MyAppRootPath}\{#MyAppDataName}\MicrosoftEdgeWebview2Setup.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
// MsgBox('설치가 완료되었습니다.', mbInformation, MB_OK);
// 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
......@@ -480,17 +435,6 @@ begin
end;
function CheckOSVersion: Boolean;
begin
Result := True;
if not IsWindowsVersionOrNewer({#MyAppMinOS}, 0) then
begin
MsgBox('이 프로그램은 Windows 10 이상을 지원합니다. 설치를 종료합니다.', mbCriticalError, MB_OK);
Result := False;
end;
end;
function CheckRunProcess: Boolean;
begin
Result := True;
......@@ -507,15 +451,8 @@ var
ResultCode: Integer;
UnInstallString: string;
begin
ExitCode := False;
Result := False;
// 윈도우 버전 체크
// if CheckOSVersion = False then
// begin
// Exit;
// end
// 폰트바다 매니저 실행 상태 확인
if CheckRunProcess = False then
begin
......@@ -540,9 +477,9 @@ end;
[Icons]
Name: {userdesktop}\폰트바다; Filename: {#MyAppRootPath}\{#MyAppFolderName}\{#MyAppProcessName}.exe; WorkingDir: {#MyAppRootPath}\{#MyAppFolderName}\; Comment: "폰트바다 매니저"; IconFilename: {#MyAppRootPath}\{#MyAppFolderName}\{#MyAppProcessName}.exe;
Name: {userstartup}\폰트바다; Filename: {#MyAppRootPath}\{#MyAppFolderName}\{#MyAppProcessName}.exe; workingdir: {#MyAppRootPath}\{#MyAppFolderName}\;
Name: {userdesktop}\폰트바다; Filename: {#MyAppPrjFilePath}\{#MyAppFolderName}\{#MyAppProcessName}.exe; WorkingDir: {#MyAppPrjFilePath}\{#MyAppFolderName}\; Comment: "폰트바다 매니저"; IconFilename: {#MyAppPrjFilePath}\{#MyAppFolderName}\{#MyAppProcessName}.exe;
Name: {userstartup}\폰트바다; Filename: {#MyAppPrjFilePath}\{#MyAppFolderName}\{#MyAppProcessName}.exe; workingdir: {#MyAppPrjFilePath}\{#MyAppFolderName}\;
[Run]
Filename: "schtasks";Parameters: "/create /sc onLogon /tn FontManager /tr /f ""'{#MyAppRootPath}\{#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;
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