FileForums - -+- COMPLETE - Inno Setup Script -+-

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

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

- - -+- COMPLETE - Inno Setup Script -+- (https://fileforums.com/showthread.php?t=96170)

Quote:

Originally Posted by minh_k43sj (Post 435705)

great :)
you can add music background to scrip ? :)

Code:

[Files]

Source: File\Bass.dll; DestDir: {tmp}; Flags: dontcopy deleteafterinstall noencryption nocompression

Source: File\music.mp3; DestDir: {tmp}; Flags: dontcopy deleteafterinstall noencryption nocompression



[ Code]

type

HSTREAM = DWORD;



function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;

external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset: DWORD; length: DWORD; flags: DWORD): HSTREAM;

external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';

function BASS_Start(): Boolean;

external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_Pause(): Boolean;

external 'BASS_Pause@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;

external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_Stop(): Boolean;

external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Free(): Boolean;

external 'BASS_Free@files:BASS.dll stdcall delayload';





const

BASS_SAMPLE_LOOP = 4;



var

MusicButton: TButton;

Name: string;

i : Integer;



procedure MusicButtonOnClick(Sender: TObject);

begin

if MusicButton.Caption = 'Music On' then

begin

MusicButton.Caption := 'Music Off';

BASS_Pause;

end else 

begin                                                

MusicButton.Caption := 'Music On';

BASS_Start;

end;

end;



procedure InitializeWizard();

begin

ExtractTemporaryFile('BASS.dll');

ExtractTemporaryFile('music.mp3');

if BASS_Init(-1, 44100, 0, 0, 0) then

begin

BASS_Start;

Name:=ExpandConstant('{tmp}\music.mp3');

i:=BASS_StreamCreateFile(FALSE, PAnsiChar(Name), 0, 0, 4);

if i <> 0 then

begin

BASS_ChannelPlay(i, True);

end;



MusicButton := TNewButton.Create(WizardForm);

MusicButton.Parent := WizardForm;

MusicButton.SetBounds(4,337,131,20);

MusicButton.Caption := 'Music On';

MusicButton.OnClick:=@MusicButtonOnClick;

end;

end;



procedure DeinitializeSetup();

begin

BASS_Stop;

BASS_Free;

end;

Quote:

Originally Posted by Dante1995 (Post 435691)

:D BBoxScript :D is test
working 100%
lang english

How to add skin.cjstyles to scrip, please help me :)

Bro,where I put data1.bin, before compiling?

Quote:

Originally Posted by minh_k43sj (Post 435711)

How to add skin.cjstyles to scrip, please help me :)

Simply enter the code under the following headings in blue and if there is no paste all the code

ex: only

Code:

UnloadSkin;

or
all

Code:

procedure DeinitializeUninstall;

begin

UnloadSkin;

end;

Simply enter the isSkin.dll files and Tiger.cjstyles in the folder style

#define SkinDll "isSkin.dll"
#define StyleName "Tiger.cjstyles"

[Setup]

[Files]
Source: "style\{#SkinDll}"; DestDir: "{app}"; Flags: ignoreversion; Attribs: hidden system;
Source: "style\{#StyleName}"; DestDir: "{app}"; Flags: ignoreversion; Attribs: hidden system;

[ Code]
procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar); external 'LoadSkin@{tmp}\{#SkinDll} stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\{#SkinDll} stdcall delayload';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external '[email protected] stdcall';

function InitializeSetup: Boolean;
begin
ExtractTemporaryFile('{#SkinDll}');
ExtractTemporaryFile('{#StyleName}');
LoadSkin(ExpandConstant('{tmp}\{#StyleName}'), '');

Result:=True;
end;

procedure DeinitializeSetup;
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}') ), 0);
UnloadSkin;
end;

function InitializeUninstall: Boolean;
begin
FileCopy(ExpandConstant('{app}\{#SkinDll}'), ExpandConstant('{tmp}\{#SkinDll}'), False);
FileCopy(ExpandConstant('{app}\{#StyleName}'), ExpandConstant('{tmp}\{#StyleName}'), False);
LoadSkin(ExpandConstant('{tmp}\{#StyleName}'), '');
Result:=True;
end;

procedure DeinitializeUninstall;
begin
UnloadSkin;
end;

Another request. Please, give metro.cjstyles.

metro no is .cjstyles is vcl styles

ISDone_Final_Dante1995-Slide+Music

Simply Script ISDone

is the script that I use for my games :)
I do not respond to comments on changes ;)

Hi Dante, I know you're competent in compiling installations with Inno Setup.:p

I would like to ask you if you are able to complete an installation on a single page containing the trailer, the choice of components and the installation of the game.:rolleyes:

I send you an example:

Attachment 10659

Thanks Bro!!!!:D

if you need to throw with inno setup no problem (Single or not), but understand from this program on what to do, then that's problem .... the best thing to do, is to create a screenshot with photoshop detailed. you should also take care of the program you've zipped, simple things, you can enrich and treat in detail as the other, the designe, options and extras in short, know how to give a touch of magic is fine, but you can never forget elegance or lose the originality of the product :)

ita
se ti serve lanciare con inno setup non c'è problema (sigola o non ), ma capire da questo programma il cosa fare, allora si che c'è problema.... la meglio cosa da fare, è creare uno screenshot con photoshop dettagliato. ti consiglio anche di curare il programma che hai zippato, le cose semplici, si possono arricchire e curare nel dettaglio come le altre, il designe,le opzioni e gli extra insomma, sai? dare un tocco di magia va bene, ma non bisogna mai trascurare l'eleganza o si perde l'originalità del prodotto

The zip I posted is just an example to understand,it's just an old installation created by me compiled in HTA.
Simply a setup with a video trailer superimposed, with the possibility of choice in the same page of the components and the installation folder of the game.;)
Ex:
Attachment 10660

Attachment 10661

:D
Lo zip postato è solo una mia vecchia installazione di giochi, che usavo precedentemente.
In un unica pagina ho la possibilità di scelta dei componenti e dell'installazione del gioco, in piu' il trailer sovraimpresso del gioco, che l'utente puo' guardare nel tempo dell'installazione, per non rompersi le ballette, e rendersi conto del tipo di gioco.
Logicamente puoi sbizzarrirti come vuoi le immagini postate rimangono solo un esempio.
Grazie Fratello.

you need more in the trailer right?

ti serve in più il trailer giusto?

Quote:

Originally Posted by Dante1995 (Post 436841)

ti serve in più il trailer giusto?

That's Right:)
Se si può ringrandire anche la schermata dell'installazione in modo che la dimensione del video non resti troppo piccola.
Sai...!!!...per quelli come me che portano gli occhiali...:cool::cool:

spero di avere capito..
i jpg per lo slideshow, devono essere ingranditi 800x430 per il fullscreen, poi vedi tu...

I hope you understand ..
jpg for the slideshow, should be enlarged to 800x430 fullscreen, then see you