INNO TROUBLESHOOT - Questions Here

[Razor12911]

you can copy tform and everything and put it right under InitializeSetup for anywhere else so that you can be able to use it.

[danswano]

How to check multiple files located on multiple disks?
Maybe like insert next disk to check then ask to insert back the first disk to start setup.
Possible?

[Razor12911]

hmm, you can make a msgbox request for another disk.

[danswano]

My ISDone script is customized, i've tried to put every part of the code in it's place but i end up with each try with this error:

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

///////////////////////////////////////////////////////////CUSTOM CHANGE DISC FORM
procedure MyChangeDiscMessage();
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.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,WrapBtnCallbac k(@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();
MyChangeDiscLabel.Caption:='Please insert disc ' + Disk + ' with ' + ExtractFileName(Arc);
Result:=MyChangeDisc.ShowModal;
end;
////////////////////////////////////////////////////////////////////////////////////////////////

and this part in curvestepchanged:

if Arc[0] = 'Freearc' then
begin
if not FileExists(Arc[1]) then begin
repeat
if ShowDiskChanger(Arc[3],Arc[1]) = mrNo then
ISDoneError := True;
until (FileExists(Arc[1]) = True) or (ISDoneError = True)
end;
if ISDoneError = False then
if not ISArcExtract ( 0, 0, Arc[1], Arc[2], '', false, Arc[7], ExpandConstant('{tmp}\arc.ini'), Arc[2], false) then ISDoneError := True;
end;

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

[y_thelastknight]

Originally Posted by danswano

My ISDone script is customized, i've tried to put every part of the code in it's place but i end up with each try with this error:

Check your code again danswano. Its calling for initilizewizard from initilizesetup. It cannot be done like that.

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

Did you try with this??

MyChangeDiscLabel.bringtofront
I forget it search it in inno setup file

[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 y_thelastknight, but doesnt work...

[reiji777]

how to install many fonts, right before the initial setup page starts?

[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