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

[yener90]

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

[gatosky1620]

any tutorial please i dont understand how make this:

[gatosky1620]

hey Yener and understanding how to do this



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

[andrei222]

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

[pakrat2k2]

Originally Posted by andrei222

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.

[yener90]

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

[andrei222]

thanks very much .all languages but romanian missing

[BAMsE]

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

[edwinkyr]

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

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

[yener90]

edwinkyr
fixed -> Update 7.0.1

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

[BAMsE]

Not mine. Just founded on net. Works fine

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