FileForums - yener90's Inno Project Source Codes

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

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

- - yener90's Inno Project Source Codes (https://fileforums.com/showthread.php?t=91563)

amin fear here you go. Just translate [CustomMassages] with far prefix in both scripts. Also remember to modify setup.ini in order to handle Persian (code for it is FA)

Quote:

Originally Posted by BAMsE (Post 400525)

amin fear here you go. Just translate [CustomMassages] with far prefix in both scripts. Also remember to modify setup.ini in order to handle Persian (code for it is FA)

Thank you ... dear BAMsE ...

I translated all of [CustomMessages] with FAR prefix and attached them here to have a more complete source of yener90 great treasure !

I also tested yener90 source with FARSI language and it worked perfectly ...

but i will be very grateful if you help me one more time and let me tell the problem ...

as we saw in previous pages ... this source has a serious problem with running on Windows XP platform ... and there was a temporary solution there ... but i really need to use this installation package on every platform without any problem ( from Windows XP to Seven ) ...

do you have a reliable and working method to solve this problem ?

I also want to have the background music too ...

please help me one more time ...

any help would be appreciated ...

Ok ... it seems no guy here have a solution for background music function ...

i have searched all the web for something cool and found this script ...

[CODE][Setup]
AppName=Music During Installation
AppVerName=Music During Installation
CreateAppDir=no
DisableProgramGroupPage=yes
DefaultGroupName=Music During Installation

[Files]
Source: "BASS.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "sound.mp3"; DestDir: "{tmp}"; Flags: dontcopy

Code:

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

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

 

function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset1: DWORD; offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): DWORD;

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

 

function BASS_Start(): Boolean;

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

 

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

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



function BASS_Stop(): Boolean;

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

 

function BASS_Free(): Boolean;

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



const

  BASS_SAMPLE_LOOP = 4;



procedure InitializeWizard();

var

  mp3Handle: HWND;

  mp3Name: string;

begin

  ExtractTemporaryFile('sound.mp3');

  mp3Name := ExpandConstant('{tmp}\sound.mp3');

  BASS_Init(-1, 44100, 0, 0, 0);

  mp3Handle := BASS_StreamCreateFile(FALSE, PAnsiChar(mp3Name), 0, 0, 0, 0, BASS_SAMPLE_LOOP);

  BASS_Start();

  BASS_ChannelPlay(mp3Handle, False);

end;



procedure DeinitializeSetup();

begin

  BASS_Stop();

  BASS_Free();

end;

it uses bass.dll from un4seen corp but has no Play/Pause Button ...

anyway its not so important and i will be satisfied without it ...

i tested the script and it works perfectly on every platform ( WinXp Win7 X64 )

***********************************
I also found four scripts from Russian guys ( Credit goes to RU-Board )

they use both BASSMOD.dll ( Play Tracker Modules ) and bass.dll ( Play MP3 & etc ) . i attached them to my post ... feel free to take a look at them

they are more complicated and have BG Sound control button/checkbox ...

anyway after all of this explanation any guy here can implement the first script or even Russian guys scripts into Yener 90 great source ?

I tried ... but every time i got something like DUPLICATE IDENTIFIER error ...

any help would be appreciated ...

thanks guys for your great forum !

P.S : nothing introduced is Warez ... those DLLs are free for non-commercial purpose ...

sorry to double post ...

if you need some cool tracker modules ( XM IT MOD and etc ) , take a look at this great compilation by Russian fans ...

Code:

http://keygenmusic.net/

P.S : nothing introduced is Warez ... please READ the RULES at first page by website admin ...

thx amin fear :D...now i changed the source.
UPDATE 6.9 IS AVAILABLE

any tutorial please i dont understand how make this:

http://img829.imageshack.us/img829/3111/scr1p.jpg

hey Yener and understanding how to do this

http://img829.imageshack.us/img829/3111/scr1p.jpg

I do not understand yet is how to make buttons and how to identify which is the "INSTALL" MUSIC ", so please help me in this

thanks for your work, but please tell me how to make a install with two shortcuts on desk plsss

Quote:

Originally Posted by andrei222 (Post 400691)

thanks for your work, but please tell me how to make a install with two shortcuts on desk plsss

in ISFreeArcExtract v.6.9.iss look under [icons] section, there you will see where it add icons to desktop.

UPDATE 7.0
- added back internal installation support
- rename.bat is no more required
- fixed small button problem
- added DarkISSkin
-> Enable it editing Setup.ini -> DarkISSkin=1(0 disables it)
-> With that you dont need to create any buttons for your setups
-> only required files are Uninstall.bmp -> background image in setup
and optional:
Installer.bmp -> small installer image in installation window
background1 - background(unlimited) -> background images in installation window

thanks very much .all languages but romanian missing

Nice to see some life here :) Any plans to supporting PNG (splash, buttons)?

found bug from CI 7.0 when not use DarkISSkin
after press install button

Runtime Error (at 344:5780):
Could not call proc.

edwinkyr
fixed :D -> Update 7.0.1

BAMsE
sorry bro...cant find a solution :/
if you find a script, i could add it.

Not mine. Just founded on net. Works fine :)

Code:

[Files]

 Source: "Splash.png"; DestDir: {tmp}; Flags: dontcopy

 Source: "isgsg.dll"; DestDir: {tmp}; Flags: dontcopy



 [*Code]

 // p2:String -- Inno Setup (Kein UNICODE)

 // p2:AnsiString -- Inno Setup (UNICODE)



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

 procedure Splash();

 begin

 ExtractTemporaryFile('isgsg.dll');

 ExtractTemporaryFile('Splash.png');

 ShowSplashScreen(WizardForm.Handle,ExpandConstant( '{tmp}')+'\Splash.png',1000,3000,1000,0,255,False, $FFFFFF,10);

 end;



 procedure InitializeWizard();

 begin

 Splash();

 end;