FileForums - INNO TROUBLESHOOT

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - INNO TROUBLESHOOT - Questions Here (https://fileforums.com/showthread.php?t=93193)

oh, you mean something like the new R.G.Catalyst Script?

Yes and GOG.com as well.

hmm, no problem, will upload example.

ISMD5 Hash checker for Inno Setup

Is it possible to use a single md5 hash to check multiple files?
In the example i see that i must set the hash for each archive.

not possible. you need to set md5 for each file.

Thanks razor, how do i make this checker part of the main exe itself, it's creating an another exe and when check finish it execute the setup.exe.

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

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?

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

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:

Quote:

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

Quote:

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

Quote:

Originally Posted by danswano (Post 429483)

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.

Quote:

Originally Posted by Logrim (Post 429487)

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

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 :p search it in inno setup file

Thanks y_thelastknight, but doesnt work...

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