[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[Files]
Source: callbackctrl.dll; DestDir: {tmp}; Flags: dontcopy
Source: bass.dll; DestDir: {app}; Flags: dontcopy
Source: #1_01_Eagles_Otel California.mp3; DestDir: {app}; Flags: dontcopy nocompression
Source: #1_02_Urge overkill_Girl you'll be a woman soon.mp3; DestDir: {app}; Flags: dontcopy nocompression
Source: #1_03_Gary Moore_Still got the blues.mp3; DestDir: {app}; Flags: dontcopy nocompression
Source: #1_04_Extreme_More than worlds.mp3; DestDir: {app}; Flags: dontcopy nocompression
Source: #1_05_Chris Rea_I just wanna be with you.mp3; DestDir: {app}; Flags: dontcopy nocompression
Source: #1_06_The Beatles_Yesterday.mp3; DestDir: {app}; Flags: dontcopy nocompression

[code]
type
   TCallbackProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;
   TTimerProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);
   HSTREAM = DWORD;

function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function WndProcCallBack(P:TCallbackProc;ParamCount:integer):LongWord; external 'wrapcallbackaddr@files:callbackctrl.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X, Y, cx, cy: Integer; uFlags: UINT): BOOL; external 'SetWindowPos@user32.dll stdcall';

function WrapTimerProc(callback: TTimerProc; paramcount: integer):longword; external 'wrapcallbackaddr@files:callbackctrl.dll stdcall';
function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

function BASS_Init(device: LongInt; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean; external 'BASS_Init@{tmp}\BASS.dll stdcall delayload';
function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset1, offset2, length1, length2: DWORD; flags: DWORD): HSTREAM; external 'BASS_StreamCreateFile@files:bass.dll stdcall delayload';
function BASS_StreamFree(Handle: HSTREAM): Boolean; external 'BASS_StreamFree@files:bass.dll stdcall delayload';
function BASS_SetVolume(volume: single): BOOL; external 'BASS_SetVolume@files:bass.dll stdcall delayload';
function BASS_GetVolume: single; external 'BASS_GetVolume@files:bass.dll stdcall delayload';
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean; external 'BASS_ChannelPlay@files:bass.dll stdcall delayload';
function BASS_ChannelIsActive(handle: DWORD): DWORD; external 'BASS_ChannelIsActive@files:bass.dll stdcall delayload';
function BASS_ChannelPause(handle: DWORD): Boolean; external 'BASS_ChannelPause@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';
function BASS_Start(): Boolean; external 'BASS_Start@files:bass.dll stdcall delayload';
function BASS_Pause(): Boolean; external 'BASS_Pause@files:bass.dll stdcall delayload';

var
Mp3Form: TForm;
OldProc, OldProc1: Longint;
Mp3List: TListBox;
Mp3Previous, Mp3Play, Mp3Next: TButton;
CurMp3, CurMp3name: Tlabel;
IsMp3Play: Boolean;
Mp3FilesDir: String;
Mp3Handle: LongInt;
Mp3Timer, LastEvent: Longword;

const
   WM_MOVE = $3;
   WM_ACTIVATE = $6;
   WM_CLOSE = $10;
   WM_NCACTIVATE = $86;

   GWL_WNDPROC = -4;
   GWL_STYLE = -16;

   WS_MINIMIZEBOX = $20000;
   WS_MAXIMIZEBOX = $10000;
    
function MyProc(h: HWND; Msg, wParam, lParam: longint): Longint;
begin
   if Msg=WM_MOVE then SetWindowPos(Mp3Form.Handle, 0, WizardForm.Left+WizardForm.Width+5, WizardForm.Top, 0, 0, $415);
   if Msg=WM_ACTIVATE then SendMessage(Mp3Form.Handle, WM_NCACTIVATE, 1, 0);
   Result:= CallWindowProc(OldProc, h, Msg, wParam, lParam);
end;

function MyProc1(h: HWND; Msg, wParam, lParam: longint): Longint;
begin
   if Msg=WM_MOVE then begin
     SetWindowPos(WizardForm.Handle, 0, Mp3Form.Left-(WizardForm.Width+5), Mp3Form.Top, 0, 0, $415);
   end;
   if Msg=WM_CLOSE then begin
     SendMessage(WizardForm.handle, WM_CLOSE, 0, 0);
     Exit;
   end;
   Result:= CallWindowProc(OldProc1, h, Msg, wParam, lParam);
   if Msg=WM_ACTIVATE then SendMessage(WizardForm.Handle, WM_NCACTIVATE, 1, 0);
end;

function GetSelected(): Integer;
var n: integer;
begin
   Result:= -1;
   for n:=0 to Mp3List.Items.Count-1 do begin
     if mp3List.Selected[n] then begin
       Result:= n;
       Break;
     end;
   end;
end;

procedure SetSelected(Index: Integer);
begin
   SendMessage(Mp3List.Handle, $186, Index, 0);
end;

procedure SetCurrentMp3(Index: Integer);
var name: string;
begin
   CurMp3Name.Caption:= Mp3List.Items.Strings[Index]+'  ';
   name:= AddbackSlash(Mp3FilesDir)+Mp3List.Items.Strings[Index];
   BASS_StreamFree(mp3handle);
   Mp3Handle:= BASS_StreamCreateFile(FALSE, PChar(name), 0, 0, 0, 0, $40000);
   BASS_ChannelPlay(Mp3Handle, False);
   Mp3Play.Caption:= 'Pause';
   IsMp3Play:= True;
end;

procedure GetClickedItem(Sender: TObject);
begin
   SetCurrentMp3(GetSelected());
end;

procedure NextSelected(Sender: TObject);
var n: Integer;
begin
   n:= GetSelected()+1;
   if n>=Mp3List.Items.Count then n:=0;
   SetSelected(n);
   SetCurrentMp3(n);
end;

procedure PreviousSelected(Sender: TObject);
var n: Integer;
begin
   n:= GetSelected()-1;
   if n<0 then n:= Mp3List.Items.Count-1;
   SetSelected(n);
   SetCurrentMp3(n);
end;

procedure PlayMp3(Sender: TObject);
begin
   if IsMp3Play then begin
     Mp3Play.Caption:='Play';
     BASS_ChannelPause(Mp3Handle);
     IsMp3Play:= False;
   end else begin
     Mp3Play.Caption:='Pause';
     BASS_ChannelPlay(Mp3Handle, False);
     IsMp3Play:= True;
   end;
end;

procedure Mp3ListAddFiles(Dir: String; Mask: String);
var FSR: TFindRec; FindR: Boolean;
begin
   Mp3FilesDir:= Dir;
   FindR:= FindFirst(AddBackSlash(Dir)+Mask, FSR);
   repeat
     Mp3List.Items.Add(FSR.Name);
     FindR:= FindNext(FSR);
   until not FindR;
   FindClose(FSR);
end;

procedure Mp3TimerProc(HandleW, msg, idEvent, TimeSys: LongWord);
var s: string;
begin
   LastEvent:=LastEvent+50;
   if (BASS_ChannelIsActive(Mp3Handle) = 0)and(IsMp3Play) then
     NextSelected(nil);
      
   if (CurMp3Name.Caption<>'')and(LastEvent>300) then begin
     s:= CurMp3Name.Caption
     s:= s+Copy(s, 1, 1);
     Delete(s, 1, 1);
     CurMp3Name.Caption:=s;
     LastEvent:=0;
   end;
end;

procedure InitializeWizard();
begin
   ExtractTemporaryFile('#1_01_Eagles_Otel California.mp3');
   ExtractTemporaryFile('#1_02_Urge overkill_Girl you''ll be a woman soon.mp3');
   ExtractTemporaryFile('#1_03_Gary Moore_Still got the blues.mp3');
   ExtractTemporaryFile('#1_04_Extreme_More than worlds.mp3');
   ExtractTemporaryFile('#1_05_Chris Rea_I just wanna be with you.mp3');
   ExtractTemporaryFile('#1_06_The Beatles_Yesterday.mp3');

   Mp3Form:= TForm.Create(MainForm);
   Mp3Form.SetBounds(WizardForm.Left+WizardForm.Width+5, WizardForm.Top, 160, WizardForm.Height);
   Mp3Form.BorderStyle:= bsSingle;
   Mp3Form.Show;
    
   Mp3List:= TListBox.Create(mp3Form);
   mp3List.SetBounds(10, 20, 140, 200);
   Mp3List.Parent:= Mp3Form;
   mp3List.OnDblClick:= @GetClickedItem

   Mp3Previous:= TButton.Create(Mp3Form);
   Mp3Previous.SetBounds(10, 230, 30, 23);
   Mp3Previous.Caption:='<<';
   Mp3Previous.OnClick:= @PreviousSelected
   Mp3Previous.Parent:= Mp3Form;
    
   Mp3Next:= TButton.Create(Mp3Form);
   Mp3Next.SetBounds(120, 230, 30, 23);
   Mp3Next.Caption:='>>';
   Mp3Next.OnClick:= @NextSelected
   Mp3Next.Parent:= Mp3Form;

   Mp3Play:= TButton.Create(Mp3Form);
   Mp3Play.SetBounds(50, 230, 60, 23);
   Mp3Play.Caption:='Pause';
   Mp3Play.OnClick:= @PlayMp3;
   Mp3Play.Parent:= Mp3Form;
    
   CurMp3:= TLabel.Create(WizardForm);
   CurMp3.AutoSize:= False;
   CurMp3.SetBounds(10, 260, 180, 20);
   CurMp3.Caption:= 'Текущая песня:';
   CurMp3.Parent:= Mp3Form;
    
   CurMp3name:= TLabel.Create(WizardForm);
   CurMp3name.AutoSize:= False;
   CurMp3name.SetBounds(10, 280, 180, 20);
   CurMp3name.Caption:= '';
   CurMp3name.Parent:= Mp3Form;
    
   SetWindowLong(Mp3Form.handle, GWL_STYLE, GetWindowLong(Mp3Form.handle, GWL_STYLE)and(not WS_MINIMIZEBOX)and(not WS_MAXIMIZEBOX));
   OldProc:= SetWindowLong(WizardForm.Handle, GWL_WNDPROC, WndProcCallBack(@MyProc, 4));
   OldProc1:= SetWindowLong(Mp3Form.Handle, GWL_WNDPROC, WndProcCallBack(@MyProc1, 4));

   IsMp3Play:= True;

   BASS_Init(-1, 44100, 0, 0, 0)
   BASS_Start();
    
   Mp3ListAddFiles(ExpandConstant('{tmp}'), '*.mp3');
   SetSelected(0);
   SetCurrentMp3(0);
    
   Mp3Timer:= SetTimer(0, 0, 50, WrapTimerProc(@Mp3TimerProc, 4));
end;

procedure DeinitializeSetup();
begin
   BASS_Stop;
   BASS_Free;
   IsMp3Play:= False;
   KillTimer(0, Mp3Timer);
   SetWindowlong(WizardForm.Handle, -4, OldProc);
   SetWindowlong(Mp3Form.Handle, -4, OldProc1);
end;