SageTube/setup-scripts/Setup-windows-ffmpeg.iss

; 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-ffmpeg.exe"
#endif
#ifndef SourceDir
  #define SourceDir "..\dist\YTSage-FFmpeg"
#endif

[Setup]
AppId={{56997322-2A3A-4338-AEF1-C3C8BB28AC4F}
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}-ffmpeg-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}";
Name: "addtopath"; Description: "Add ffmpeg to user PATH environment variable"; GroupDescription: "Additional options:"; Flags: unchecked

[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

[Registry]
Root: HKCU; Subkey: "Environment"; ValueType: expandsz; ValueName: "Path"; ValueData: "{olddata};{app}"; Tasks: addtopath; Check: NeedsAddPath('{app}')

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[Code]
function NeedsAddPath(Param: string): boolean;
var
  OrigPath: string;
  ParamExpanded: string;
begin
  // Expand the setup constants like {app} from Param
  ParamExpanded := ExpandConstant(Param);
  if not RegQueryStringValue(HKEY_CURRENT_USER, 'Environment', 'Path', OrigPath) then
  begin
    Result := True;
    exit;
  end;
  // Look for the path with leading and trailing semicolon
  Result := Pos(';' + UpperCase(ParamExpanded) + ';', ';' + UpperCase(OrigPath) + ';') = 0;  
  if Result = True then
     Result := Pos(';' + UpperCase(ParamExpanded) + '\;', ';' + UpperCase(OrigPath) + ';') = 0; 
end;

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;