#76
|
|||
|
|||
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; |
The Following 2 Users Say Thank You to Dante1995 For This Useful Post: | ||
Andrey167 (05-11-2014), minh_k43sj (05-11-2014) |
Sponsored Links |
#77
|
|||
|
|||
How to add skin.cjstyles to scrip, please help me
|
#78
|
||||
|
||||
Bro,where I put data1.bin, before compiling?
|
#79
|
|||
|
|||
Simply enter the code under the following headings in blue and if there is no paste all the code
ex: only Code:
UnloadSkin; 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; Last edited by Dante1995; 05-11-2014 at 20:00. |
The Following User Says Thank You to Dante1995 For This Useful Post: | ||
minh_k43sj (05-11-2014) |
#80
|
||||
|
||||
Another request. Please, give metro.cjstyles.
|
#81
|
|||
|
|||
metro no is .cjstyles is vcl styles
Last edited by Dante1995; 28-12-2014 at 21:54. |
The Following 4 Users Say Thank You to Dante1995 For This Useful Post: | ||
ChronoCross (07-11-2014), mausschieber (07-11-2014), Razor12911 (17-12-2014), Souvik Giri (06-11-2014) |
#82
|
|||
|
|||
MetroRun
AutoRun
Last edited by Dante1995; 28-12-2014 at 21:54. |
The Following User Says Thank You to Dante1995 For This Useful Post: | ||
Razor12911 (11-11-2014) |
#83
|
|||
|
|||
isdoneex
isdoneex
Last edited by Dante1995; 28-12-2014 at 21:54. |
The Following 4 Users Say Thank You to Dante1995 For This Useful Post: | ||
Andrey167 (11-11-2014), ChronoCross (11-11-2014), mausschieber (11-11-2014), Razor12911 (11-11-2014) |
#84
|
|||
|
|||
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 Last edited by Dante1995; 28-12-2014 at 21:54. |
The Following 3 Users Say Thank You to Dante1995 For This Useful Post: | ||
#85
|
||||
|
||||
Hi Dante, I know you're competent in compiling installations with Inno Setup.
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. I send you an example: Attachment 10659 Thanks Bro!!!! Last edited by felice2011; 02-01-2015 at 01:30. |
#86
|
|||
|
|||
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 Last edited by Dante1995; 16-12-2014 at 15:47. |
#87
|
||||
|
||||
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 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. Last edited by felice2011; 25-09-2018 at 15:53. |
#88
|
|||
|
|||
you need more in the trailer right?
ti serve in più il trailer giusto? Last edited by Dante1995; 17-12-2014 at 07:32. |
#89
|
||||
|
||||
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... Last edited by felice2011; 17-12-2014 at 07:50. |
#90
|
|||
|
|||
done
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 Last edited by Dante1995; 28-12-2014 at 21:54. |
The Following User Says Thank You to Dante1995 For This Useful Post: | ||
mausschieber (17-12-2014) |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Inno Setup: Additional Libraries | altef_4 | Conversion Tutorials | 50 | 21-10-2020 10:59 |
Blackbox Inno Setup Script | Kurutucu | Conversion Tutorials | 1190 | 18-08-2019 23:43 |
INNO TUTORIAL - Using Unicode and ANSI Versions of INNO Setup | REV0 | Conversion Tutorials | 51 | 26-03-2015 07:57 |
Copy file with Inno Setup Script | emrahcey | Software | 1 | 02-07-2010 09:24 |