@-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!

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

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?

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

May be you are using wrong version of unarc.dll

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

freearc itself ?

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

how to stop silent uninstall?
 

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

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;

Anyone can help me? I'm a bit confused :confused:

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).

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

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

What is class type expected error in inno???