View Single Post
  #751  
Old 24-05-2017, 12:55
Cesar82's Avatar
Cesar82 Cesar82 is offline
Registered User
 
Join Date: May 2011
Location: Brazil
Posts: 1,074
Thanks: 1,814
Thanked 2,304 Times in 787 Posts
Cesar82 is on a distinguished road
Fixes to CIU

Quote:
Originally Posted by KaktoR View Post
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:
Code:
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

Last edited by Cesar82; 26-05-2017 at 11:00.
Reply With Quote
The Following 3 Users Say Thank You to Cesar82 For This Useful Post:
Behnam2018 (30-01-2020), houcine80 (25-05-2017), Simorq (27-05-2017)
Sponsored Links