UltraARC for Inno Setup (Conversion Tool)

[Cesar82]

For the friend who posts the CIU codes...
Fixes to CIU v2.0.3.8.b...

The line below is not required. The installer is compressing 2 times the image Installer1.png
Source: Setup\Setup\Installer1.png; DestDir: {tmp}; Flags: dontcopy

Replace all parts of the lines containing (Error UltraArc Languages to all CIU v2)

Replace From:
if ((Data[i - 1].Arc[6] = '') or (LanguageTranslator(Data[i - 1].Arc[6]) = ActiveLanguage))

Replace To:
if (Data[i - 1].Arc[6] = '') or (Data[i - 1].Arc[6] = ActLangShort)

Need fixe all others parts replacing "ActiveLanguage" to "ActLangShort" in all CIU v2 (Without quotes).


Sugestion: Translate as FreeArc Custom Messages ins script and adding custom messages to language files.

Thanks!

[KaktoR]

Originally Posted by LuisCésar82

The line below is not required. The installer is compressing 2 times the image Installer1.png
Source: Setup\Setup\Installer1.png; DestDir: {tmp}; Flags: dontcopy

Compiler only contains 1 Installer1.png.
Parsing -> Compressing

Are you sure about that? Can't find a second file in Setup.exe after compiling.

Originally Posted by LuisCésar82

Replace all parts of the lines containing (Error UltraArc Languages to all CIU v2)

Replace From:
if ((Data[i - 1].Arc[6] = '') or (LanguageTranslator(Data[i - 1].Arc[6]) = ActiveLanguage))

Replace To:
if (Data[i - 1].Arc[6] = '') or (Data[i - 1].Arc[6] = ActLangShort)

Need fixe all others parts replacing "ActiveLanguage" to "ActLangShort" in all CIU v2 (Without quotes).


Sugestion: Translate as FreeArc Custom Messages ins script and adding custom messages to language files.

Thanks!

For what? Is it neccessary? I don't understand properly i guess.

[Cesar82]

Originally Posted by KaktoR

Compiler only contains 1 Installer1.png.
Parsing -> Compressing

Are you sure about that? Can't find a second file in Setup.exe after compiling.

For what? Is it neccessary? I don't understand properly i guess.

From version 2.0 of CIU (All CIU v2) the language obtained with the ActiveLanguage function is always eng.

In the link below contains images with or repeated files and the fixed script (buy with beyond compare to see the differences).
https://mega.nz/#!lAgQTaQS!vuX921KwB...1kq5f6WUDXF9-0

The arc file info in Data[i - 1].Arc[6] is the language to extract the specified ultraArc file.

Sugestion use function to multiples languages to one file:

function CheckLanguageArc(Lang: String): Boolean;
var
  TmpLang: String;
begin
  Result := False;
  TmpLang := Trim(RemoveQuotes(Lang));
  if TmpLang = '' then begin
    Result := True;
    Exit;
  end;
  if Copy(TmpLang, Length(TmpLang), 1) <> ',' then
    TmpLang := TmpLang + ',';
  while Length(TmpLang) > 0 do begin
    if CompareText(Trim(Copy(TmpLang, 0, Pos(',', TmpLang) - 1)), ActLangShort) = 0 then begin
      Result := True;
      Break;
    end;
    TmpLang := Copy(TmpLang, Pos(',', TmpLang) + 1, Length(TmpLang));
  end;
end;

And use: if CheckLanguageArc(Data[i - 1].Arc[6]) and (ComponentsCheckFA(Data[i - 1].Arc[4])) then