INNO TROUBLESHOOT - Questions Here

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

[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

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

[Razor12911]

@Andre Jesus

Done man, check it out.

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

[altef_4]

Originally Posted by Andre Jesus

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;

i know, this question not for me, but part of code with error is totally wrong,
wrapbtncallback(@function_which_will_be_executed_on_event,1),

BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallba ck(@WizardFormBtnClick,1));BtnSetEvent(hNextBtn,Bt nMouseEnterEventID,WrapBtnCallback(@WizardFormBtnO nMouseEnter,1));

[Andre Jesus]

Originally Posted by altef_4

i know, this question not for me, but part of code with error is totally wrong,
wrapbtncallback(@function_which_will_be_executed_on_event,1),

BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallba ck(@WizardFormBtnClick,1));BtnSetEvent(hNextBtn,Bt nMouseEnterEventID,WrapBtnCallback(@WizardFormBtnO nMouseEnter,1));

Hello again.
Now appear other error: WizardFormBtnOnMouseEnter.

This my script.
setup.zip

Thanks in advance.

[altef_4]

Originally Posted by Andre Jesus

Hello again.
Now appear other error: WizardFormBtnOnMouseEnter.

This my script.
Attachment 6130

Thanks in advance.

[Setup]
AppName=setup                  
AppVerName=setup
OutputDir=.
DefaultDirName={pf}\setup
 
[Files]
Source: Data\*; DestDir: "{tmp}"; Flags: dontcopy

[Code]
var
Btn:TButton;
Font:TFont;
hNextBtn:HWND;


const
FR_PRIVATE= $10;
BtnClickEventID= 1;
BtnMouseEnterEventID = 2;

type
Tfnlabel=procedure(h,msg,idevent,dwTime:longword);
HSTREAM = DWORD;
TBtnEventProc = procedure (h:HWND);

function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer;external '[email protected] stdcall';
procedure SetupLoadSkin(lpszPath: string; lpszIniFileName: string); external 'LoadSkin@files:ISSkin.dll stdcall setuponly';
procedure SetupUnloadSkin; external 'UnloadSkin@files:ISSkin.dll stdcall setuponly';
procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external '[email protected] stdcall';
function SetTimer(hWnd: longword; nIDEvent, uElapse: longword; lpTimerFunc: longword): longword;external '[email protected] stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord;external 'KillTimer@user32 stdcall delayload';
function fnlCallback(callback:Tfnlabel; paramcount:integer):longword;external 'wrapcallback@files:innocallback.dll stdcall';
function ImgLoad(Wnd :HWND; FileName :PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';
procedure ImgSetVisibility(img :Longint; Visible :boolean); external 'ImgSetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure BtnGetPosition(h:HWND; var Left, Top, Width, Height: integer);  external 'BtnGetPosition@{tmp}\botva2.dll stdcall delayload';
procedure ImgApplyChanges(h:HWND); external 'ImgApplyChanges@{tmp}\botva2.dll stdcall delayload';
procedure gdipShutdown; external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetFontColor(h :HWND; NormalFontColor, FocusedFontColor, PressedFontColor, DisabledFontColor :Cardinal); external 'BtnSetFontColor@{tmp}\botva2.dll stdcall delayload';
function WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword; external 'wrapcallback@{tmp}\innocallback.dll stdcall delayload';
function BtnCreate(hParent:HWND; Left,Top,Width,Height:integer; FileName:PAnsiChar; ShadowWidth:integer; IsCheckBtn:boolean):HWND;  external 'BtnCreate@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetEvent(h:HWND; EventID:integer; Event:Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetText(h :HWND; Text :PAnsiChar); external 'BtnSetText@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetVisibility(h :HWND; Value :boolean); external 'BtnSetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetFont(h :HWND; Font :Cardinal); external 'BtnSetFont@{tmp}\botva2.dll stdcall delayload';

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

procedure WizardFormBtnClick(hBtn:HWND); begin
sndPlaysound(ExpandConstant('{tmp}\soundfx.wav'),$0001);
case hBtn of
hNextBtn: Btn:=WizardForm.NextButton;
end;
Btn.OnClick(Btn);
end;

procedure WizardFormBtnOnMouseEnter(hBtn:HWND); begin
sndPlaysound(ExpandConstant('{tmp}\soundfx.wav'),$0001);
end;

function InitializeSetup(): Boolean; begin
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('button.png');
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
ExtractTemporaryFile('soundfx.wav');
Result := True;
end;

procedure InitializeWizard(); begin
with WizardForm do begin
Position:=poScreenCenter; 
InnerNotebook.Hide;
OuterNotebook.Hide;
Bevel.Hide;
BorderStyle:= bsDialog;
ClientWidth:=600 
ClientHeight:=400
CancelButton.SetBounds(510,365,70,20);
BackButton.SetBounds(350,365,70,20);
NextButton.SetBounds(430,365,70,20);
end

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,$ffcc33,$0000FF,$000000,$000000);
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetEvent(hNextBtn,BtnMouseEnterEventID,WrapBtnCallback(@WizardFormBtnOnMouseEnter,1));
Width:=0;
Height:=0;
end;


//h:=WizardForm.Handle;
ImgApplyChanges(WizardForm.Handle);
end;


procedure DeinitializeSetup(); begin
BASS_Free;
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), SW_HIDE);
SetupUnloadSkin;
gdipShutdown;
end;

procedure CurPageChanged(CurPageID: Integer); begin
ImgApplyChanges(WizardForm.Handle);
BtnSetText(hNextBtn,WizardForm.NextButton.Caption);



if (CurPageID = wpFinished) then begin 
BtnSetVisibility(hNextBtn,True);
end;

if (CurPageID = wpInstalling) then begin 
BtnSetVisibility(hNextBtn,False);
end;
end;

[amgad_800]

thanks you very much for this thread it helps

my problem with password :

first a compressed the game with " freearc" but i added password
mean when i try to open the file with "freearc" it asks for password

the problem now with inno setup , always says corrupted header
but when i remove password no errors found

so please is there any code for inno setup to add the arc files' password in it


thanks in advance

[altef_4]

Originally Posted by amgad_800

thanks you very much for this thread it helps

my problem with password :

first a compressed the game with " freearc" but i added password
mean when i try to open the file with "freearc" it asks for password

the problem now with inno setup , always says corrupted header
but when i remove password no errors found

so please is there any code for inno setup to add the arc files' password in it


thanks in advance

here for isdone