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 08:39

Quote:

Originally Posted by LuisC閟ar82 (Post 417259)
How to use this function using innocallback.dll? If anyone has an example script, please post for me. I use inno setup unicode (Standard Version).
Need to example
ButtonClick >> LabelHide(Time ms) >> LabelShow(Time ms) >> LabelHide(Time ms) >> LabelShow(Time ms) ....

What is the difference between versions of Inno Setup (ANSI, Unicode, Ansi Enhanced Edition and Unicode Enhanced Editio)? If the Enhanced edition version is more complete because we use another version.

Wow, long procedure huh? , PM me and will help you with your little problem.

The difference I think is that Enhanced Edition uses single functions which have been generated from long or frustrating procedures from the standard version.

The Enhanced Edition allows some lines or functions which aren't allowed in the standard version. like ttimer, doublebuffered and etc.

It also helps by suggesting or ideas for you whenever you are dealing with any script.:D

and etc.

Razor12911 22-04-2013 08:43

Quote:

Originally Posted by Andre Jesus (Post 417258)
Hello Friends.

How can i change (size and place) the button of the message box?

Attachment 6091

Thanks in advance.

create custom forms like new buttons, msgbox, labels and etc.

Razor12911 22-04-2013 08:47

Quote:

Originally Posted by danswano (Post 417257)
How do i dynamically make the installer asks for the next cab if it was missing on the disc without specifying which .cab is one the next disc?

you can use booleans and msgboxes.

kassane 22-04-2013 10:51

I can not understand why the compression is giving this error:
http://img132.imageshack.us/img132/5931/errosrep.jpg

Where did I go wrong? :(

danswano 22-04-2013 12:54

Quote:

Originally Posted by Razor12911 (Post 417376)
you can use booleans and msgboxes.

How to display the "insert next disk message upon next missing data.cab from disc?

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


altef_4 24-04-2013 12:45

Quote:

Originally Posted by Andre Jesus (Post 417497)
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;


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

amgad_800 25-04-2013 00:05

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 25-04-2013 02:41

Quote:

Originally Posted by amgad_800 (Post 417517)
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

huavancuong098 25-04-2013 04:07

I now understand why the problem with the icon and error. That's because Setup.dll file, is there a way to change the file or creating the file Setup.dll him? Thank

pakrat2k2 25-04-2013 05:06

which CI / CIU script are you using if any. because yener's script v1.0.0.6, you compile langscript.iss to create autorun.exe ( which is just renamed setup.dll )

danswano 25-04-2013 06:59

Hello, Razor
What video extension you are compressing with mpz and what is the compression ratio?

Razor12911 25-04-2013 07:25

Hmm, I can't actually tell because I used many methods in one, precomp+srep+mpz+tak+lzma+rep+ppmd+grzip+lzp+delta +exe+exe2

danswano 25-04-2013 07:39

haha, omg :D

Andre Jesus 25-04-2013 10:59

1 Attachment(s)
Quote:

Originally Posted by altef_4 (Post 417498)
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.
Attachment 6130

Thanks in advance.

altef_4 25-04-2013 13:58

Quote:

Originally Posted by Andre Jesus (Post 417544)
Hello again.
Now appear other error: WizardFormBtnOnMouseEnter.

This my script.
Attachment 6130

Thanks in advance.

Code:

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


Andre Jesus 25-04-2013 18:13

1 Attachment(s)
Quote:

Originally Posted by altef_4 (Post 417547)
Code:

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


altef_4.

Now the sond of the button is ok, but the filme .wav don磘 work.

Attachment 6135

If you can help me, i will be thankful.

Compiler 25-04-2013 21:56

I need help guys,I need code and files for "SREP+PRECOM+FREEARC".Thanks in advance.

Razor12911 25-04-2013 22:06

which precomp version?

altef_4 25-04-2013 22:50

Quote:

Originally Posted by Andre Jesus (Post 417559)
altef_4.

Now the sond of the button is ok, but the filme .wav don´t work.

Attachment 6135

If you can help me, i will be thankful.

what filme.wav, i can't find it in your script, or you say about incorrect sound when you click on nextbtn, if yes and you use ansi inno then find this
sndPlaySoundW
and change to this
sndPlaySoundA
if i'm understand you wrong, then explain whats wrong

Compiler 25-04-2013 23:07

Quote:

Originally Posted by Razor12911 (Post 417566)
which precomp version?


Precomp 0.42 or better
Srep 3.0 or better
Freearc latest.

I need code and Files as well.Any other help is appreciated.

Razor12911 25-04-2013 23:15

inno setup script or batch?

Compiler 25-04-2013 23:36

Quote:

Originally Posted by Razor12911 (Post 417572)
inno setup script or batch?

For compressing game data to *.bin files.

Razor12911 26-04-2013 00:29

use Conversion Converter

set this under this

[CompressingSettings]
FreeArcFile1=OUTDIRPATH\DVD1\Data.bin;Source:SELDI RPATH\*;Option:a -ep1 -r -ed;Method:-mprecomp:t-jnf+srep+delta+lzma:a1:mfbt4:d158m:fb273:mc1000:lc 8;

Andre Jesus 26-04-2013 03:57

1 Attachment(s)
Quote:

Originally Posted by altef_4 (Post 417569)
what filme.wav, i can't find it in your script, or you say about incorrect sound when you click on nextbtn, if yes and you use ansi inno then find this
sndPlaySoundW
and change to this
sndPlaySoundA
if i'm understand you wrong, then explain whats wrong

Dear altef_4, sorry my bad english.
This word correct is file. Inside the folder 'files' are the sound .wav.
I make a change that you suggested me. Now is work but have a delay when i click on the button.

Attachment 6139

Razor12911 26-04-2013 04:08

1 Attachment(s)
Quote:

Originally Posted by Andre Jesus (Post 417258)
Hello Friends.

How can i change (size and place) the button of the message box?

Attachment 6091

Thanks in advance.

Yep, it is possible, tested it on my script and working, but it's not easy.

Make Custom Labels, Change OnClicks and Use Booleans. :D


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

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