FileForums

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)

Razor12911 22-04-2013 13:02

@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 22-04-2013 13:04

@kassane

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

danswano 22-04-2013 15:03

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 22-04-2013 15:30

Quote:

Originally Posted by Razor12911 (Post 417368)
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 22-04-2013 21:38

Quote:

Originally Posted by danswano (Post 417400)
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 :D

Razor12911 22-04-2013 21:47

Quote:

Originally Posted by Andre Jesus (Post 417401)
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 23-04-2013 08:04

1 Attachment(s)
Quote:

Originally Posted by Razor12911 (Post 417412)
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?
Attachment 6115

Razor12911 23-04-2013 08:18

1 Attachment(s)
@Andre Jesus

Done man, check it out.

danswano 23-04-2013 08:49

Quote:

Originally Posted by Razor12911 (Post 417411)
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 :D

Nice method, i will try it right now. :p

Andre Jesus 23-04-2013 09:24

3 Attachment(s)
Quote:

Originally Posted by Razor12911 (Post 417440)
@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.
Code:

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

Attachment 6117

Example 2 - size kb
Code:

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

Attachment 6118

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

Code:

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

Attachment 6119

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

Razor12911 23-04-2013 13:55

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

Andre Jesus 23-04-2013 14:55

Quote:

Originally Posted by Razor12911 (Post 417457)
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:

Code:

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

Thank you very much again for your helo Razor12911.

Andre Jesus 23-04-2013 14:56

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

Razor12911 24-04-2013 01:48

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 24-04-2013 12:18

Quote:

Originally Posted by Razor12911 (Post 417470)
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.

Code:

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;



All times are GMT -7. The time now is 06:01.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com