INNO TROUBLESHOOT - Questions Here

[altef_4]

Originally Posted by Logrim

hi, i need help.. again,.. i hope that is the last time ..

i have a custom change disc form.. all work,, but the image and the change disk label dont show together.. when i quit the image, the label show,, if i put the image the label not show.. i hope i explain well..

This is the form code:



and this part in curvestepchanged:


P.D. I try to put the imgload code in all sites in the form, but doesnt work.. The label is inside the "ShowDiscChanger" funtion, i think is for this, but i need the funtion for the correct operation of the script..

///////////////////////////////////////////////////////////CUSTOM CHANGE DISC FORM
procedure MyChangeDiscMessage(Disk, Arc: String);
begin
MyChangeDisc := CreateCustomForm();
MyChangeDisc.BorderStyle:= bsNone;
MyChangeDisc.Position := poScreenCenter;
MyChangeDisc.BringToFront;
MyChangeDisc.ClientWidth := WizardForm.Width;
MyChangeDisc.ClientHeight := WizardForm.Height div 2;

MyChangeDiscLabel:= TLabel.Create(MyChangeDisc);
MyChangeDiscLabel.Parent:= MyChangeDisc;
MyChangeDiscLabel.Caption:='Please insert disc ' + Disk + ' with ' + ExtractFileName(Arc);
MyChangeDiscLabel.SetBounds(40,7,600,15);
MyChangeDiscLabel.AutoSize:= False;
MyChangeDiscLabel.WordWrap:= True;
MyChangeDiscLabel.Transparent:= True;
MyChangeDiscLabel.Font.Name := 'Verdana';
MyChangeDiscLabel.Font.Color:= clGray;
MyChangeDiscLabel.Font.Size:= 8;

CDYesBtn:=BtnCreate(MyChangeDisc.Handle,560,6,15,1 5,ExpandConstant('{tmp}\OkBtn.png'),0,False);
BtnSetEvent(CDYesBtn,BtnClickEventID,WrapBtnCallba ck(@ButtonOnClick,1));
BtnSetEvent(CDYesBtn,BtnMouseEnterEventID,WrapBtnC allback(@BtnEnter,1));
BtnSetCursor(CDYesBtn,GetSysCursorHandle(32649));

CDNoBtn:=BtnCreate(MyChangeDisc.Handle,572,6,15,15 ,ExpandConstant('{tmp}\ExitBtn.png'), 0, false);
BtnSetEvent(CDNoBtn,BtnClickEventID,WrapBtnCallback(@ButtonOnClick,1));
BtnSetEvent(CDNoBtn,BtnMouseEnterEventID,WrapBtnCa llback(@BtnEnter,1));
BtnSetCursor(CDNoBtn,GetSysCursorHandle(32649));

img:=ImgLoad(MyChangeDisc.Handle,ExpandConstant('{ tmp}\Exit.png'),0,0,600,190,True,True);
ImgApplyChanges(MyChangeDisc.Handle);
end;

function ShowDiskChanger(Disk, Arc: String):Integer;
begin
MyChangeDiscMessage(Disk, Arc);
Result:=MyChangeDisc.ShowModal;
end;
////////////////////////////////////////////////////////////////////////////////////////////////

[Logrim]

Thanks Altef, but unknow identifier Arc in this line, into curvestepchanged:

SetArrayLength(Arc,8);

When i define the var in curvestepchange give me type mismatch error in:

Arc[0]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Type','',ExpandConstant('{tmp}\Setup.ini'));

The entire part of the code is:

Wizardform.ProgressGauge.Max:=0;
x:=1;
if GetIniString('ExtractSettings','Archive1Type','',E xpandConstant('{tmp}\Setup.ini')) <> '' then
begin
SetArrayLength(Arc,8);
repeat
Arc[0]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Type','',ExpandConstant('{tmp}\Setup.ini'));
Arc[1]:=ExpandConstant(GetIniString('ExtractSettings','A rchive'+IntToStr(x)+'Source','',ExpandConstant('{t mp}\Setup.ini')));
Arc[2]:=ExpandConstant(GetIniString('ExtractSettings','A rchive'+IntToStr(x)+'Output','',ExpandConstant('{t mp}\Setup.ini')));
Arc[3]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Disk','1',ExpandConstant('{tmp}\Setup.ini')) ;
Arc[4]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Language','',ExpandConstant('{tmp}\Setup.ini '));
Arc[5]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Component','',ExpandConstant('{tmp}\Setup.in i'));
Arc[6]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Task','',ExpandConstant('{tmp}\Setup.ini'));
Arc[7]:=GetIniString('ExtractSettings','Archive'+IntToSt r(x)+'Password','',ExpandConstant('{tmp}\Setup.ini '));
Wizardform.ProgressGauge.Max:=Wizardform.ProgressG auge.Max + 1000;
x:= x + 1;
until GetIniString('ExtractSettings','Archive' + IntToStr(x) + 'Type','',ExpandConstant('{tmp}\Setup.ini')) = '';
end;

[altef_4]

do you have Arc: array of string; in var section? or Arc: array [0..7] of string;

[Logrim]

Ermm.. Altef,, thanks for take so much trouble with me .. im sleep .. i define the arc only as a string,, not array of string.. .. sorry.. all work perfect now,, script FINISHED!!!.. .. erm... i hope so :d.

[Logrim]

One question more... how can i make a multiple autorun? i mean.. "install game1", "install game2", "install game3". Thanks.. i recently discover how to make a mask for the installer, so I'm going to remodel completly the desing of the setup. All the installer work perfectly, without errors, thanks to your help again, razor, y_thelasknight and altef, only remain the multi-autorun . thanks, and i hope you like the final design.

[y_thelastknight]

Originally Posted by Logrim

One question more... how can i make a multiple autorun? i mean.. "install game1", "install game2", "install game3". Thanks.. i recently discover how to make a mask for the installer, so I'm going to remodel completly the desing of the setup. All the installer work perfectly, without errors, thanks to your help again, razor, y_thelasknight and altef, only remain the multi-autorun . thanks, and i hope you like the final design.

I like your final desing.

What you mean by multiple autorun.
Did you create seperate script for autorun??

[Logrim]

Yup, y_thelasknight, i have another script with the autorun..
i have it with install and play buttons.. (this are the main buttons). i want it with install1, install2, install3, button.. i figure how to make but I'm not sure and I prefer to ask before teasing the code

[Logrim]

I have a trouble.. i have bitmap resources in "SETUP"

"BitmapResource=btn:Res\btnimage.bmp|Logrim:Res\Lo grim.bmp

But not load.. how can i load this resources?

[y_thelastknight]

Originally Posted by Logrim

Yup, y_thelasknight, i have another script with the autorun..
i have it with install and play buttons.. (this are the main buttons). i want it with install1, install2, install3, button.. i figure how to make but I'm not sure and I prefer to ask before teasing the code

What is the install1 install2 install3 purpose??

[Logrim]

.. install for example drakensang and drakensang 2, for the same dvd9 :P

[Razor12911]

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

[Logrim]

something how IC, yup

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