yener90's Inno Project Source Codes

[BAMsE]

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)

[amin fear]

Originally Posted by BAMsE

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

[amin fear]

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

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

[amin fear]

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

http://keygenmusic.net/

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