INNO TROUBLESHOOT - Questions Here

[Razor12911]

@danswano

for example

You can use this approach.

if not FileExist(ExpandConstant('{src}\DVD2\data7.bin')) then
begin
repeat
MsgBox('Insert Disk: 2', mbInformation, MB_OK);
until
FileExist(ExpandConstant('{src}\DVD2\data7.bin')) = True
end;

[Razor12911]

@kassane

maybe its disk space, check System Drive Hard Disk.
or method has a problem.

[danswano]

Is it possible to not specify the data.cab name and put the total number of cabs per disk?
something like dataX.cab and X is the cab batch replacement.

[Andre Jesus]

Originally Posted by Razor12911

it's easy to do that just by using pos, check IS documentation

I really tried find any reference about how to make the script, but i don´t find.
Can you give me an example?

[Razor12911]

Originally Posted by danswano

Is it possible to not specify the data.cab name and put the total number of cabs per disk?
something like dataX.cab and X is the cab batch replacement.

yep, it is possible, been working with inno setup for quite a while, anything was possible for me, make a converter, an internet browser like internet explorer and etc, Want to create an Installer Designer or something like that for my source using Inno setup

[Razor12911]

Originally Posted by Andre Jesus

I really tried find any reference about how to make the script, but i don´t find.
Can you give me an example?

example

sorry didn't also mention length

function MBToGB(MB : Integer): String;
begin
if Length(IntToStr(MB)) > 3 then
Result := Copy(IntToStr(MB), 0, Length(IntToStr(MB))-3) + '.' + Copy(IntToStr(MB), Length(IntToStr(MB))-2, 1) + ' GB'
else
Result := IntToStr(MB) + ' MB'
end;

how to use

Legend:
i = integer, a number to convert from MB to GB

MBToGB(i)

[Andre Jesus]

Originally Posted by Razor12911

example

sorry didn't also mention length

function MBToGB(MB : Integer): String;
begin
if Length(IntToStr(MB)) > 3 then
Result := Copy(IntToStr(MB), 0, Length(IntToStr(MB))-3) + '.' + Copy(IntToStr(MB), Length(IntToStr(MB))-2, 1) + ' GB'
else
Result := IntToStr(MB) + ' MB'
end;

how to use

Legend:
i = integer, a number to convert from MB to GB

MBToGB(i)

Can you verify what is wrong?
Setup.zip

[Razor12911]

@Andre Jesus

Done man, check it out.

[danswano]

Originally Posted by Razor12911

yep, it is possible, been working with inno setup for quite a while, anything was possible for me, make a converter, an internet browser like internet explorer and etc, Want to create an Installer Designer or something like that for my source using Inno setup

Nice method, i will try it right now.

[Andre Jesus]

Originally Posted by Razor12911

@Andre Jesus

Done man, check it out.

Thanks, but I thought the inno setup do the calculation automatically.
Note that if I change the value [MB] to [KB], it does the calculation automatically.

Example 1 - size MB.

[Setup]
AppName=Setup                  
AppVerName=Setup
OutputDir=.
DefaultDirName={pf}\Setup
Compression=none

[Files]
Source: Install\*; DestDir: "{app}";

[Messages]
DiskSpaceMBLabel=At least [mb] MB of free disk space is required.

Sem título.jpg

Example 2 - size kb

[Setup]
AppName=Setup                  
AppVerName=Setup
OutputDir=.
DefaultDirName={pf}\Setup
Compression=none

[Files]
Source: Install\*; DestDir: "{app}";
;The folder Install have 88,9 MB

[Messages]
DiskSpaceMBLabel=At least [kb] MB of free disk space is required.

Sem título14.jpg

Following the example above, believed that by entering [gb] he would do the calculation automatically for GB, however, he considers as text.

[Setup]
AppName=Setup                  
AppVerName=Setup
OutputDir=.
DefaultDirName={pf}\Setup
Compression=none

[Files]
Source: Install\*; DestDir: "{app}";
;The folder Install have 88,9 MB

[Messages]
DiskSpaceMBLabel=At least [gb] GB of free disk space is required.

Sem títulod.jpg

So, Inno Setup does not recognize the value in GB?

[Razor12911]

hmm, yeah, maybe, to me? I don't know, that's why I create custom forms.

[Andre Jesus]

Originally Posted by Razor12911

hmm, yeah, maybe, to me? I don't know, that's why I create custom forms.

Well, anyway I will change the information in the [Messages]. Knowing the size of the game without compacting, just enter the size as shown below:

[Messages]
DiskSpaceMBLabel=At least 7,8 GB of free disk space is required.

Thank you very much again for your helo Razor12911.

[Andre Jesus]

How can i put a effect song when the mouse cursor pass on the button?

[Razor12911]

you use this

function sndPlaySound(lpszSoundName: String; uFlags: cardinal):integer; external '[email protected] stdcall';

example

sndPlaySound(ExpandConstant('{tmp}\ButtonSoundSele cted.wav'),$0001);

use these on default buttons

OnClick:=;
OnDblClick:=;
OnMouseDown:=;

use these for custom buttons (botva2 buttons)

BtnSetEvent(,BtnClickEventID,WrapBtnCallback(sndPl aySound(ExpandConstant('{tmp}\ButtonSoundSelected. wav'),$0001);,1));
BtnSetEvent(,BtnMouseEnterEventID,WrapBtnCallback( sndPlaySound(ExpandConstant('{tmp}\ButtonSoundSele cted.wav'),$0001);,1));

[Andre Jesus]

Originally Posted by Razor12911

you use this

function sndPlaySound(lpszSoundName: String; uFlags: cardinal):integer; external '[email protected] stdcall';

example

sndPlaySound(ExpandConstant('{tmp}\ButtonSoundSele cted.wav'),$0001);

use these on default buttons

OnClick:=;
OnDblClick:=;
OnMouseDown:=;

use these for custom buttons (botva2 buttons)

BtnSetEvent(,BtnClickEventID,WrapBtnCallback(sndPl aySound(ExpandConstant('{tmp}\ButtonSoundSelected. wav'),$0001);,1));
BtnSetEvent(,BtnMouseEnterEventID,WrapBtnCallback( sndPlaySound(ExpandConstant('{tmp}\ButtonSoundSele cted.wav'),$0001);,1));

Hi.
Can you please verify?

The error is:
Line 191:
Column 109:
comma (',') expected.

with WizardForm.NextButton do begin
hNextBtn:=BtnCreate(WizardForm.Handle,Left-8,Top-8,Width+10,Height+10,ExpandConstant('{tmp}\button.png'),18,False);
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFontColor(hNextBtn,$FFFFFF,$00FFFF,$0000FF,$000000);
BtnSetFont(hNextBtn,ButtonFont.Handle);
//The error is the line below.
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(sndPlaySound(ExpandConstant('{tmp}\soundfx.wav'),$0001);,1));
BtnSetEvent(hNextBtn,BtnMouseEnterEventID,WrapBtnCallback(sndPlaySound(ExpandConstant('{tmp}\soundfx.wav'),$0001);,1));
Width:=0;
Height:=0;
end;