INNO TROUBLESHOOT - Questions Here

[Razor12911]

multi is kinda tricky? do you want it to be like the one in Installer Creator or different?

[Logrim]

something how IC, yup :D

[Razor12911]

then it's easy. there are many ways of doing it.

1) Create 3 autorun.exe's.(Very Simple/Worst Idea)
2) Create one autorun.exe with 3 launchers(Moderate)
3) Create one exe with the ability of three exe's. (Not a walk in a park)

[Logrim]

erm,., the 2 is my idea.. but.. how to do? :P. this is the question

[Razor12911]

make three buttons.
the buttons must not be enabled if exe is not found and if installation is not found else if exe is found and installation is found then enable the buttons.

make the buttons onclicks to run exe from installation directory.

Done.

[buttignol]

Help I am not able to use my installer to unpack files created with precomp043 + srep64 trying without success to two days someone could post a scrip isdone the sample thanks

[danswano]

Hello,
Is it possible to extract a specific folder and/or file inside an arc archive using ISDone?
I have an archive that has many folders and i just want to unpack one of them.
Why i didn't create an archive for each folder?
Because i'm using delta compression to reduce the size for similar files in each folder.
Thanks.

[Razor12911]

hmm, don't think it's possible to extract a certain file/folder using isdone, you could read the documentation. but check the latest isarcextract script, version 4.2 and later.

[Razor12911]

Help I am not able to use my installer to unpack files created with precomp043 + srep64 trying without success to two days someone could post a scrip isdone the sample thanks

check out isdone documentation. full support for precomp038-precomp042.
hooking up precmp043 may be tough but the srep64 is not a problem, it's the same as the normal srep edition, just tweak the arc.ini a bit.

[danswano]

hmm, don't think it's possible to extract a certain file/folder using isdone, you could read the documentation. but check the latest isarcextract script, version 4.2 and later.

I don't think ISDONE docu have something like this.
Where do i grab the latest version of the script?

[altef_4]

I don't think ISDONE docu have something like this.
Where do i grab the latest version of the script?

function ISArcExtract (CurComponent: Cardinal; PctOfTotal: double; InputFile, OutputPath, ExtractedPath: string; DeleteInFile: boolean; Password, CfgFile, WorkPath: string; ExtractPCF:boolean):boolean;

[danswano]

altef_4, do you know if it's possible to extract a specific file/folder?

[altef_4]

altef_4, do you know if it's possible to extract a specific file/folder?

it's possible, look on red text in my pre post

example how to use:
ISArcExtract(0,0,ExpandConstant('{src}\Data.arc'), ExpandConstant('{app}'),'Some_Path_In_Your_Archive ',False,'PASSWoRd',ExpandConstant('{tmp}\Arc.ini') ,ExpandConstant('{app}'),False);

[danswano]

Oh, i thought it's the destination, i will try it now :)

[danswano]

Thanks altef_4, it's working but it's unpacking the whole thing instead of just one folder although it's not actually unpacked in the destination folder.

[Logrim]

I have a little problem .. dont know if is the right place to expose my doubt, but .. It is going beyond the mask installer. In photoshop everything is perfect, no fault .. in the script, all the measures are well placed, everything looks in order, except for one thing .. stand out as ridges on the edges that should not be there .. someone can say that this is due?

Here is a picture:

http://i62.tinypic.com/99gcwn.png

[altef_4]

I have a little problem .. dont know if is the right place to expose my doubt, but .. It is going beyond the mask installer. In photoshop everything is perfect, no fault .. in the script, all the measures are well placed, everything looks in order, except for one thing .. stand out as ridges on the edges that should not be there .. someone can say that this is due?

Here is a picture:...

you must create another form behind main form, then use
CreateFormFromImage(YourNewForm.Handle,ExpandConst ant('{tmp}\your_frame.png')); and move this form when main form is moved.
i create simple example for this, in archive are all nessesary files + two versions: one for Original IS UNICODE and one for Enhanced

UPD: changed mask +added screenshot

[altef_4]

Thanks altef_4, it's working but it's unpacking the whole thing instead of just one folder although it's not actually unpacked in the destination folder.

i already tested it and it works for me, can you give example how do you use it?
p.s. you can extract only some folder, not a file (my mistake :)).

[Logrim]

Thanks,, it works,, but i think i dont know how to make the mask well.. can you explain me in little words altef? i'm not new to photoshop, but making mask yup :D..

Edit 1. i start the script by zero, and put your example in the fist place with my background and mask.. it work... but with the same edges bug.. its my mask, i know :d.. i dont know how to make it well.. When i make mask before for other works, i only set the visible space in black and the rest in white... here dont work that :D.

[danswano]

First try to make the archive a little bit big so you can see the actual process.
create 2 folders that contains multiple big files
for example program1 program2 and program3 folders.
Now let's say we want to extract program 2.
You will notice that the installer displaying program1 folder and it's content and program 2 and 3 but it only extract program2 actually.
Extracting the whole archive takes as much as time to extract one folder.
It's like unpacking the whole archive on the fly but not letting the unwanted files to be copied to the destination folder.
Hope i clarified what i meant. :)

[altef_4]

Thanks,, it works,, but i think i dont know how to make the mask well.. can toy explain in little words altef? i'm not new to photoshop, but making mask yup :D..

just open your image.png in paint and press "save as", then choose bmp and set it to monochrome.

[altef_4]

First try to make the archive a little bit big so you can see the actual process.
create 2 folders that contains multiple big files
for example program1 program2 and program3 folders.
Now let's say we want to extract program 2.
You will notice that the installer displaying program1 folder and it's content and program 2 and 3 but it only extract program2 actually.
Extracting the whole archive takes as much as time to extract one folder.
It's like unpacking the whole archive on the fly but not letting the unwanted files to be copied to the destination folder.
Hope i clarified what i meant. :)

then maybe this some bug in ISDone.dll, i tested on small archive ~100 mb, and saw what all files in archive are processed but extracts only choose folder.

[altef_4]

Thanks,, it works,, but i think i dont know how to make the mask well.. can you explain me in little words altef? i'm not new to photoshop, but making mask yup :D..

Edit 1. i start the script by zero, and put your example in the fist place with my background and mask.. it work... but with the same edges bug.. its my mask, i know :d.. i dont know how to make it well.. When i make mask before for other works, i only set the visible space in black and the rest in white... here dont work that :D.

function CreateFormFromImage change size of form to full size of image, maybe problem in this. Try to change sizes of both forms to full size of png image

[Razor12911]

Thanks,, it works,, but i think i dont know how to make the mask well.. can you explain me in little words altef? i'm not new to photoshop, but making mask yup :D..

Edit 1. i start the script by zero, and put your example in the fist place with my background and mask.. it work... but with the same edges bug.. its my mask, i know :d.. i dont know how to make it well.. When i make mask before for other works, i only set the visible space in black and the rest in white... here dont work that :D.

Use GIMP to enhance edges. Grow BMP black part by 1 pixel then you're good to go.

[danswano]

function CreateFormFromImage change size of form to full size of image, maybe problem in this. Try to change sizes of both forms to full size of png image

I see all files processed by ISDone as well and i know that it extracts only what i specified but it takes a long time to extract one folder of a big archive like if it's extracting all the files.

[Logrim]

Thanks, razor and altef, work perfectly now,, the problem was the sizes.

Was extrange,, i'm graphic designer and this never happend to me in my work. :P.. I thought the mask in inno were being made differently. I'm trying to make a general installer for all my conversions, and i think I have already achieved. Minimalist and yet easy to locate.

[Logrim]

i have a problem... before i setting the example of the mask of Altef, all work perfectly when unninstall.. Now, inno give me an error "cannot call "EXTRACTEMPORALYFILESIZE", funtion during uninstall. I never touch nothing in the unninstall section,, only add the mask functions and procedures..

[altef_4]

i have a problem... before i setting the example of the mask of Altef, all work perfectly when unninstall.. Now, inno give me an error "cannot call "EXTRACTEMPORALYFILESIZE", funtion during uninstall. I never touch nothing in the unninstall section,, only add the mask functions and procedures..

this function works only in install process, it extracts file from setup.exe to memory, in uninstall process this file isn't present and thats why this error appears, to fix this you must copy all nessesary files (images libraries and other) from temporary folder (first extract it to this folder) to your installation folder in final stage of installation, then in a uninstall process, copy this files back into temp folder and use them from it, also in uninstaller you must use standart botva2.dll functions (load images from disk), i hope you understand me ;)

[Logrim]

i understand you altef :D thwe problem is i think i have all in unninstall correctly, but dont work.. this is my uninnstall:

///////////////////////////////////////////////////////////UNNINSTALL STAGE
procedure InitializeUninstallProgressForm;
var
UnsFileStatusLabel: Tlabel;
begin
FileCopy(ExpandConstant('{app}\UninstData.ini'),Ex pandConstant('{tmp}\Setup.ini'),False);
FileCopy(ExpandConstant('{app}\b2p.dll'), ExpandConstant('{tmp}\b2p.dll'), True);
FileCopy(ExpandConstant('{app}\botva2.dll'), ExpandConstant('{tmp}\botva2.dll'), True);
FileCopy(ExpandConstant('{app}\CallbackCtrl'), ExpandConstant('{tmp}\CallbackCtrl'), True);
FileCopy(ExpandConstant('{app}\Uninstall.png'), ExpandConstant('{tmp}\Uninstall.png'), True);

with UninstallProgressForm do begin
BorderStyle := bsNone;
ClientWidth := ScaleX(600);
ClientHeight := ScaleY(190);
Position:= poScreenCenter;
AutoScroll := False;
UninstallProgressForm.InnerNotebook.SetBounds(0,0, 600,190);
UninstallProgressForm.OuterNotebook.SetBounds(0,0, 600,190);

Bevel.Hide;
StatusLabel.Hide;
MainPanel.Hide;
WizardSmallBitmapImage.Hide;

ProgressBar.SetBounds(10,170,580,15);

UnsFileStatusLabel:= TLabel.Create(UninstallProgressForm.InstallingPage );
UnsFileStatusLabel.Parent:= UninstallProgressForm.InstallingPage;
UnsFileStatusLabel.SetBounds(40,10,500,15);
UnsFileStatusLabel.AutoSize:= False;
UnsFileStatusLabel.WordWrap:= True;
UnsFileStatusLabel.Transparent:= True;
UnsFileStatusLabel.Font.Name := 'Verdana';
UnsFileStatusLabel.Font.Style:= [fsBold];
UnsFileStatusLabel.Font.Size:= 8;
UnsFileStatusLabel.Font.Color:= clGray;
UnsFileStatusLabel.Caption:= ExpandConstant('{cm:UnsFileStatusLabel}');
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
begin
img:=ImgLoad(UninstallProgressForm.InstallingPage. Handle,ExpandConstant('{tmp}\Uninstall.png'),0,0,6 00,190,True,True);
ImgApplyChanges(UninstallProgressForm.InstallingPa ge.Handle);
DelTree(ExpandConstant('{app}'), True, True, True);
RegDeleteKeyIncludingSubkeys(HKLM, ExpandConstant('Software\{code:GamePublisher}\{cod e:GameName}'));
end;
end;

add this is the setup part

///////////////////////////////////////////////////////////UNINSTALL SOURCE FILES
Source: dllfiles\botva2.dll; DestDir: {app}; Attribs: hidden system; Flags: ignoreversion;
Source: dllfiles\CallbackCtrl.dll; DestDir: {app}; Attribs: hidden system; Flags: ignoreversion;

Source: Setup\Uninstall.png; DestDir: {app}; Attribs: hidden system; Flags: ignoreversion;
Source: Setup\Setup.ico; DestDir: {app}; Attribs: hidden system; Flags: ignoreversion;
////////////////////////////////////////////////////////////////////////////////////////////////

[altef_4]

i understand you altef :D thwe problem is i think i have all in unninstall correctly, but dont work.. this is my uninnstall:



add this is the setup part

add this functions

function ImgLoadU(Wnd :HWND; FileName :PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';

procedure ImgApplyChangesU(h:HWND); external 'ImgApplyChanges@{tmp}\botva2.dll stdcall delayload';

procedure gdipShutdownU; external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';


and remove b2p.dll(it's not work in uninstaller),
correct this

FileCopy(ExpandConstant('{app}\CallbackCtrl.dll'), ExpandConstant('{tmp}\CallbackCtrl.dll'), True);
chenge ImgLoad to ImgLoadU, ImgApplyChanges to ImgApplyChangesU
add to DeInitializeUninstall - gdipShutdownU;

try it, it's must work.

[Logrim]

Thanks man, work perfectly now :D.. sorry for my questions, when i think the code is finish i discover something new...

[Logrim]

One silly question.. why the image load before the rest of the things?. i mean.. the main background load.., the rest of the component load AFTER, and during two seconds the main screen is empty..

and.. how can i add a custom progress bar and a custom edit? i dont want to usee isskin.. thanks

[altef_4]

One silly question.. why the image load before the rest of the things?. i mean.. the main background load.., the rest of the component load AFTER, and during two seconds the main screen is empty..

Maybe you use ImgApplyChanges more than one time? try to use it only in the end of procedure|function.

and.. how can i add a custom progress bar and a custom edit? i dont want to usee isskin.. thanks
to create custom progress bar just load two images one on another, and change width|visible part of top image. to create custom edit create img like edit and TLabel inside of this image.

[Logrim]

altef i only have one ImgApplyChanges for wizardform,, only this at the start of "procedure InitializeWizard":

ExtractTemporaryFile('Mask.bmp');
SetRgn(WizardForm.Handle,'Mask.bmp',657, 379);
img :=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\ Background.png'),0,0,0,0,False,True);
ImgApplyChanges(WizardForm.Handle);
CreateFormFromImage(NewForm.Handle,ExpandConstant( '{tmp}\Background.png'));
OldMainProc:=SetWindowLong(WizardForm.Handle, -4, WrapFormCallback(@WizardFormProc,4));
NewForm.Show;
WizardForm.BringToFront;


and.. i dont understand well how to add progress bar and edit... for progress bar i add in setup part two png, and extract it in initialize setup. but how to apply them to the standard progress bar?

[altef_4]

altef i only have one ImgApplyChanges for wizardform,, only this at the start of "procedure InitializeWizard":

maybe i don't understand you right, can you give more information?

and.. i dont understand well how to add progress bar and edit... for progress bar i add in setup part two png, and extract it in initialize setup. but how to apply them to the standard progress bar?
hide standart progress bar and calculate progress to width of your custom img.
e.g. standart progress=10% of maximum 100% then width of your img will be
progress:=CurProgress(10%)*100/MaxProgress(100%);
imgWidth=FullWidthOfImg(you set it when create img)*progress/100;

[Logrim]

Altef, see m.p please.. i'm lost with that :D..

[reiji777]

why inno sometimes shows need to restart page in the end of installation? although I've already put all the right parameters :(
is there any way to suppress no restart page at all cost?

[justinbieber500]

hmm reiji Page finally pressing need.

[dienszge]

Hallo everyone..
sorry i'm newbie. and i come from indonesia
i want to try conversion..
can you give me script (InstallerScript.iss and LangScript.iss) language indonesian
please.. thx bahasa
sorry my bad english..

[Cesar82]

PS: Text translated with Google Translate.
Please. I need help.

In need of a code that satisfied the following properties of an executable:
Copyright, Company Name, File Description, File Version, Product Version, InternalName, Original Filename, Product Name.
I found a code on the internet and is not working with Unicode Inno Setup. Tested Inno Setup Version Ansi worked.
In unicode inno he cuts the information.

I have attached the script's code for those with more experience can analyze and give me some corrections.

Added one second scrip to compare the differences.
This second script detects only the description of the executable.
However this works in unicode version of Inno Setup.

[Logrim]

One question.. how to put in a custom message, the name of a game set in an ini?, i mean,

"welcome to the installation of "name stored in external ini"

[Razor12911]

[Code]

RazorLabel.Caption:=FmtMessage(ExpandConstant({cm: WelcomeMessage}), [GetIniString('Application', 'Name', '', ExpandConstant('{tmp}\Setup.ini')]);

[CustomMessages]
WelcomeMessage=Welcome to the %1 Setup Wizard

[danswano]

Hello,
How to unpack arc archive has bcj2 compression using ISDone?

[Razor12911]

most things are done under arc.ini

[danswano]

Will that expose arc.ini in temp folder?

[Darkangel5]

hello,

sorry to use google translation to translate.

I made an autorun (see screen).

http://img11.hostingpics.net/pics/344903Sanstitre.jpg (http://www.hostingpics.net/viewer.php?id=344903Sanstitre.jpg)

I would like to know how to make a zoom effect passage of the mouse has on the button readme, manual etc etc.

[Razor12911]

Use a timer or sleep with repeat and until on the onmouseenter event and do the same with onmouseleave, during that period you can change the font size and etc.

[Darkangel5]

Use a timer or sleep with repeat and until on the onmouseenter event and do the same with onmouseleave, during that period you can change the font size and etc.

thank you for your answer

are there any example scripts?

[Logrim]

Hi, long time without ask nothing ... i need to know how to make a unninstall button with botva2 buttons.. thanks.. ( i still have problems managings some reg keys )

[Razor12911]

@Logrim,

Same way you did with setup buttons, just that botva2.dll and innocallback.dll/callbackctrl.dll must exist in the temp directory when uninstalling.

Just find a way to copy the files to install directory when installing then when uninstalling, copy them to temp. :D, Problem solved.

[Logrim]

Thanks Razor, but i explain it badly.. if game is installed, i need to detect it an offer unninstall, but the problem is solved days ago,, sorry for no reply.. i finally make a custom form, that detect install in the beggining, and offer unninstall and repair :D.

[Logrim]

Edited.. Problem solved for my own..

[Logrim]

Another rapid question.. i have a custom form made for disc change, but i dont know how to "activate" the form without isdone. With isdone is not problem but without isdone i dont know where to put the code for where change disc form appears..

P.D. sorry if my english is not good

P.D.2. Again problem solved... thanks for "your responses" :D

[Snipunk]

I'm familIarizing myself with inni setup and I have repacked some games before (simple methods).
But I couldn't get a hint about what "yener CI" is, can any one tell me our post a link where I could get it or what it is, please?

[Razor12911]

http://fileforums.com/showthread.php?t=95717

[Logrim]

I have a little problem. I try to make a function to show text when mouse is over a button.. i need to put two diferent text in each button. My problem is that the first text work fine but with the second text i get an error "colon ( : ) expected".

This is the code of one of the button:

procedure MessageOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn:
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;

Thanks for your help

[altef_4]

I have a little problem. I try to make a function to show text when mouse is over a button.. i need to put two diferent text in each button. My problem is that the first text work fine but with the second text i get an error "colon ( : ) expected".

This is the code of one of the button:

procedure MessageOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn:
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;

Thanks for your help

procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn: MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
end;
end;

procedure MessageOnLeave(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseleave.wav' ), $0001);
case hBtn of
NextBtn: MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;
end;
...
BtnSetEvent(NextBtn,BtnEnterEventID,CallbackAddr(' MessageOnEnter'));
BtnSetEvent(NextBtn,BtnLeaveEventID,CallbackAddr(' MessageOnLeave'));

[Logrim]

Work fine,, but i need the two messages OnEnter. I need something similar to your new EI demo altef,, for example when mouse down on option button, display two text.. one with "options text title" and one with "options text description". ohh,, i forget,, and when not button on mouse down, i like the text dissapears.. sorry for the disturb :D

[altef_4]

procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of

NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;

end;
end;

procedure MessageOnLeave(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseleave.wav' ), $0001);
case hBtn of

NextBtn:
begin
MessageTitleLabel.Caption:='';
MessageLabel.Caption:='';
end;

end;
end;

[Logrim]

Thanks man,, work perfectly.. i look newbie on this... BEGIN, END... ains.. thanks a lot again man.

[Logrim]

Altef,, the MessageOnEnter procedure works fine, but how change the finish button caption? i mean when finish, the caption is the StartTittle but i need to change to FinishTittle..

[Razor12911]

procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
if WizardForm.CurPageID = wpFinished then
begin
case hBtn of
NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('Whateve r, blah, write here');
MessageLabel.Caption:=ExpandConstant('Whatever, blah, write here');
end;
end else begin
case hBtn of
NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;
end;
end;
end;

[Logrim]

Thanks razor,, work like a charm :d.. i forgot to include wizardform in curpageid... ains..

Another problem... i hope,, really i hope is the last.. when i cancel the installation (external compression) even in 1% or 2%, the correct message of rollingback appears, but the setup dont quit.. i dont know why.. this is my cancel procedure:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0001);
Confirm:=False;
if CurPageID=wpInstalling then SuspendProc;
if CurPageID=wpInstalling then
begin
ISDoneError:=True;
ISDoneCancel:=1;
CoderLabel.Hide;
PercentageLabel.Hide;
WizardForm.Progressgauge.Hide;
FileStatusLabel.Setbounds(350,325,500,15);
FileStatusLabel.Font.Color:=clRed;
FileStatusLabel.Caption:=ExpandConstant('{cm:Rolli ngFileStatusLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
end;
if CurPageID=wpInstalling then ResumeProc;
end;

[Razor12911]

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0001);
Confirm:=False;
Cancel:=True;
if CurPageID=wpInstalling then SuspendProc;
if CurPageID=wpInstalling then
begin
ISDoneError:=True;
ISDoneCancel:=1;
CoderLabel.Hide;
PercentageLabel.Hide;
WizardForm.Progressgauge.Hide;
FileStatusLabel.Setbounds(350,325,500,15);
FileStatusLabel.Font.Color:=clRed;
FileStatusLabel.Caption:=ExpandConstant('{cm:Rolli ngFileStatusLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
end;
if CurPageID=wpInstalling then ResumeProc;
end;

[Logrim]

i have a little problem.. i want the destock shorcut checked in the setup, but i dont find a way to work..

this is my shorcut procedures:

procedure DesktopClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\Click.wav'), $0001);
if BtnGetChecked(hBtn) then CreateDLabel.Font.Color:=$20A5DA else CreateDLabel.Font.Color:=$008CFF;
end;

procedure DesktopLabelClick(Sender:TObject);
begin
BtnSetChecked(DesktopCheck, not BtnGetChecked(DesktopCheck));
DesktopClick(DesktopCheck);
end;

Thanks

P.D. Problem solved,, was easy... ains.. only adding " BtnSetChecked(DesktopCheck,True)" to wpwelcome in CurPageChanged..

[Logrim]

i need to know how see the installer in the taskbar please :D thanks for your help.

[lcatorio]

(Sorry for my English)



I want to Automatically detect and set MAC Address to Input Query when i run setup ( inno setup key generator).

5554

5555

Please send me the Script because i have no knowledge about this coding


This is very Important to me please help me


Thank you very much :)


This is inno script




[_ISTool]

EnableISX=true

Use7zip=false

[Files]

Source: sample2.iky; DestDir: {tmp}; Flags: ignoreversion

Source: ISID.dll; DestDir: {sys}\ISID; Flags: ignoreversion


[Setup]

AppName=Inno Key Generator2

AppVerName=Inno Key Generator 1.0.2.1 2

DefaultDirName={pf}\MJ Freelancing\IKG

DefaultGroupName=Inno Key Generator

OutputDir=output

AppCopyright=Copyright © Oct 2002 - 2006 MJ Freelancing

OutputBaseFilename=IKGSetup


[ThirdParty]

CompileLogMethod=append


[Code]


function ValidateSerialNumber(InnoKeyFile, User, Orgn, ProdCode, HDD, MAC, PrivateKey, Serial: AnsiString): Boolean;

external 'ValidateSerialNumber@files:ISID.dll stdcall';

function GetMACAddress(output: AnsiString): Boolean;

external 'GetMACAddress@files:ISID.dll stdcall';


var

UserPage: TInputQueryWizardPage;

UserValues: TArrayOfString;

I: Integer;

procedure InitializeWizard();

begin

{ create the custom page }

UserPage := CreateInputQueryPage(wpInfoBefore, //wpWelcome,

'Enter Registration Details', 'You need to be a registered user to be able to proceed',

'Enter your registration details exactly (case sensitive), then click Next.');

UserPage.Add('MAC Address:', False);
UserPage.Add('Unlock Code:', False);
UserPage.Add('Private Key:', False);

// here's how to assign texts to those edit boxes
UserPage.Edits[0].Text := 'Detect and set MAC Address';
UserPage.Edits[1].Text := '123456789_Unlock';
UserPage.Edits[2].Text := 'Pr1v4t3 k3y';

// iterate all edit boxes to set them ReadOnly mode and gray color in
// an easier way than writing the same three times for all edit boxes
for I := 0 to 2 do
begin
UserPage.Edits[I].ReadOnly := True;
UserPage.Edits[I].Color := clBtnFace;
end;

{ Set default values }

SetArrayLength(UserValues, 3);

end;

function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;

var

ExpPath: String;

begin

Result := True;

if (CurPage = UserPage.ID) then

begin

ExtractTemporaryFile('sample2.iky'); { the public key file }

ExpPath := ExpandConstant('{tmp}\sample2.iky');

Result := False;

UserValues[0] := UserPage.Values[0];
UserValues[1] := UserPage.Values[1];
UserValues[2] := UserPage.Values[2];

if (UserValues[0] = '') or (UserValues[1] = '') or (UserValues[2] = '') then

MsgBox('No fields can be blank !', mbError, MB_OK)

else

begin



//UserPage.Values[0] := GetPreviousData('MAC', UserValues[0]);

//UserPage.Values[1] := GetPreviousData('Unlock', UserValues[1]);

//UserPage.Values[2] := GetPreviousData('Private', UserValues[2]);



//function ValidateSerialNumber(InnoKeyFile, User, Orgn, PCe,HDD,MAC,PrivateKey, Serial: AnsiString): Boolean;

Result := ValidateSerialNumber( ExpPath,'','','','',UserValues[0],UserValues[2],UserValues[1] );

if (not Result) then

MsgBox('Invalid Entry !', mbError, MB_OK);

end
end

end;


function NextButtonClick(CurPage: Integer): Boolean;

begin

Result := ScriptDlgPages(CurPage, False);

end;

function BackButtonClick(CurPage: Integer): Boolean;

begin

Result := True;//ScriptDlgPages(CurPage, True);

end;

function HasHtmlHelp(): Boolean;

begin

{ HHCTRL.OCX GUID }

Result := RegValueExists(HKCR, 'CLSID\{4662DAB0-D393-11D0-9A56-00C04FB68B66}\InprocServer32', '');

end;

function HasNoHtmlHelp(): Boolean;

begin

Result := not HasHtmlHelp;

end;
I also need this, still no answers? Can't find anywhere :( Please help us..!

[Logrim]

hi, i would like to know if there is a way to show the installer pages in the taskbar when mousedown in the taskbar icon. thanks.

[y_thelastknight]

hi, i would like to know if there is a way to show the installer pages in the taskbar when mousedown in the taskbar icon. thanks.

use this dll bro.

WinTB 1.0.0.8 by David.D.Rocco

[Logrim]

Thanks y_thelastknight... the problem with wintb is that when i mousedown in taskbar setup icon, dont show the buttons and text, only de png that i set in background. My installer have a bmp mask.

[Logrim]

How to make a botva button visible or invisible in ini file? i have botva buttons for redist checkboxes, and redist names in ini. i want that when i set not visible the directX label for example, the directx button not visible too. Now i have this in CuPageChanged and work well,, but i have to hide the label in the ini and the button in the script..

//BtnSetVisibility(DirectXCheck,False);
DirectXLabel.Visible:=ExpandConstant('{code:Redist 1Name}') <> '';

Help please.. Thanks

[y_thelastknight]

@logrim Contact me in fb.. i have to confirm something.

[y_thelastknight]

How to make a botva button visible or invisible in ini file? i have botva buttons for redist checkboxes, and redist names in ini. i want that when i set not visible the directX label for example, the directx button not visible too. Now i have this in CuPageChanged and work well,, but i have to hide the label in the ini and the button in the script..



Help please.. Thanks

BtnSetVisibility(DirectXCheck,ExpandConstant('{cod e:Redist 1Name}') <> '');
DirectXLabel.Visible:=ExpandConstant('{code:Redist 1Name}') <> '';

[ahmetbtmn]

How to use precomp+srep+lzma64 or precomp+srep64+lzma in bat file? for example Razor12911 code: -mprecomp+srep64+lzma64:a1:mfbt4:d158m:fb273:mc1000 :lc8

I add code in bat file but gives error unsupported.

[Razor12911]

copy and paste arc.ini lzma64.exe and srep64.exe from conversion packer to your bat location

[Shadow Delta]

Could all these customization which inno can deliver, could possibly be achieved by NSIS? or does the form have a dedicated session for NSIS scripts and tool like Inno has?

[Razor12911]

yea I think so as long as there are libraries for NSIS that can do the same with Inno, you can always import some abilities from dll files.

[Danik1B9]

Hi I use this compression: arc a -ep1 -ed -r -w.\Data\ Data-09a.db -msrep+delta+rep+lzma:a1:mfbt4:d158m:fb273:mc1000:l c8 "D:\1\*" I know it even better, can anyone advise what mni, eg: BLACKBOX, RG Mechanics, RG Revenants. thanks

[Logrim]

Hi, i need help with a little thing.. I try to explain the problem with my poor english..

I need to know how to move a custom form and at same time move the wizardform..
I mean move the two as if it were one.

I hope you understand me :D.. thanks.

[Logrim]

Hi all,, please i need to know how to make a custom new folder button in a custom folderbrowse form. thanks..

[MMR]

Hi , I want the installer don't make AppName or DefaultDirName to use installer as abatch like this :
http://s10.postimg.org/dnbv49xix/screenshot_7.png

[Razor12911]

Defaultdirname should be {sd}

[MMR]

Defaultdirname should be {sd}

thanks Razor12911 but it didn't work well , after opening setup.exe file it work like this :
http://s10.postimg.org/gjyw4k3cp/screenshot_13.png

but if press browse & change the location it dosn't work like this :
http://s10.postimg.org/7dglh9y49/screenshot_14.png
please any help :confused: .

[Dante1995]

try this

[MMR]

try this

thanks but the same problem , you don't understand what I mean ,
I want the setup doesn't make folder to install the files ( setup don't use DefaultDirName ) just install files in any partition or folder :confused::confused:
http://s10.postimg.org/kmuihdmux/screenshot_17.png

[Darkangel5]

hello,

sorry to use google translation to translate.

I made an autorun (see screen).

http://img11.hostingpics.net/pics/344903Sanstitre.jpg (http://www.hostingpics.net/viewer.php?id=344903Sanstitre.jpg)

I would like to know how to make a zoom effect passage of the mouse has on the button readme, manual etc etc.

I post a message there about 2 months and had me help razor12911
but I can not do
So if anyone has a script to help me would be nice ca

thank you

[Logrim]

One little question, please help me in you can :D

i have a botva2 button, this:

InstallGame1Btn:=BtnCreate(WizardForm.Handle,55,84 ,15,15,'AutorunMainBtn.png',0,False);
BtnSetEvent(InstallGame1Btn,BtnClickEventID,CallBa ckAddr('InstallGame1BtnClick'));
BtnSetEvent(InstallGame1Btn,BtnMouseEnterEventID,C allBackAddr('BtnEnter'));
BtnSetCursor(InstallGame1Btn,GetSysCursorHandle(32 649));

and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:
InstallGame1Label:=TLabel.Create(WizardForm);
InstallGame1Label.Parent:=WizardForm;
InstallGame1Label.SetBounds(75,84,0,0);
InstallGame1Label.Font.Name:='Verdana';
InstallGame1Label.Font.Style:=[fsBold];
InstallGame1Label.Font.Color:=$C0C0C0; //Light Gray;
InstallGame1Label.Font.Size:=9;
InstallGame1Label.Caption:=ExpandConstant('{#Game1 Name}');
InstallGame1Label.OnMouseDown:=@WFMouseDown;
InstallGame1LabelS:=TLabel.Create(WizardForm);
with InstallGame1LabelS do begin
Parent:=WizardForm;
SetBounds(75+1,84+1,0,0);
Font.Name:='Verdana';
Font.Style:=[fsBold];
Font.Color:=clBlack;
Font.Size:=9;
SendToBack;
Caption:=ExpandConstant('{#Game1Name}');
OnMouseDown:=@WFMouseDown;
end;

Thanks

Edit: anyone know how to make a label color semitransparent?

[Razor12911]

@Darkangel5

Fix the lines where there are errors, using phone in bed, not even using a computer. :D
first create a timer like this:
var
FontTimer: TTimer;
InstallMouseMove: Boolean;

second create the Timer's procedure

procedure FontOnTimer(Sender: TObject);
begin
if InstallMouseMove and (installlabel.font.size < 18) then
installlabel.font.size:=installlabel.font.size:= + 1;
if not InstallMouseMove and (installlabel.font.size > 12) then
installlabel.font.size:=installlabel.font.size:= - 1;
end;

the label's mouse enter and leave

procedure InstallLabelOnEnter(Sender: TObject);
begin
InstallMouseMove:=True;
end;

procedure InstallLabelOnLeave(Sender: TObject);
begin
InstallMouseMove:=False;
end;

now at initializewizard do this

InstallLabel.OnMouseLeave:=@InstallLabelOnLeave;
InstallLabel.OnMouseEnter:=@InstallLabelOnEnter;
FontTimer:=TTimer.Create(WizardForm)
with FontTimer do
begin
OnTimer:=@FontOnTimer;
Interval:=10;
Enabled:=True;
end;

installlabel is the existing label.

[Razor12911]

One little question, please help me in you can :D

i have a botva2 button, this:



and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:


Thanks

Edit: anyone know how to make a label color semitransparent?

these botva2 buttons are longintegers, looks at the functions and the variables, they are longint and longit doesn't have left, nor top and stuff like that but you can get those values by doing this:
var
Pos: TRect;
begin
BtnGetPosition(InstallGame1Btn,Pos.Left,Pos.Top,Po s.Right,Pos.Bottom);
//Right is Width and and Bottom is Height
SetBounds((Pos.Left + Pos.Right) + 10,0,0,0);
end;

[Razor12911]

thanks Razor12911 but it didn't work well , after opening setup.exe file it work like this :
http://s10.postimg.org/gjyw4k3cp/screenshot_13.png

but if press browse & change the location it dosn't work like this :
http://s10.postimg.org/7dglh9y49/screenshot_14.png
please any help :confused: .

[setup]
defaultdirname={sd}

[code]
procedure DirEditOnChange(Sender:TObject);
begin
WizardForm.DirEdit.Text:=AddBackSlash(ExtractFileD rive(WizardForm.DirEdit.Text));
end;

procedure InitializeWizard;
begin
WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;

[Razor12911]

One little question, please help me in you can :D

i have a botva2 button, this:



and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:


Thanks

Edit: anyone know how to make a label color semitransparent?

semitransparent font color? I don't think it is possible under VCL well maybe it is but is possible in FMX where color is written in this manner $AARRGGBB where the AA is the alpha/transparent color level but in VCL/Inno Ssetup it is something like this $AABBGGRR where AA is normal when it is < 60 but when it is > 60 it is black.

[aj12345]

How to add disk space required and avaible.
http://s5.postimg.org/psaho6n2f/screenshot_7.png

[MMR]

[setup]
defaultdirname={sd}

[code]
procedure DirEditOnChange(Sender:TObject);
begin
WizardForm.DirEdit.Text:=AddBackSlash(ExtractFileD rive(WizardForm.DirEdit.Text));
end;

procedure InitializeWizard;
begin
WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;

thanks "Razor12911" but thier's error ;
i choose the location "C:\fraps\" but it make new folder automatically :
http://s10.postimg.org/tzqi7r189/Screenshot_175.png
and if i press ok the location change to "C:\" without any dir then it give me error :
http://s10.postimg.org/vstew2mex/Screenshot_177.png
please help if you can :confused: .

[Logrim]

i have a question, i'm trying to add wintb to my code, and i can add it without errors, but the taskbar preview not show correctly, my code have mask, and only show in preview the picture, but not the welcome letters or the buttons.. how can i solve it? i hope you can understand my problem.

[altef_4]

i have a question, i'm trying to add wintb to my code, and i can add it without errors, but the taskbar preview not show correctly, my code have mask, and only show in preview the picture, but not the welcome letters or the buttons.. how can i solve it? i hope you can understand my problem.

it's happening because in task bar shows your "mask" form and not form with text, i have same problem in my Enhanced Installer.

[y_thelastknight]

i have a question, i'm trying to add wintb to my code, and i can add it without errors, but the taskbar preview not show correctly, my code have mask, and only show in preview the picture, but not the welcome letters or the buttons.. how can i solve it? i hope you can understand my problem.

what code did you use??

procedure TaskBarV11(wf: HWND); external 'TaskBarV11@{tmp}\WinTB.dll stdcall delayload';
TaskBarV11(WizardForm.Handle);

this code work fine for me.

[Logrim]

bro, can you show me the entire code if is not much? i try a lot of times and only show the mask part in taskbar.. the code it's going to take years lol.. but is almost finished.. only two or three details..

[y_thelastknight]

bro, can you show me the entire code if is not much? i try a lot of times and only show the mask part in taskbar.. the code it's going to take years lol.. but is almost finished.. only two or three details..

this is my script.

[Logrim]

y_thelastknight the icon on taskbar dissapears with that code :P

[y_thelastknight]

y_thelastknight the icon on taskbar dissapears with that code :P

not for me. :(

[Logrim]

nah, i suposse is for the mask or something... i give up :D but a lot of thanks bro.

P.D. Sorry moderators if my two last post are a little useeles.

[Grumpy]

P.D. Sorry moderators if my two last post are a little useeles.

The Forum is currently having a few Database errors so I can not check which were your last 2 posts but if you are talking about your last 2 posts here in this thread then no they are not useless posts.
This thread is for 'questions' and you asked questions, so all is good. ;)

[Carldric Clement]

Who's can fix it?
Here's that file (https://www.dropbox.com/s/dy9gcccnf693z7m/Scripts.7z?dl=0) link! :o

[Carldric Clement]

hi guys, please test this setup on your PC (some hardware info), and report back results (correct or not correct or ,maybe, don't work).

Thanks altef_4! :rolleyes::D

PS:

altef_4! I will use your GID soon!
I found that a problem is My OS (Windows 8 Pro) wasn't okay!
Maybe i'm gonna to install back the Windows 7 it!
Wich means gonna back up my all files it! Sorry altef_4!
It's my fault :o

[Compiler]

hi guys, please test this setup on your PC (some hardware info), and report back results (correct or not correct or ,maybe, don't work).

CPU,usable ram,OS,GPU were fine,but what is the last one HDD space ?
Using Windows 7 by the way

[altef_4]

CPU,usable ram,OS,GPU were fine,but what is the last one HDD space ?
Using Windows 7 by the way

it's only for test, library can get almost all hardware info.

[Compiler]

if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{app}\"'), ExpandConstant('{tmp}'), '...',false) then break;

What does the 3rd Zero stand for ?

[Dante1995]

I tested in windows 8

I created a new version Sysinfo, still in use test because the library get_hw_caps.dll please let me tested

[tommythebang]

how to add an ini file to give special effects in setup

[Razor12911]

Ini does not enable a setup to have special effects

[mausschieber]

Works fine for me thanks

http://abload.de/img/test4oqx0.jpg

[Dante1995]

mausschieber

thanks to you bro :p

then I will use this from now :)

[tommythebang]

how to add setup.ini to give effects to my setup

[Razor12911]

Ini does not enable a setup to have special effects
also going to copy post as is.
Inis are only use to interact with external data(read or write data in the form of string, integer and boolean) and they don't give special effects,
use libraries to do effects and etc, you can also use components from inno setup too to do these effects.
http://fileforums.com/images/misc/progress.gif

[pcblizzard]

Hello,

I have a problem with the "CI_Converted_To_CIU" to-Script and the "internal installation":

The setup did not start on the "setup.exe". I will setup indeed appear in the taskbar, but I can not open the window (in the task manager itself stands "Inactive"). Although the "autorun.exe" works but when I press and "Install" button and the "setup.exe" should become active, the game starts again from the beginning.

Overall, the project is almost 45 GB in size and the disc clamping has been made in 8 GB (individual * bin files are 1.59 GB in size and the "Setup.cab" has a size from 11 MB).

How can I now so the "setup.exe" to bring me the installation menu display?


Regards

[Logrim]

I have a problem with cyrillic characters in botva2 buttons.. for example russian charcters.. in all the installer works perfectly, but in the buttons only displays a ?????.. anyone knows how can i fix it? thanks.

[Razor12911]

look at btnsettext, the variable is PAnsiChar, whichs makes other characters like this ?????, it takes ANSI Characters but have you tried renaming PAnsiChar to String or use character as byte. like this #30 or so(don't remember) Anyways, if a character appear as questions marks, it should work on an operating system that supports it, for example if text is russian it might need system language russian to work.

[Dante1995]

non working in botva2 pansichar string for encoding unicode, use [messages]

[Carldric Clement]

non working in botva2 pansichar string for encoding unicode, use [messages]

Wow! Nice Dante1995!
It's like a logo & website it!
:rolleyes::cool::D

[minh_k43sj]

Hello, everyone !
How to i can install DirectX (mode not silent, show the windows install DirectX)
I should fix : /silent =???

Code
if CurStep=ssPostInstall then begin
if DirectXCB.Checked then begin
Status.Caption:='Installing DirectX...';
Status.Left := 200;
Status.Top := 200;
Status.Width := 223;
Status.Height := 20;
Exec2(ExpandConstant('{src}\Redist\DirectX\DXSETUP .exe'),'/silent',false);

[Razor12911]

Exec2(ExpandConstant('{src}\Redist\DirectX\DXSETUP .exe'),'',false);
remove argument "/silent"

[minh_k43sj]

Exec2(ExpandConstant('{src}\Redist\DirectX\DXSETUP .exe'),'',false);
remove argument "/silent"

thank you :D

[Dante1995]

Wow! Nice Dante1995!
It's like a logo & website it!
:rolleyes::cool::D

Scripts are my brother sin now he thinks only women :D

[Logrim]

I have a question, is not a problem but is related to the forum :d.. i have my own script almost finished, only add frech languaje and finish.. i use my own vc++ redist for the conversions, is an AIO with all 2005,2008 and 2010. Is licit if i upload my conversions with that redist, and not with the original from the game disc?

P.D. I make this, because i use the last version of all redist.. directx, v++, live, and phyx. The last is valid for AGEIA physx and modern physx.. This way i dont have problem related to the redist with any game. Thanks.

[punchao]

http://snap.ashampoo.com/uploads/2014-11-04/I7h4Q9In.png

how to resolve this?

[sied]

Hi i'm newbie here... i need tutorial for create file setup.cab... i have freearc 0.666. can you help me?

[Carldric Clement]

Hi i'm newbie here... i need tutorial for create file setup.cab... i have freearc 0.666. can you help me?

Do you have download BlackBox Script it?
:rolleyes::cool:

[altef_4]

hi guys, please test this setup on your PC (some hardware info), and report back results (correct or not correct or ,maybe, don't work).

[mausschieber]

works fine
only the cores not i have 8 cores
but shows me 4 cores

windows 8.1 x64 sp1

[y_thelastknight]

altef_4, working fine bro.

[Razor12911]

altef_4, it works fine bro but what is the difference between RAM Total and RAM Total Available? On my test they were the same(RAM Total: 1526mb and RAM Total Available: 1526mb) and when I check with Resource Monitor, Installed RAM is 1536mb and available is 1526mb.

[altef_4]

altef_4, it works fine bro but what is the difference between RAM Total and RAM Total Available? On my test they were the same(RAM Total: 1526mb and RAM Total Available: 1526mb) and when I check with Resource Monitor, Installed RAM is 1536mb and available is 1526mb.

probably, when you have installed win32 and 4gb RAM, you will be able to use only 3gb, but i need more tests.

[Razor12911]

Um, nope. the detection is fine. I am using the computers at the Internet Cafe. It has 1.5gb, not 4gb and on win32. What I am say is that it only detects the total available ram twice and not the installed ram.

Unless if I am over viewing things

[texes06]

Hi ...
I'm not sure I'm spelling Öncelikel to the right place ...
Please help ...
I receive the following error , where I could have done wrong ...

http://i.hizliresim.com/aBkmAg.jpg (http://hizliresim.com/aBkmAg)

[texes06]

Hello ...
Please can you help me ...
I receive errors when I try to uninstall the game . Where I could have done wrong ...

http://i.hizliresim.com/aBkmAg.jpg (http://hizliresim.com/aBkmAg)[/QUOTE]

[Razor12911]

http://stackoverflow.com/questions/22387351/what-casuses-the-message-internal-error-cannot-find-utcompiledcode-record-for

[texes06]

http://stackoverflow.com/questions/22387351/what-casuses-the-message-internal-error-cannot-find-utcompiledcode-record-for


First of all thank you for responding ...

Please can you help as to what I should do here ...:):):)

[pakrat2k2]

First of all thank you for responding ...

Please can you help as to what I should do here ...:):):)

the error means that when you compressed your game, you also included in the archive the unins000.* files ( from games original install ) that's whats causing that error. You have to re-create your archives without those uninstall files present. ( look thru conversions, as almost all, mention something about moving games uninstall files, before making archives ).

Once you remember to move those uninstall files out of games directory BEFORE makin archives, that error wont come up again.

[texes06]

http://stackoverflow.com/questions/22387351/what-casuses-the-message-internal-error-cannot-find-utcompiledcode-record-for

Thank you:):):)

[texes06]

the error means that when you compressed your game, you also included in the archive the unins000.* files ( from games original install ) that's whats causing that error. You have to re-create your archives without those uninstall files present. ( look thru conversions, as almost all, mention something about moving games uninstall files, before making archives ).

Once you remember to move those uninstall files out of games directory BEFORE makin archives, that error wont come up again.

Thank you :):):)

[leotrim77]

PLEASE HELP ME I AM LOOKING FOR THIS BUT NOBODY REPLY ME ... ?
I have Script Black Box old not V2 .. is okay but my game has 2 .exe or two shorcuts how to put these exe on desktop what to add on script to put two exe on desktop pleasee ... ??

my half of script : WHAT SHOULD I EDIT HERE IN THIS SCRIPT : ....

//----------This Installer Uses Inno Setup Unicode Version----------\\
#define AppName "Subway Surfers"
#define AppPublisher "LeoO Globe"
#define AppVersion "1.0.0"
#define AppExec "Subway_Surfers.exe"
#define AppURL "https://www.youtube.com/mr316dx"
#define AppSize "610"
#define SetupName "Setup"
#define SetupOut "Output"

#define PrecompVer "Inside"

[Setup]
AppName={#AppName}
AppPublisher={#AppPublisher}
AppVersion={#AppVersion}
AppComments={#AppName}
DefaultDirName={pf}\{#AppPublisher}\{#AppName}
DefaultGroupName={#AppName}
OutputBaseFilename={#SetupName}
OutputDir={#SetupOut}
SetupIconFile=Style\Setup.ico
WizardImageFile=Style\Background.bmp
WizardSmallImageFile=Style\smallbitmap.bmp

[Icons]
Name: {group}\Uninstall {#AppName}; Filename: {app}\unins000.exe; WorkingDir: {app}; Check: CheckError
Name: {group}\{#AppName}; Filename: {app}\{#AppExec}; WorkingDir: {app}; Check: CheckError
Name: {commondesktop}\{#AppName}; Filename: {app}\{#AppExec}; WorkingDir: {app}; Check: CheckError

[Files]
Source: Include\*.*; DestDir: {tmp}; Flags: dontcopy
Source: Style\*.*; DestDir: {tmp}; Flags: dontcopy

[Messages]
SetupWindowTitle=Welcome to The Setup Wizard «{#AppName}»

[CustomMessages]
SoundCtrlButtonCaptionSoundOn=Music on
SoundCtrlButtonCaptionSoundOff=Music off

[Languages]
Name: eng; MessagesFile: compiler:Default.isl

[Components]
Name: "directx"; Description: "Install DirectX"
Name: "visualc"; Description: "Install Visual C++"
Name: "nvidiaphysx"; Description: "Install Nvidia Physx"
Name: "framework"; Description: "Install Framework"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[UninstallDelete]
Type: filesandordirs; Name: {app}

[Code]
const
BASS_SAMPLE_LOOP = 4;
BASS_ACTIVE_STOPPED = 0;
BASS_ACTIVE_PLAYING = 1;
BASS_ACTIVE_STALLED = 2;
BASS_ACTIVE_PAUSED = 3;
BASS_UNICODE = $80000000;
BASS_CONFIG_GVOL_STREAM = 5;
const
#ifndef UNICODE
EncodingFlag = 0;

[leotrim77]

please help me .... ??

[by_pbh]

PLEASE HELP ME I AM LOOKING FOR THIS BUT NOBODY REPLY ME ... ?
I have Script Black Box old not V2 .. is okay but my game has 2 .exe or two shorcuts how to put these exe on desktop what to add on script to put two exe on desktop pleasee ... ??

my half of script : WHAT SHOULD I EDIT HERE IN THIS SCRIPT : ....


#define AppName "Subway Surfers"
#define AppExec "Subway_Surfers.exe"
#define AppName1 "Subway Surfers two"
#define AppExec1 "Subway_Surfers_two.exe"

[Icons]
Name: {group}\Uninstall {#AppName}; Filename: {app}\unins000.exe; WorkingDir: {app}; Check: CheckError
Name: {group}\{#AppName}; Filename: {app}\{#AppExec}; WorkingDir: {app}; Check: CheckError
Name: {group}\{#AppName1}; Filename: {app}\{#AppExec1}; WorkingDir: {app}; Check: CheckError
Name: {commondesktop}\{#AppName}; Filename: {app}\{#AppExec}; WorkingDir: {app}; Check: CheckError
Name: {commondesktop}\{#AppName1}; Filename: {app}\{#AppExec1}; WorkingDir: {app}; Check: CheckError

[leotrim77]

#define AppName "Subway Surfers"
#define AppExec "Subway_Surfers.exe"
#define AppName1 "Subway Surfers two"
#define AppExec1 "Subway_Surfers_two.exe"

[Icons]
Name: {group}\Uninstall {#AppName}; Filename: {app}\unins000.exe; WorkingDir: {app}; Check: CheckError
Name: {group}\{#AppName}; Filename: {app}\{#AppExec}; WorkingDir: {app}; Check: CheckError
Name: {group}\{#AppName1}; Filename: {app}\{#AppExec1}; WorkingDir: {app}; Check: CheckError
Name: {commondesktop}\{#AppName}; Filename: {app}\{#AppExec}; WorkingDir: {app}; Check: CheckError
Name: {commondesktop}\{#AppName1}; Filename: {app}\{#AppExec1}; WorkingDir: {app}; Check: CheckError



you know what ...

I LOVE YOU SO MUCH thank youuuuuuuuuuuuuuuuuuuuu :)
thank you bro

[leotrim77]

hey guys I have only last question I just want to know why is registry important to add to script or to inno setup , what does mean registry ... please explain me somebody , Why should I add registry of game to script ... ?

[Inge]

hey guys I have only last question I just want to know why is registry important to add to script or to inno setup , what does mean registry ... please explain me somebody , Why should I add registry of game to script ... ?

The Registry is Important for some older Games (mostly no Steam Games) to start the Game (like Assassins Creed 2, Brotherhood, ect) to define Game Languages, bla, bla...

Search in your Registry (regedit) if Games needed a Reg entry.

[leotrim77]

The Registry is Important for some older Games (mostly no Steam Games) to start the Game (like Assassins Creed 2, Brotherhood, ect) to define Game Languages, bla, bla...

Search in your Registry (regedit) if Games needed a Reg entry.

so does it work even if you don't put registry on script ... ?

[pakrat2k2]

yes it still works without reg entries. SOME games don't need them to work. BUT some games wont run without them there.

[leotrim77]

please help me where can I fine any tutorial how to get registry from games , please tell me somebody how can I find registry of games ... ???

[Inge]

please help me where can I fine any tutorial how to get registry from games , please tell me somebody how can I find registry of games ... ???

Click Windows Button + R Button on your Keyboard, in the following Window enter the Words 'regedit'.
Now go to HKEY_LOKAL_MACHINE->Software->Wow6432Node->Search your Game.
Make a right click on the Folder and click Export. Now edit .reg Data for your Script.

[leotrim77]

Click Windows Button + R Button on your Keyboard, in the following Window enter the Words 'regedit'.
Now go to HKEY_LOKAL_MACHINE->Software->Wow6432Node->Search your Game.
Make a right click on the Folder and click Export. Now edit .reg Data for your Script.

thank you bro , quick tutorial but powerfuel :) thank you

[pakrat2k2]

along with that goto this topic & grab Reg to INNO Converter ENG.rar which will create a iss file so you can put those exported reg entries into your Inno script. They will of course need to be edited. IE in screenshot above shows InstallDir=E:\Program Files (x86)\Resident Evil 5, which would be changed to {app} so that anyone can install to where they want to & not to 1 specific location.

http://fileforums.com/showthread.php?t=92995

[GhostSystem]

how to disable cancel button in welcome page and second back button innosetup..

[pakrat2k2]

how to disable cancel button in welcome page and second back button innosetup..

if referring to yener's script, simply enter values bigger then image, or use negative values.

[Razor12911]

on a normal script, this is what you do.

[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WizardForm.CancelButton.Enabled:=False; // to disable;
WizardForm.CancelButton.Visible:=False; // to hide;
WizardForm.BackButton.Enabled:=False; // to disable;
WizardForm.BackButton.Visible:=False; // to hide;
end;
end;
end;

[sied]

Hi guys, it was the first time i learned inno convert, now im working on Lucius2 Project, I copied script houcine80 "http://fileforums.com/showthread.php?t=96328" . and changing setup.cab & setup.ini modification. The convert succesful, but the icon not appear on desktop during finishing installation process and the second issue while install the lucius 2 icon may changing into Middle Earth Shadow of Mordor icon.Would you tell me which part I have to fix????and how to make autorun aplication,at least please let me know,I need some help please ^.^

[pakrat2k2]

^^ Edit setup.ini & make sure these point to the correct places.

MyExecutableName=ShadowOfMordor.exe
MyExecutablePath=
MyExecutableIconName=x64


First line of course points to your games exe, 2nd line if its not in the root of game, what folder is it in. 3rd is what you want shortcut name. Also make sure your setup.ico is for your game not mordor & is where the ISS scripts are.

[leotrim77]

hey guys please HELP, why the script is not opening Direct X to install after the game is installed , Visual c++ start installing but Direct X not, for Direct X says: directx command line switches.

Why please help ... ?

or should I edit the scipt for this action ... ? please help me

[pakrat2k2]

wrong switch for DX

read this

http://fileforums.com/showthread.php?t=95092

[leotrim77]

wrong switch for DX

read this

http://fileforums.com/showthread.php?t=95092

I am not understanding nothing that topic ...
where is the problem ... ? what should I edit on script ../ ?

my script right now is:

if CurStep=ssPostInstall then begin
if DirectXCB.Checked then begin
Status.Caption:='Installing DirectX...';
Status.Left := 200;
Status.Top := 200;
Status.Width := 223;
Status.Height := 20;
Exec2(ExpandConstant('{src}\Redist\DirectX\dxsetup .exe'),'/q',false);
end;
if NvidiaPhysx.Checked then begin
Status.Caption:='Installing Nvidia Physx...';
Status.Left := 200;
Status.Top := 200;
Status.Width := 227;
Status.Height := 20;
Exec2(ExpandConstant('{src}\Redist\PhysX.msi'),'/q',false);
end;
if VisualCCB.Checked then begin
Status.Caption:='Installing Visual C++...';
Status.Left := 200;
Status.Top := 200;
Status.Width := 227;
Status.Height := 20;
Exec2(ExpandConstant('{src}\Redist\vcredist_x86.ex e'),'/q',false);
end;

[pakrat2k2]

proper switch for directx is silent not q

PhysX proper switch is s
C++ proper is /q /norestart

[leotrim77]

proper switch for directx is silent not q

PhysX proper switch is s
C++ proper is /q /norestart

please can you explain me something what is silent ,,, does it mean that Direct x will install silent without inerface ... ?? without watch ???

because I edited my script as you said now I don't see nothing ... ?

just I see : Installing Direct X .... after 10 sec ... I see Installing Visual C++ ... ? is it okay ??

[mausschieber]

please can you explain me something what is silent ,,, does it mean that Direct x will install silent without inerface ... ?? without watch ???

because I edited my script as you said now I don't see nothing ... ?

just I see : Installing Direct X .... after 10 sec ... I see Installing Visual C++ ... ? is it okay ??

/SILENT, /VERYSILENT

Instructs Setup to be silent or very silent. When Setup is silent the wizard and the background window are not displayed but the installation progress window is

[leotrim77]

/SILENT, /VERYSILENT

Instructs Setup to be silent or very silent. When Setup is silent the wizard and the background window are not displayed but the installation progress window is

aha now I am understanding but which is for interface ??? I want to see direct X during installation ... which letter ...??

jsut I want to know ... ?

[Razor12911]

like everybody said, /silent is the command for running direct x 9.0c silent without window, but with window, I don't think it is possible but google it, if it exists, you will find it. and if you just want the window to show up, leave the command space empty.

[pakrat2k2]

like everybody said, /silent is the command for running direct x 9.0c silent without window, but with window, I don't think it is possible but google it, if it exists, you will find it. and if you just want the window to show up, leave the command space empty.

like this

Exec2(ExpandConstant('{src}\Redist\DirectX\dxsetup .exe'),'',false);

[leotrim77]

thank you guys for reply now I am understanding :)

[Sculpture]

Hello,
I want to make simple installer using inno setup with the help of IS tool.
I compressed my files into (Data1,Data2).bins .
MY QUESTIONS
=============

1. How to add it to inno setup or is tool and extract it during installation ??Does it need codes? If there ,it is in which section on IS TOOL?

2. Then i want to do a check and install on directx, vcredist for both 32 bit and 64 bit,install icons.
I want to create an install OPTION in this window(after all installation)
http://i.imgur.com/tXFGPXZ.jpg
3.What is the use of Autorun.inf and and .ini files ?

[Razor12911]

your script must first have isdone support to be able to extract the archives, else I doubt istools can extract the files. you can use ultraarc since the default script can be used in istools, use ultraarc to compress the data. then open the example with istools then add your prerequisites there.
autorun.inf doesn't interfere or do anything regarding installation, it is just configurations for a device or devices that can be plugged and played, giving instructions and/or information to a computer.

[Sculpture]

How to get isdone ?can you download link ?

[Carldric Clement]

How to get isdone ?can you download link ?

Sculpture. Click Download ISDone Final v0.6 (http://krinkels.org/resources/isdone.67/) bro. :D

[Sculpture]

How to uses ISDone to extract .bin files?
Is there any english example script for ISDone?

And can you give codes that want to be written in different sections in INNO SCRIPT in order to extract .bin files !!!!!!!!!!

[Sculpture]

Directx and vcredist wizard is not silent after adding /SILENT
in here .......
http://i.imgur.com/8h0ebZW.png?1

[mausschieber]

Directx and vcredist wizard is not silent after adding /SILENT
in here .......
http://i.imgur.com/8h0ebZW.png?1

look here that should help you

http://fileforums.com/showpost.php?p=422635&postcount=1

[y_thelastknight]

Directx and vcredist wizard is not silent after adding /SILENT
in here .......
http://i.imgur.com/8h0ebZW.png?1

Web version of dxdiag wont work in silent.
Vcredist dont use silent method

Edit - http://fileforums.com/showthread.php?t=95092

This link have what u need?

[Sculpture]

I dont know about creating setup.ini
Web version of dxdiag wont work in silent.
What version of dxdiag will work in silent ?
Vcredist dont use silent method
What method for vcredist?

[pakrat2k2]

use the links given to you, the answers are in those topics

[bakutrak]

use the links given to you, the answers are in those topics

bro how to installing automatically to main target without confirmation?
ex. :
i want to instal stadiums pack automaticaly to dir Pro Evolution Soccer 2015\download
iam using unicode latest version

[Sculpture]

Is there any tutorial about PASCAL SCRPTING in inno setup ?

[pakrat2k2]

easy open any ISS script then help & search for pascal

all the information is there, not a tutorial but lots in its documentation.

[mausschieber]

hi guys can anyone tell me what is the error and how can i fix it thanks

http://abload.de/img/unbenannt-239plh.jpg (http://abload.de/image.php?img=unbenannt-239plh.jpg)

[Razor12911]

Well, it seems like there is something wrong with your bitmap or just some random windows 8 error.
try setting the correct width and height of the bitmap.
or make another bmp mask.
or run as windows 7 in compatibility mode.

[pakrat2k2]

@mausschieber

gotten that error many times just goto setup.ini & for the installer/autorun sizes reduce the width / height by 1 for each then try to recompile.

[alucard1973]

Hello,
sorry for English
I have a problem with the script kurutucu
The first problem is that when there is a choice of language and I do cancel, I get an error message.
My second problem, I integrated the hardware setup page but I can not get enabled page indef components.
I attached the pictures you can see what I'm talking about and the script
thank you for your help

first problem:
http://nsm08.casimages.com/img/2015/04/29//15042908463313335913218848.jpg
http://nsm08.casimages.com/img/2015/04/27//15042701355713335913210989.jpg
second problem:
http://nsm08.casimages.com/img/2015/04/27//15042701361613335913210990.jpg
http://nsm08.casimages.com/img/2015/04/27//15042701362713335913210991.jpg
http://nsm08.casimages.com/img/2015/04/27//15042701364413335913210992.jpg

screen:
I would therefore like to create a page that will open before the directx components to make a page like this to choose the game that you want to pack install
eg I select Tomb Raider 2 only me and it will install only the setup-2.bin
http://nsm08.casimages.com/img/2015/04/27//15042701503913335913211020.jpg
http://nsm08.casimages.com/img/2015/04/27//15042701370013335913210997.jpg

script:
http://www85.zippyshare.com/v/VmDG0iq9/file.html

[pakrat2k2]

^^ fix your image links so people can see what your talking about.
Add them directly to post, under manage attatchments, rather then 3rd party host.

[mausschieber]

Hey Guys since a few days I got this error
after i start Install button
how can i solve this please help
1 error
http://abload.de/thumb/unbenannt-1ftskh.jpg (http://abload.de/image.php?img=unbenannt-1ftskh.jpg)

2 error
http://abload.de/thumb/unbenannt-2q3sxi.jpg (http://abload.de/image.php?img=unbenannt-2q3sxi.jpg)

[Chinmaya Mishra]

Sorry For My Last Silly Questions.

But I Want To Know A Easy Way To Make A Splash Image

Please Help Me & Sorry again

[mausschieber]

Sorry For My Last Silly Questions.

But I Want To Know A Easy Way To Make A Splash Image

Please Help Me & Sorry again

use Graphic Studio ist very simple to make Splash Images see here

http://fileforums.com/showthread.php?t=96630&page=2

[Sculpture]

How to solve this ?
http://i.imgur.com/UuAPICp.jpg
script(code)-
const
PCFonFLY=true;
notPCFonFLY=false;
var
LabelPct1,LabelCurrFileName,LabelTime1,LabelTime2, LabelTime3: TLabel;
ISDoneProgressBar1: TNewProgressBar;
#ifdef SecondProgressBar
LabelPct2: TLabel;
ISDoneProgressBar2:TNewProgressBar;
#endif
MyCancelButton: TButton;
ISDoneCancel:integer;
ISDoneError:boolean;
PCFVer:double;

type
TCallback = function (OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAn siChar): longword;

function WrapCallback(callback:TCallback; paramcount:integer):longword;external 'wrapcallback@files:ISDone.dll stdcall delayload';

function ISArcExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath, ExtractedPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: boolean ):boolean; external 'ISArcExtract@files:ISDone.dll stdcall delayload';
function IS7ZipExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'IS7zipExtract@files:ISDone.dll stdcall delayload';
function ISRarExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'ISRarExtract@files:ISDone.dll stdcall delayload';
function ISPrecompExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISPrecompExtract@files:ISDone.dll stdcall delayload';
function ISSRepExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISSrepExtract@files:ISDone.dll stdcall delayload';
function ISxDeltaExtract(CurComponent:Cardinal; PctOfTotal:double; minRAM,maxRAM:integer; InName, DiffFile, OutFile: AnsiString; DeleteInFile, DeleteDiffFile:boolean):boolean; external 'ISxDeltaExtract@files:ISDone.dll stdcall delayload';
function ISPackZIP(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString;ComprLvl:integer; DeleteInFile:boolean):boolean; external 'ISPackZIP@files:ISDone.dll stdcall delayload';
function ShowChangeDiskWindow(Text, DefaultPath, SearchFile:AnsiString):boolean; external 'ShowChangeDiskWindow@files:ISDone.dll stdcall delayload';

function Exec2 (FileName, Param: PAnsiChar;Show:boolean):boolean; external 'Exec2@files:ISDone.dll stdcall delayload';
function ISFindFiles(CurComponent:Cardinal; FileMask:AnsiString; var ColFiles:integer):integer; external 'ISFindFiles@files:ISDone.dll stdcall delayload';
function ISPickFilename(FindHandle:integer; OutPath:AnsiString; var CurIndex:integer; DeleteInFile:boolean):boolean; external 'ISPickFilename@files:ISDone.dll stdcall delayload';
function ISGetName(TypeStr:integer):PAnsichar; external 'ISGetName@files:ISDone.dll stdcall delayload';
function ISFindFree(FindHandle:integer):boolean; external 'ISFindFree@files:ISDone.dll stdcall delayload';
function ISExec(CurComponent:Cardinal; PctOfTotal,SpecifiedProcessTime:double; ExeName,Parameters,TargetDir,OutputStr:AnsiString; Show:boolean):boolean; external 'ISExec@files:ISDone.dll stdcall delayload';

function SrepInit(TmpPath:PAnsiChar;VirtMem,MaxSave:Cardina l):boolean; external 'SrepInit@files:ISDone.dll stdcall delayload';
function PrecompInit(TmpPath:PAnsiChar;VirtMem:cardinal;Pre compVers:single):boolean; external 'PrecompInit@files:ISDone.dll stdcall delayload';
function FileSearchInit(RecursiveSubDir:boolean):boolean; external 'FileSearchInit@files:ISDone.dll stdcall delayload';
function ISDoneInit(RecordFileName:AnsiString; TimeType,Comp1,Comp2,Comp3:Cardinal; WinHandle, NeededMem:longint; callback:TCallback):boolean; external 'ISDoneInit@files:ISDone.dll stdcall';
function ISDoneStop:boolean; external 'ISDoneStop@files:ISDone.dll stdcall';
function ChangeLanguage(Language:AnsiString):boolean; external 'ChangeLanguage@files:ISDone.dll stdcall delayload';
function SuspendProc:boolean; external 'SuspendProc@files:ISDone.dll stdcall';
function ResumeProc:boolean; external 'ResumeProc@files:ISDone.dll stdcall';

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAn siChar): longword;
begin
if OveralPct<=1000 then ISDoneProgressBar1.Position := OveralPct;
LabelPct1.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
#ifdef SecondProgressBar
if CurrentPct<=1000 then ISDoneProgressBar2.Position := CurrentPct;
LabelPct2.Caption := IntToStr(CurrentPct div 10)+'.'+chr(48 + CurrentPct mod 10)+'%';
#endif
LabelCurrFileName.Caption:=ExpandConstant('{cm:Ext ractedFile} ')+MinimizePathName(CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width-ScaleX(100));
LabelTime1.Caption:=ExpandConstant('{cm:ElapsedTim e} ')+TimeStr2;
LabelTime2.Caption:=ExpandConstant('{cm:RemainingT ime} ')+TimeStr1;
LabelTime3.Caption:=ExpandConstant('{cm:AllElapsed Time}')+TimeStr3;
Result := ISDoneCancel;
end;

procedure CancelButtonOnClick(Sender: TObject);
begin
SuspendProc;
if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then ISDoneCancel:=1;
ResumeProc;
end;

procedure HideControls;
begin
WizardForm.FileNamelabel.Hide;
ISDoneProgressBar1.Hide;
LabelPct1.Hide;
LabelCurrFileName.Hide;
LabelTime1.Hide;
LabelTime2.Hide;
MyCancelButton.Hide;
#ifdef SecondProgressBar
ISDoneProgressBar2.Hide;
LabelPct2.Hide;
#endif
end;

procedure CreateControls;
var PBTop:integer;
begin
PBTop:=ScaleY(50);
ISDoneProgressBar1 := TNewProgressBar.Create(WizardForm);
with ISDoneProgressBar1 do begin
Parent := WizardForm.InstallingPage;
Height := WizardForm.ProgressGauge.Height;
Left := ScaleX(0);
Top := PBTop;
Width := ScaleX(365);
Max := 1000;
end;
LabelPct1 := TLabel.Create(WizardForm);
with LabelPct1 do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Left := ISDoneProgressBar1.Width+ScaleX(5);
Top := ISDoneProgressBar1.Top + ScaleY(2);
Width := ScaleX(80);
end;
LabelCurrFileName := TLabel.Create(WizardForm);
with LabelCurrFileName do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Width := ISDoneProgressBar1.Width+ScaleX(30);
Left := ScaleX(0);
Top := ScaleY(30);
end;
#ifdef SecondProgressBar
PBTop:=PBTop+ScaleY(25);
ISDoneProgressBar2 := TNewProgressBar.Create(WizardForm);
with ISDoneProgressBar2 do begin
Parent := WizardForm.InstallingPage;
Left := ScaleX(0);
Top := PBTop+ScaleY(8);
Width := ISDoneProgressBar1.Width;
Max := 1000;
Height := WizardForm.ProgressGauge.Height;
end;
LabelPct2 := TLabel.Create(WizardForm);
with LabelPct2 do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Left := ISDoneProgressBar2.Width+ScaleX(5);
Top := ISDoneProgressBar2.Top + ScaleY(2);
Width := ScaleX(80);
end;
#endif
LabelTime1 := TLabel.Create(WizardForm);
with LabelTime1 do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Width := ISDoneProgressBar1.Width div 2;
Left := ScaleX(0);
Top := PBTop + ScaleY(35);
end;
LabelTime2 := TLabel.Create(WizardForm);
with LabelTime2 do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Width := LabelTime1.Width+ScaleX(40);
Left := ISDoneProgressBar1.Width div 2;
Top := LabelTime1.Top;
end;
LabelTime3 := TLabel.Create(WizardForm);
with LabelTime3 do begin
Parent := WizardForm.FinishedPage;
AutoSize := False;
Width := 300;
Left := 180;
Top := 200;
end;
MyCancelButton:=TButton.Create(WizardForm);
with MyCancelButton do begin
Parent:=WizardForm;
Width:=ScaleX(135);
Caption:=ExpandConstant('{cm:CancelButton}');
Left:=ScaleX(360);
Top:=WizardForm.cancelbutton.top;
OnClick:=@CancelButtonOnClick;
end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
if (CurPageID = wpFinished) and ISDoneError then
begin
LabelTime3.Hide;
WizardForm.Caption:= ExpandConstant('{cm:Error}');
WizardForm.FinishedLabel.Font.Color:= clRed;
WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;
end;
end;

function CheckError:boolean;
begin
result:= not ISDoneError;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:cardinal;
FindHandle1,ColFiles1,CurIndex1,tmp:integer;
ExecError:boolean;
InFilePath,OutFilePath,OutFileName:PAnsiChar;
begin
if CurStep = ssInstall then begin //Åñëè íåîáõîäèìî, ìîæíî ïîìåíÿòü íà ssPostInstall
WizardForm.ProgressGauge.Hide;
WizardForm.CancelButton.Hide;
CreateControls;
WizardForm.StatusLabel.Caption:=ExpandConstant('{c m:Extracted}');
ISDoneCancel:=0;

// Ðàñïàêîâêà âñåõ íåîáõîäèìûõ ôàéëîâ â ïàïêó {tmp}.

ExtractTemporaryFile('unarc.dll');

#ifdef PrecompInside
ExtractTemporaryFile('CLS-precomp.dll');
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('packjpg_dll1.dll');
ExtractTemporaryFile('precomp.exe');
ExtractTemporaryFile('zlib1.dll');
#endif
#ifdef SrepInside
ExtractTemporaryFile('CLS-srep.dll');
#endif
#ifdef MSCInside
ExtractTemporaryFile('CLS-MSC.dll');
#endif
#ifdef facompress
ExtractTemporaryFile('facompress.dll'); //óñêîðÿåò ðàñïàêîâêó .arc àðõèâîâ.
#endif
#ifdef records
ExtractTemporaryFile('records.inf');
#endif
#ifdef precomp
#if precomp == "0.38"
ExtractTemporaryFile('precomp038.exe');
#else
#if precomp == "0.4"
ExtractTemporaryFile('precomp040.exe');
#else
#if precomp == "0.41"
ExtractTemporaryFile('precomp041.exe');
#else
#if precomp == "0.42"
ExtractTemporaryFile('precomp042.exe');
#else
ExtractTemporaryFile('precomp038.exe');
ExtractTemporaryFile('precomp040.exe');
ExtractTemporaryFile('precomp041.exe');
ExtractTemporaryFile('precomp042.exe');
#endif
#endif
#endif
#endif
#endif
#ifdef unrar
ExtractTemporaryFile('Unrar.dll');
#endif
#ifdef XDelta
ExtractTemporaryFile('XDelta3.dll');
#endif
#ifdef PackZIP
ExtractTemporaryFile('7z.dll');
ExtractTemporaryFile('PackZIP.exe');
#endif

ExtractTemporaryFile('English.ini');

// Ïîäãîòàâëèâàåì ïåðåìåííóþ, ñîäåðæàùóþ âñþ èíôîðìàöèþ î âûäåëåííûõ êîìïîíåíòàõ äëÿ ISDone.dll
// ìàêñèìóì 96 êîìïîíåíòîâ.
Comps1:=0; Comps2:=0; Comps3:=0;
#ifdef Components
TmpValue:=1;
if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue; //êîìïîíåíò 1
TmpValue:=TmpValue*2;
if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue; //êîìïîíåíò 2
TmpValue:=TmpValue*2;
if IsComponentSelected('voice\rus') then Comps1:=Comps1+TmpValue; //êîìïîíåíò 3
TmpValue:=TmpValue*2;
if IsComponentSelected('voice\eng') then Comps1:=Comps1+TmpValue; //êîìïîíåíò 4
// .....
// ñì. ñïðàâêó
#endif

#ifdef precomp
PCFVer:={#precomp};
#else
PCFVer:=0;
#endif
ISDoneError:=true;
if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
repeat
// ChangeLanguage('English');
if not SrepInit('',512,0) then break;
if not PrecompInit('',128,PCFVer) then break;
if not FileSearchInit(true) then break;

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

// äàëåå íàõîäÿòñÿ çàêîììåíòèðîâàíûå ïðèìåðû ðàçëè÷íûõ ôóíêöèé ðàñïàêîâêè (÷òîáû êàæäûé ðàç íå ëàçèòü â ñïðàâêó çà ïðèìåðàìè)
(*
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\arc.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
if not IS7ZipExtract ( 0, 0, ExpandConstant('{src}\CODMW2.7z'), ExpandConstant('{app}\data1'), false, '') then break;
if not ISRarExtract ( 0, 0, ExpandConstant('{src}\data_*.rar'), ExpandConstant('{app}'), false, '') then break;
if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandC onstant('{app}\data1024.arc'), true) then break;
if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'), ExpandConstant('{app}\data.7z'), true) then break;
if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\in.pcf'), ExpandConstant('{app}\*.diff'), ExpandConstant('{app}\out.dat'), false, false) then break;
if not ISPackZIP ( 0, 0, ExpandConstant('{app}\1a1\*'), ExpandConstant('{app}\1a1.pak'), 2, false ) then break;
if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{app}\"'), ExpandConstant('{tmp}'), '...',false) then break;
if not ShowChangeDiskWindow ('Ïîæàëóéñòà, âñòàâüòå âòîðîé äèñê è äîæäèòåñü åãî èíèöèàëèçàöèè.', ExpandConstant('{src}'),'CODMW_2.arc') then break;

// ðàñïàêîâêà ãðóïïû ôàéëîâ ïîñðåäñòâîì âíåøíåãî ïðèëîæåíèÿ

FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\* .ogg'),ColFiles1);
ExecError:=false;
while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\' ),CurIndex1,true) do begin
InFilePath:=ISGetName(0);
OutFilePath:=ISGetName(1);
OutFileName:=ISGetName(2);
ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
end;
ISFindFree(FindHandle1);
if ExecError then break;
*)

ISDoneError:=false;
until true;
ISDoneStop;
end;
HideControls;
WizardForm.CancelButton.Visible:=true;
WizardForm.CancelButton.Enabled:=false;
end;
if (CurStep=ssPostInstall) and ISDoneError then begin
Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
end;
end;

[Sculpture]

hello

[Razor12911]

Hello too....
What's wrong with the code?

[Sculpture]

Then , how to remove that question marks in the installer? I think its wrong with codes.
Can anyone correct it or fix it ?

[Logrim]

Hi.. i like to know how to show a custom page BEFORE welcome.. Thanks for your help.

[Pasq92]

Hi, I have a simple question..I'm new to repacking and I'm wondering if I can extract and then recompress .bin files to make them fit dvd5 or maybe join/split them without using too many tools.

Example: I have Setup1.bin (11.3 gb), Setup2.bin (200 mb), Setup3.bin (400 mb), setup.exe
and I want to make them become something like:
Setup1.bin (4.3 gb), Setup2.bin (4.3 gb), Setup3.bin (3.3 gb), setup.exe

Is it possible without scripts, just by using a simple software?

Thank You ;)

[y_thelastknight]

Yes you can. Try ultraARC by razor12911.

[Pasq92]

Yes you can. Try ultraARC by razor12911.

Thanks, but I'm kinda new to repacking...I'll look for it ;)

[felice2011]

Hi, I have a simple question..I'm new to repacking and I'm wondering if I can extract and then recompress .bin files to make them fit dvd5 or maybe join/split them without using too many tools.

Example: I have Setup1.bin (11.3 gb), Setup2.bin (200 mb), Setup3.bin (400 mb), setup.exe
and I want to make them become something like:
Setup1.bin (4.3 gb), Setup2.bin (4.3 gb), Setup3.bin (3.3 gb), setup.exe

Is it possible without scripts, just by using a simple software?

Thank You ;)

You can not change the size of an already compressed file * .bin.
The rationale is to compress and split the installation folder of the game that you have previously installed it your PC...;)
As written by @y_thelastknight you can use this http://www.fileforums.com/showthread.php?t=96619 OR http://www.fileforums.com/showthread.php?t=96464;)

[Pasq92]

You can not change the size of an already compressed file * .bin.
The rationale is to compress and split the installation folder of the game that you have previously installed it your PC...;)
As written by @y_thelastknight you can use this http://www.fileforums.com/showthread.php?t=96619 OR http://www.fileforums.com/showthread.php?t=96464;)

Thanks ;)
Actually I'm using DLG's Foldersplit and RDF, then I use a customized .bat file with this script to avoid precomp which is too slow: :(

arc a -ep1 -ed -r -w.\ Output\Setup_1.bin -msrep+exe+delta+lzma:a1:mfbt4:d256m:fb128:mc1000:l c8

I read somewhere in the forum to add -s12g -mt8 and replace d256m with d1024m what are these for?

So, to make .bin files to be around 4.3 gb to be burnt on dvd5s I just have to predict which will be compression ratio, I suppose...am I right? :confused:

[ffmla]

how to call bat file in inno script installation.i have put in Run section but it pop`s and end.There is no extration can be done.

please give the fix also mention the method to bat process along with installation process

[ffmla]

How to solve this ?
http://i.imgur.com/UuAPICp.jpg
script(code)-



#ifdef precomp
PCFVer:={#precomp};
#else
PCFVer:=0;
#endif
ISDoneError:=true;
if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
repeat
// ChangeLanguage('English');
if not SrepInit('',512,0) then break;
if not PrecompInit('',128,PCFVer) then break;
if not FileSearchInit(true) then break;

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\*.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
Very late reply (help)
Bro this may fix language problem.
This may help in someother guy's with this script (if you may include )

Search the script line 'change language' in the above section of if not isArcExtract .
Remove the double slash ( // ) and enable the line.Now progress shows hr:min:sec.
That' all

[satrianiboys]

Maybe this question has asked a lot, but meh i'm searching it and it's really hard to find. Need to find an exact keyword, too many possibility.

How to repack games with reg entries in their original setup installation?
How to see a proper reg entries in original setup and add it to inno setup?

I'm a guy with script wizard used mostly, but i know a little about the codes i can change inside. Never tried with reg entries. Please help.

[y_thelastknight]

There are some tools that can detect reg when installing a application or games.. You can use that tool to get the reg and then you can covert that reg entry to inno setup format... This way you can add reg entries to inno setup easly.

I use Regshot tool to detect the reg entry
http://sourceforge.net/projects/regshot/files/regshot/1.9.0/


And reg to inno convertor to conver reg files
http://fileforums.com/showpost.php?p=410165&postcount=2


I hope this will help you.. ;)

[bakutrak]

sorry bro, how to make a png image as transparent splas screen and how to insert this in innosetup standard? iam use unicode version..... thanks

[mertderler]

Revo why Banned

[nasir ahmad]

45% complete

now, you can load jpg or bmp and png, re-arrange all you want,

create quick conversions

test attachment added :)

Requesting language translators...:rolleyes:

it's kinda funny, that all of this is been created just by using inno setup and nothing else, :D

Select Backgrounds under Autorun Interface Select tab standard configuration to load a simple file .jpg, Select tab advanced configuration to load a folder which has autorun#.jpg, Select tab expert configuration to load bmp and png image.
my friend do you have this version of installer creator in this topic.
if you have show me please.

[pakrat2k2]

sorry bro, how to make a png image as transparent splas screen and how to insert this in innosetup standard? iam use unicode version..... thanks

Look in this topic ( file by razor12911 & a file by altef_4 ) gives you 2 choices which program to use. :)

http://fileforums.com/showthread.php?t=96183

[ffmla]

Hi everyone.
I need some code for installer.(inno)
1.I want to remove program group page in installer. (Know by disabled that page) ok.

2.And the start menu folder options in that page .-》changed to next Task page content . Simply in task page I want task selection and start menu folder selection.

Thanks in advance.

[oltjon]

http://i67.tinypic.com/2rh7fqw.png

how to fix this ???
thanks brothers

[RamiroCruzo]

http://i67.tinypic.com/2rh7fqw.png

how to fix this ???
thanks brothers

Its "???" 'cause its in Russian...Try editing the .iss's Messages module

[oltjon]

Its "???" 'cause its in Russian...Try editing the .iss's Messages module


I do not find the exact string to change
anyone has any idea where is the string to change:confused:

[pakrat2k2]

check your PM

[punchao]

@oltjon ,can you share the script?

[oltjon]

@oltjon ,can you share the script?

check your PM

[punchao]

i disable this,problem solved :D

https://snap.ashampoo.com/FGt7vW68

[pakrat2k2]

need the original script BEFORE you made ANY changes to it, basically the entire folder as it was before you started changing anything. There are files missing & it cant read from your language file when I try compiling from what you sent me before.

[ffmla]

Help relate ISPrecompextract(0,20.....
In the blackbox inno script isprecomp () extraction process not shown in progress bar.
Process extract in background but in progress bar and percentage not shows.
How to fix this?.

[ffmla]

How to disable inno setup hotkeys in the installer :confused:.
I'll edit one of the customized wizard installer (dante1995).
In that installer by pressing space button installer start installing. How to disable it..

Thanks in advance. ..

[pakrat2k2]

How to disable inno setup hotkeys in the installer :confused:.
I'll edit one of the customized wizard installer (dante1995).
In that installer by pressing space button installer start installing. How to disable it..

Thanks in advance. ..

search for hotkey in the script itself, if there change to ""

[ffmla]

Thanks for reply

But there is no hotkey word in the script.
May I upload the script. .

[dr.kaskus.s.pd.]

help me please!
i have downloaded yener90's script (CI 8.0.1.0)
(detail on the image).

what should i do at the first time to use this script ?
i'm using inno setup 5.9 unicode.

- i want to make setup internal and dont use compressor . i was remove ( ; )
but i still get error. :(


im waiting for advice. thanks:)

[nizcoz]

How to add an external compress method to inno script? I wish add .rar file (data.rar) to my script (and install it) instead of inno compression. How?

[felice2011]

How to add an external compress method to inno script? I wish add .rar file (data.rar) to my script (and install it) instead of inno compression. How?

http://www.fileforums.com/showthread.php?t=98186

Logically I suggest a basic script installation, if you run a search here on the forum will find several...;)

[nizcoz]

http://www.fileforums.com/showthread.php?t=98186

Logically I suggest a basic script installation, if you run a search here on the forum will find several...;)

I can not do it correctly. I have many problems with my script. I tried mix my script with the isdone example but no work.


Another question, how add a message at the finish of the cancel of the install?? ¨the installation was succefully aborted¨ (english and spanish)

[felice2011]

@Nizcoz, I can not guess what you're mixing, are not a magician, your inexperience on programming a script, ti should teach you to try before on a tested installer and running here on the forum, in order to study you its code and its concept of operation , and later on modify it as you want.
Choose an installer here on the forum, you work, for problems, post the code and someone will help you.

[pakrat2k2]

Thanks for reply

But there is no hotkey word in the script.
May I upload the script. .

sure upload script, then the magicians here may solve your issue for you :)
( in reference to post 1218 )

[nizcoz]

^^ Ok, thanks.

How add a message at the finish of the Cancel while installing?? ¨the installation was succefully aborted¨ (english and spanish)

[danswano]

How do i set temp dir of srep to destination directory instead of temp?
[Srep]
Memory = 256
TempPath =

[Precomp]
Memory = 40
TempPath =

[Razor12911]

How do i set temp dir of srep to destination directory instead of temp?
[Srep]
Memory = 256
TempPath =

[Precomp]
Memory = 40
TempPath =
if not SrepInit(ExpandConstant('{tmp'),512,0) then
if not PrecompInit(ExpandConstant('{tmp'),128,0) then


also

ISArcExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath, ExtractedPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: boolean ):boolean;
external 'ISArcExtract@files:ISDone.dll stdcall delayload';

notice WorkPath?

[danswano]

Thank you razor, i thought it should be set in cls.ini

[nizcoz]

1) How to add a message at the finish of the ¨Cancel while installing¨?? ¨the installation was succefully aborted¨

2) How to resize the uninstall`s WizardSmallBitmapImage to Left := ScaleX(0);
Width := ScaleX(500);
Height := ScaleY(60);

3) How to add timeelapsed, porcentage, etc to install and uninstall pages?

Thanks!!!

PD: sorry, bad english.

[Razor12911]

1) if isdone was not used, meaning if you rely on internal installation, i don't think that's possible.
2)
procedure InitializeUninstallProgressForm;
begin
with UninstallProgressForm.WizardSmallBitmapImage do
begin
left...
Width...
end;
end;
3) add labels, apply math, add a counter for the elapsed time x (100 - current progress), use a timer to update labels.

[nizcoz]

1) if isdone was not used, meaning if you rely on internal installation, i don't think that's possible.
2)
procedure InitializeUninstallProgressForm;
begin
with UninstallProgressForm.WizardSmallBitmapImage do
begin
left...
Width...
end;
end;
3) add labels, apply math, add a counter for the elapsed time x (100 - current progress), use a timer to update labels.

2) How define the bmp file? i wish that uninstaller shows the same that the installer. The installer show the bmp file with this size.

3) A simple example? with seconds and porcentage? it`s possible?

Thanks a lot!

[nizcoz]

Hi! How to add the function of TotalSpace, freeSpace, NeedSpace to a readypage??

[nizcoz]

What characteristics are required for an avi file with Inno Media Player? Because a particular avi file works ok, but with another video file, it doesn't work.

[nizcoz]

What characteristics are required for an avi file with Inno Media Player? Because a particular avi file works ok, but with another video file, it doesn't work.

Solved.

[Viper645]

1) if isdone was not used, meaning if you rely on internal installation, i don't think that's possible.
2)
procedure InitializeUninstallProgressForm;
begin
with UninstallProgressForm.WizardSmallBitmapImage do
begin
left...
Width...
end;
end;
3) add labels, apply math, add a counter for the elapsed time x (100 - current progress), use a timer to update labels.

Will you please check your PM please?

[sanujsahu]

Bro how to make your own design innovative script

[nizcoz]

Will you please check your PM please?

I do not have messages.

[nizcoz]

How to decompress an arc file with password when i use a isdone (ini) script? (by dante1995)

[-XCX-]

How to decompress an arc file with password when i use a isdone (ini) script? (by dante1995)

if not ISArcExtract ( 0, 100, ExpandConstant('{src}\data.bin), ExpandConstant('{app}\'), '', false, '{#PasswordHere}', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;

[nizcoz]

if not ISArcExtract ( 0, 100, ExpandConstant('{src}\data.bin), ExpandConstant('{app}\'), '', false, '{#PasswordHere}', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;

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

[-XCX-]

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

[nizcoz]

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

[TWOELV]

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

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

[sanujsahu]

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

[nizcoz]

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]

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