oop7
201d2fc8b6
Add unofficial translation files for Chinese Simplified, Hindi and Indonesian under setup-scripts/Languages/Unofficial. Also update Setup-windows.iss and Setup-windows-ffmpeg.iss to incorporate related installer changes.
136 lines
4.9 KiB
Plaintext
136 lines
4.9 KiB
Plaintext
; Script generated by the Inno Setup Script Wizard.
|
|
|
|
#define MyAppName "YTSage"
|
|
#ifndef MyAppVersion
|
|
#define MyAppVersion "0.0.0"
|
|
#endif
|
|
#define MyAppPublisher "oop7"
|
|
#define MyAppURL "https://github.com/oop7/YTSage/"
|
|
#ifndef MyAppExeName
|
|
#define MyAppExeName "YTSage.exe"
|
|
#endif
|
|
#ifndef SourceDir
|
|
#define SourceDir "..\dist\YTSage"
|
|
#endif
|
|
|
|
[Setup]
|
|
AppId={{AE618DBF-DD56-462D-9C09-2C2B7A41B201}
|
|
AppName={#MyAppName}
|
|
AppVersion={#MyAppVersion}
|
|
AppPublisher={#MyAppPublisher}
|
|
AppPublisherURL={#MyAppURL}
|
|
AppSupportURL={#MyAppURL}
|
|
AppUpdatesURL={#MyAppURL}
|
|
DefaultDirName={autopf}\{#MyAppName}
|
|
UninstallDisplayIcon={app}\{#MyAppExeName}
|
|
ArchitecturesAllowed=x64compatible
|
|
ArchitecturesInstallIn64BitMode=x64compatible
|
|
DisableProgramGroupPage=yes
|
|
LicenseFile=..\LICENSE
|
|
PrivilegesRequired=lowest
|
|
PrivilegesRequiredOverridesAllowed=dialog
|
|
OutputBaseFilename=YTSage-v{#MyAppVersion}-Setup
|
|
SolidCompression=yes
|
|
WizardStyle=modern
|
|
OutputDir=..\artifacts
|
|
|
|
[Languages]
|
|
Name: "english"; MessagesFile: "compiler:Default.isl"
|
|
Name: "arabic"; MessagesFile: "compiler:Languages\Arabic.isl"
|
|
Name: "brazilianportuguese"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"
|
|
Name: "french"; MessagesFile: "compiler:Languages\French.isl"
|
|
Name: "german"; MessagesFile: "compiler:Languages\German.isl"
|
|
Name: "italian"; MessagesFile: "compiler:Languages\Italian.isl"
|
|
Name: "japanese"; MessagesFile: "compiler:Languages\Japanese.isl"
|
|
Name: "polish"; MessagesFile: "compiler:Languages\Polish.isl"
|
|
Name: "portuguese"; MessagesFile: "compiler:Languages\Portuguese.isl"
|
|
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
|
|
Name: "spanish"; MessagesFile: "compiler:Languages\Spanish.isl"
|
|
Name: "turkish"; MessagesFile: "compiler:Languages\Turkish.isl"
|
|
Name: "chinesesimplified"; MessagesFile: "Languages\Unofficial\ChineseSimplified.isl"
|
|
Name: "hindi"; MessagesFile: "Languages\Unofficial\Hindi.islu"
|
|
Name: "indonesian"; MessagesFile: "Languages\Unofficial\Indonesian.isl"
|
|
|
|
[Tasks]
|
|
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}";
|
|
|
|
[Files]
|
|
Source: "{#SourceDir}\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
|
|
Source: "{#SourceDir}\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
|
|
[Icons]
|
|
Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
|
|
Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
|
|
|
|
[Run]
|
|
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
|
|
|
|
[Code]
|
|
procedure UpdateLanguageConfig;
|
|
var
|
|
LanguageCode: string;
|
|
ConfigPath: string;
|
|
FileContent: AnsiString;
|
|
JsonContent: string;
|
|
LangPattern: string;
|
|
P_Start, P_End: Integer;
|
|
begin
|
|
if ActiveLanguage = 'english' then LanguageCode := 'en'
|
|
else if ActiveLanguage = 'arabic' then LanguageCode := 'ar'
|
|
else if ActiveLanguage = 'brazilianportuguese' then LanguageCode := 'pt-br'
|
|
else if ActiveLanguage = 'french' then LanguageCode := 'fr'
|
|
else if ActiveLanguage = 'german' then LanguageCode := 'de'
|
|
else if ActiveLanguage = 'italian' then LanguageCode := 'it'
|
|
else if ActiveLanguage = 'japanese' then LanguageCode := 'ja'
|
|
else if ActiveLanguage = 'polish' then LanguageCode := 'pl'
|
|
else if ActiveLanguage = 'portuguese' then LanguageCode := 'pt'
|
|
else if ActiveLanguage = 'russian' then LanguageCode := 'ru'
|
|
else if ActiveLanguage = 'spanish' then LanguageCode := 'es'
|
|
else if ActiveLanguage = 'turkish' then LanguageCode := 'tr'
|
|
else if ActiveLanguage = 'chinesesimplified' then LanguageCode := 'zh'
|
|
else if ActiveLanguage = 'hindi' then LanguageCode := 'hi'
|
|
else if ActiveLanguage = 'indonesian' then LanguageCode := 'id'
|
|
else LanguageCode := 'en';
|
|
|
|
ConfigPath := ExpandConstant('{localappdata}\YTSage\data\ytsage_config.json');
|
|
|
|
if not DirExists(ExtractFilePath(ConfigPath)) then
|
|
ForceDirectories(ExtractFilePath(ConfigPath));
|
|
|
|
if FileExists(ConfigPath) then
|
|
begin
|
|
if LoadStringFromFile(ConfigPath, FileContent) then
|
|
begin
|
|
JsonContent := String(FileContent);
|
|
LangPattern := '"language": "';
|
|
P_Start := Pos(LangPattern, JsonContent);
|
|
if P_Start > 0 then
|
|
begin
|
|
P_Start := P_Start + Length(LangPattern);
|
|
P_End := Pos('"', Copy(JsonContent, P_Start, Length(JsonContent)));
|
|
if P_End > 0 then
|
|
begin
|
|
Delete(JsonContent, P_Start, P_End - 1);
|
|
Insert(LanguageCode, JsonContent, P_Start);
|
|
SaveStringToFile(ConfigPath, AnsiString(JsonContent), False);
|
|
end;
|
|
end;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
JsonContent := '{' + #13#10 +
|
|
' "language": "' + LanguageCode + '"' + #13#10 +
|
|
'}';
|
|
SaveStringToFile(ConfigPath, AnsiString(JsonContent), False);
|
|
end;
|
|
end;
|
|
|
|
procedure CurStepChanged(CurStep: TSetupStep);
|
|
begin
|
|
if CurStep = ssPostInstall then
|
|
begin
|
|
UpdateLanguageConfig();
|
|
end;
|
|
end;
|