@-XCX-

In this code http://ww2.fileforums.com/showthread.php?t=96170 (see ISDone v0.6 lite (ini), it is not the classic isdone, it is a custom isdone (dante1995)) . There is not a line of code like that where to replace what you say.

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

And, how to solve error code 6 (unarc.dll)?

http://i.imgur.com/qzwIeq5.png

can someone translate this and tell me what is causing the issue ? thank you

How to make designer setup in inno setup script of your own?
 

Please I want to make own designer setup:):confused:

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

^ screenshot of error, & what script ?

I need a script to extract freearc files(no external compressors, no isdone) by inno setups with progress. The script should be compatible to embed with other designed scripts

Actually i use windows phone installer script by razor, i have 2 problems, someone can help me ? Thanks:

1. When i use pzlib and try to cancel during installation (Extract Files), this not cancel, pzlib keep runing in the adm task and not close.

2. When i cancel during installation during installation (Extract Files), what is the script for reverse back and delete the copied files.

Don't know about the first one because I never tried by the answer of your second question is, if you use wpi update 3, it will delete the copied files if you cancel installation

It will be awesome if somebody gives slideshow script which uses lesser memory....

I was using an slide show script by Ronaldo and got this error and even my ram and CPU usage keep increasing

Hi! Newbie question here:

Let's say i create a button using botva:

how do i attach event to the button? (for example: exit).
thanks

>>how do i attach event to the button? (for example: exit).

compiler error: unknown identifier click

i'm using inno compiler 5.5.9 (u)
thanks

Hello everyone, I have a really simple query.

I have this Redist folder alongside the archives I have for the installer (Windows Phone Installed by Razor 12911) and I want the Redist folder along with it's sub directories to be copied over to the installation folder, then run the Redist Installers from the installation path instead of the installer source.

What modifications do I need to make?

I would also like to add that I am unable to cancel an installer that has pzlib in it. Is there anyway to fix this? I am sure I saw a post where someone shared a code but I am unable to find the post.

Second query: Can I make changes to my arc.ini to set a limit for the decompression memory it'll be using?

For example, my arc.ini looks something like this:

How can I limit my overall usage of RAM to 1GB for the installer+Decompression? The highest threshold I'd like to maintain is 1.25 GB.

Which compressors are supported by unarc.dll (314kb) by default? I mean without other extra compressor exe's and cls/other dll's?

LINKOBJ_FAR_PLUGIN = Environment.o Common.o CompressionLibrary.o C_LZMA.o
LINKOBJ_TINY = $(LINKOBJ_FAR_PLUGIN) C_BCJ.o C_Dict.o C_Delta.o
LINKOBJ_MINI = $(LINKOBJ_TINY) C_REP.o C_LZP.o C_PPMD.o C_External.o
LINKOBJ = $(LINKOBJ_MINI) C_MM.o C_TTA.o C_Tornado.o C_GRZip.o C_4x4.o C_DisPack.o C_LZ4.o C_Encryption.o C_CLS.o C_CELS.o

Understood nothing. Is srep/precomp supported with unarc.dll? or only the mx method is the highest?

yes, only mx

If anyone helps by letting me know some scripts compatible with inno setup quickstart pack 5.2.3, I will appreciate that very much.

How to use ISSrep.dll based on srep 1.5?

Is there actually any method to protect my inno script extremely that there is no way to break it?

Maybe ask altef_4

Hope he is here

^ he is here ocassionaly, just PM him.