INNO TROUBLESHOOT - Questions Here

[nizcoz]

Originally Posted by -XCX-

paste this
if ISDoneInit(ExpandConstant('{tmp}\records.inf'), $F777, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then begin
repeat

case ActiveLanguage of
'en': ChangeLanguage('English');
'it': ChangeLanguage('Italian');
end;

if not SrepInit('',512,0) then ISDoneError := True;
if not PrecompInit('',128,0) then ISDoneError := True;
if not FileSearchInit(true) then ISDoneError := True;
i:=1;
if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then
begin
SetArrayLength(Arc1,4);
SetArrayLength(Arc2,4);
repeat
Arc1[0]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')));
Arc1[1]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Output','',ExpandConstant('{tmp}\Setu p.ini')));
Arc1[2]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Disk','1',ExpandConstant('{tmp}\Setup .ini')));
Arc1[3]:=GetIniString('FreearcFile' + IntToStr(i),'Password','',ExpandConstant('{tmp}\Se tup.ini'));

if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
if MsgBox(SetupMessage(msgChangeDiskTitle) +' '+'( '+ Arc1[2]+' )', mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
end else begin
if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, 'edward', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;

i:= i + 1;
end;
end;
until ((GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = '') or (ISDoneError = True));
end;
until true;
ISDoneStop;
end;
and
put
[FreearcFile1]
Archive={src}\data.arc
Output={app}
Disk=1
Password=herepassword

@-XCX- First, thanks for your answer, but not work. You wrote ¨if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, 'edward', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;¨ . Could you check what's wrong? Thanks!

[bairagyakushal4]

How to add components like English lang Russian language in ISDone (ini) anyone know?

[ImmortalArc]

Getting descriptor error CRC check error code 14 in inno setup what's the problem???
In arc extract using simply genrate d script

[78372]

Originally Posted by ImmortalArc

Getting descriptor error CRC check error code 14 in inno setup what's the problem???
In arc extract using simply genrate d script

Can you tell actually which script?

[ImmortalArc]

Thats simply genrate inno script than I put code from wpi for inno
Even I tried other setup which requires data.arc but Same error on my pc why???
If extract that same data file with arc.exe it will extract but of i extract with inno it shows that error
Why??
It says archive header corrupt and CRC descriptor failed error code 14

[78372]

May be you are using wrong version of unarc.dll

[ImmortalArc]

Have anybody got version .67 of freearc next setup if yes then please share here as
I don't think so

[pakrat2k2]

Originally Posted by ImmortalArc

Have anybody got version .67 of freearc next setup if yes then please share here as
I don't think so

freearc itself ?

[nizcoz]

How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script?? (custom ISDone by dante1995).

[78372]

Originally Posted by nizcoz

How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script?? (custom ISDone by dante1995).

I don't have the script, but it should work like this

search for the line starting with "If not ISARCEXTRACT" in the code section. Before this line, add anoher line like this

if IsComponentSelected('ComponentName') then

after that the line starting with "If not ISARCEXTRACT" should be placed

I hope you understand

[bairagyakushal4]

hey when i am rerunning the setup(after 1st time install it uninstalling the gme silently . how to stop this?

[nizcoz]

Originally Posted by 78372

I don't have the script, but it should work like this

search for the line starting with "If not ISARCEXTRACT" in the code section. Before this line, add anoher line like this

if IsComponentSelected('ComponentName') then

after that the line starting with "If not ISARCEXTRACT" should be placed

I hope you understand

Thanks for answer but the code that i use is not the original ISDone, is the dante1995 version, ISDone(ini).



This is part of code (important):

ISDoneError:=false;
i:=1;
if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then
begin
WizardForm.ProgressGauge.Max:=0;
repeat
WizardForm.ProgressGauge.Max:= WizardForm.ProgressGauge.Max + 1000;
i:= i + 1;
until (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = '');
end;
if ISDoneInit(ExpandConstant('{tmp}\records.inf'), $F777, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then begin
repeat
ChangeLanguage('English');
if not SrepInit('',512,0) then ISDoneError := True;
if not PrecompInit('',128,0) then ISDoneError := True;
if not FileSearchInit(true) then ISDoneError := True;
i:=1;
if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then
begin
SetArrayLength(Arc1,4);
SetArrayLength(Arc2,4);
repeat
Arc1[0]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')));
Arc1[1]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Output','',ExpandConstant('{tmp}\Setu p.ini')));
Arc1[2]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Disk','1',ExpandConstant('{tmp}\Setup .ini')));
if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
if MsgBox(SetupMessage(msgChangeDiskTitle) +' '+'( '+ Arc1[2]+' )', mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
end else begin
if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, Arc1[3], ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;
i:= i + 1;
end;
end;
until ((GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = '') or (ISDoneError = True));
end;
until true;
ISDoneStop;
end;
AllCancel;
HideControls;
WizardForm.ProgressGauge.Hide;
end;
if (CurStep=ssPostInstall) and ISDoneError then begin
Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewNoWait, ResultCode);
end;
end;



How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script??



And.... How to decompress 2 files but at a certain percentage each one? Similar to this but for my code (ISDone(ini) by dante1995):



if not ISArcExtract ( 0, 40, ExpandConstant('{src}\video1.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

if not ISArcExtract ( 0, 60, ExpandConstant('{src}\video2.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

[KaktoR]

Anyone can help me? I'm a bit confused

[Registry]
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed(R) III\1.01"; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed(R) III v1.02\1.02"; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed(R) III v1.03\1.03"; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed(R) III v1.04\1.04"; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed(R) III v1.05\1.05"; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed(R) III v1.06\1.06"; Flags: uninsdeletekeyifempty

Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "SKU"; ValueData: "DIGITAL"; ValueType: string; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "InstallDir"; ValueData: "{app}"; ValueType: string; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "English"; ValueType: string; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "French"; ValueType: string; Check: "Language('French')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Italian"; ValueType: string; Check: "Language('Italian')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "German"; ValueType: string; Check: "Language('German')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Spanish"; ValueType: string; Check: "Language('Spanish')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Russian"; ValueType: string; Check: "Language('Russian')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Polish"; ValueType: string; Check: "Language('Polish')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "ChineseTrad"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Hungarian"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Czech"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Dutch"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Danish"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Norwegian"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Swedish"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Portuguese"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Brazil"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3"; ValueName: "Language"; ValueData: "Finnish"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty

Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "execPath"; ValueData: "{app}\AC3SP.exe"; ValueType: string; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "info"; ValueData: "fcc67c4a082f43f0ad2b33428a7ae9f7"; ValueType: string; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "installdir"; ValueData: "{app}"; ValueType: string; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "Language"; ValueData: "en"; ValueType: string; Check: "Language('English')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "Language"; ValueData: "de"; ValueType: string; Check: "Language('German')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "Language"; ValueData: "es"; ValueType: string; Check: "Language('Spanish')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "Language"; ValueData: "fr"; ValueType: string; Check: "Language('French')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "Language"; ValueData: "it"; ValueType: string; Check: "Language('Italian')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "Language"; ValueData: "nl"; ValueType: string; Check: "Language('Dutch')"; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: "SOFTWARE\Ubisoft\Assassin's Creed 3\GameUpdate"; ValueName: "Language"; ValueData: "prbr"; ValueType: string; Check: "Language('PortugueseBR')"; Flags: uninsdeletevalue uninsdeletekeyifempty

Registry for "Rogue" is even with this, and there it works.

PS: If i remove ' character it works. But then the registry is useless. Even Rogue registry has this ' Character and there it works.

PSS: Someone knows how to use two checks? One for language, one for component (it only works for one, if i use two then it will not work).

[pakrat2k2]

I always put check:Language('English'); at end of the line... same for all languages.

Flags: uninsdeletevalue uninsdeletekeyifempty; Check: Language('English');

[ImmortalArc]

What is class type expected error in inno???