[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;
      TMp3Info = record
        Filename: String;
        ID: String;
        Title: String;
        Artist: String;
        Album: String;
        Year: String;
        Comment: String;
        Genre: Byte;
        TotalSize: DWORD;
        TotalTime: double;
      end;
      TMp3FullInfo = record
        Mp3Path: String;
        Mp3Handle: HSTREAM;
        Mp3Files: array of TMp3Info;
        IsMp3Playing: Boolean;
        LastHintIndex: Integer;
      end;
          
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_ChannelGetLength(Handle: HStream; Mode: DWORD): DWORD; external 'BASS_ChannelGetLength@files:bass.dll stdcall delayload';
function BASS_ChannelGetPosition(Handle: HStream; Mode: DWORD): DWORD; external 'BASS_ChannelGetPosition@files:bass.dll stdcall delayload';
function BASS_ChannelBytes2Seconds(Handle: HStream; PosHi, PosLo: DWORD): double; external 'BASS_ChannelBytes2Seconds@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';

var
Mp3Form: TForm;
OldProc, OldProc1: Longint;
Mp3List: TListBox;
Mp3Previous, Mp3Play, Mp3Next: TButton;
CurMp3, CurMp3name, TimeLabel: Tlabel;
Mp3Timer, LastEvent: Longword;
Genres: array of String;
Mp3Info: TMp3FullInfo;

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(Mp3Info.Mp3Path)+Mp3List.Items.Strings[Index];
      BASS_StreamFree(Mp3Info.Mp3Handle);
      Mp3Info.Mp3Handle:= BASS_StreamCreateFile(FALSE, PChar(name), 0, 0, 0, 0, $40000);
      BASS_ChannelPlay(Mp3Info.Mp3Handle, False);
      if Mp3Info.Mp3Files[Index].TotalSize=0 then Mp3Info.Mp3Files[Index].TotalSize:= BASS_ChannelGetLength(Mp3Info.Mp3Handle, 0);
      if Mp3Info.Mp3Files[Index].TotalTime=0 then Mp3Info.Mp3Files[Index].TotalTime:= BASS_ChannelBytes2Seconds(Mp3Info.Mp3Handle, Mp3Info.Mp3Files[Index].TotalSize, 0);
      Mp3Play.Caption:= 'Pause';
      Mp3Info.IsMp3Playing:= 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 Mp3Info.IsMp3Playing then begin
        Mp3Play.Caption:='Play';
        BASS_ChannelPause(Mp3Info.Mp3Handle);
        Mp3Info.IsMp3Playing:= False;
      end else begin
        Mp3Play.Caption:='Pause';
        BASS_ChannelPlay(Mp3Info.Mp3Handle, False);
        Mp3Info.IsMp3Playing:= True;
      end;
end;

Function TrimTab(S: String): String;
begin
      while pos(#0, S)>0 do StringChange(S, #0, '');
      while (Length(S)>=1)and(S[length(S)]=' ') do SetLength(S, Length(S)-1);
      while (Length(S)>=1)and(S[1]=' ') do Delete(S, 1, 1);
      Result:= S;
end;

procedure Mp3CreateFilesList(Dir: String; Mask: String);
var FSR: TFindRec; k: Integer; FStream: TFileStream; Buffer: string;
begin
      Mp3Info.Mp3Path:= Dir; SetArrayLength(Mp3Info.Mp3Files, 0);
      if FindFirst(AddBackSlash(Dir)+Mask, FSR) then
      repeat
        k:= GetArrayLength(Mp3Info.Mp3Files); SetArrayLength(Mp3Info.Mp3Files, k+1);
        Mp3Info.Mp3Files[k].Filename:= AddBackslash(Dir)+FSR.Name;
        FStream:= TFileStream.Create(AddBackslash(Dir)+FSR.Name, fmOpenRead );
        try
          FStream.Seek(-128, soFromEnd);
          SetLength(Buffer, 128);
          FStream.Read(Buffer, 128);
          if Buffer <> '' then begin
            Mp3Info.Mp3Files[k].ID:= TrimTab(copy(Buffer, 1, 3));
            Mp3Info.Mp3Files[k].Title:= TrimTab(copy(Buffer, 4, 30));
            Mp3Info.Mp3Files[k].Artist:= TrimTab(copy(Buffer, 34, 30));
            Mp3Info.Mp3Files[k].Album:= TrimTab(copy(Buffer, 64, 30));
            Mp3Info.Mp3Files[k].Year:= TrimTab(copy(Buffer, 94, 30));
            Mp3Info.Mp3Files[k].Comment:= TrimTab(copy(Buffer, 98, 30));
            Mp3Info.Mp3Files[k].Genre:= Ord(Buffer[128]);
            if Mp3Info.Mp3Files[k].Genre>128 then Mp3Info.Mp3Files[k].Genre:=12;
          end;
        finally
          FStream.Free;
        end;
      until not FindNext(FSR);
      FindClose(FSR);
end;

procedure Mp3ListAddFiles(Dir: String; Mask: String);
var n: integer;
begin
      Mp3CreateFilesList(Dir, Mask);
      for n:=0 to getArrayLength(Mp3Info.Mp3Files)-1 do begin
        Mp3List.Items.Add(ExtractFilename(Mp3Info.Mp3Files[n].Filename))
      end;
end;

function ToTime(time: double): string;
begin
      Result:= Padz(FloatToStr(trunc(time/3600)), 2)+':'+PADZ(FloatToStr(trunc((time-trunc(time/3600)*3600)/60)), 2)+':'+PADZ(FloatToStr(trunc(time - trunc(time/60)*60)), 2);
end;

procedure Mp3TimerProc(HandleW, msg, idEvent, TimeSys: LongWord);
var s: string; Mp3Pos: DWORD; MP3PosTime: double;
begin
      LastEvent:=LastEvent+50;
      if (BASS_ChannelIsActive(Mp3Info.Mp3Handle) = 0)and(Mp3Info.IsMp3Playing) 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;
          
      if Mp3Info.IsMp3Playing then begin
        Mp3Pos:= BASS_ChannelGetPosition(Mp3Info.Mp3Handle, 0);
        MP3PosTime:= BASS_ChannelBytes2Seconds(Mp3Info.Mp3Handle, Mp3Pos, 0);
        TimeLabel.Caption:= ToTime(MP3PosTime) +' / '+ ToTime(Mp3Info.Mp3Files[GetSelected].TotalTime);
      end;
end;

procedure Mp3GetIndexHint(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var i: integer; pt: TPoint;
begin
      pt.x:=X; pt.y:= Y;
      i:= Mp3List.ItemAtPos(pt, true);
      if (Mp3Info.LastHintIndex<>i) then begin
        Mp3List.Hint:=''; Mp3List.ShowHint:= False;
        if i<>-1 then begin
          Mp3Info.LastHintIndex:= i;
          Exit;
        end;
      end;

      if (i<>-1) then begin
          Mp3List.Hint:= 'Title: '+Mp3Info.Mp3Files[i].Title+#13+
                         'Artist: '+Mp3Info.Mp3Files[i].Artist+#13+
                         'Album: '+Mp3Info.Mp3Files[i].Album+#13+
                         'Year: '+Mp3Info.Mp3Files[i].Year+#13+
                         'Genre: '+Genres[Mp3Info.Mp3Files[i].Genre];
          Mp3List.ShowHint:= True;
      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');

      Genres:= ['Blues','Classic Rock','Country','Dance','Disco','Funk','Grunge',
        'Hip- Hop','Jazz','Metal','New Age','Oldies','Other','Pop','R&B',
        'Rap','Reggae','Rock','Techno','Industrial','Alternative','Ska',
        'Death Metal','Pranks','Soundtrack','Euro-Techno','Ambient',
        'Trip-Hop','Vocal','Jazz+Funk','Fusion','Trance','Classical',
        'Instrum en ta l','Acid','House','Game','Sound Clip','Gospel','Noise',
        'Alternative Rock','Bass','Punk','Space','Meditative','Instrumental Pop',
        'Instrumental Rock','Ethnic','Gothic','Darkwave','Techno-Industrial','Electronic',
        'Pop-Folk','Eurodance','Dream','Southern Rock','Comedy','Cult','Gangsta',
        'Top 40','Christian Rap','Pop/Funk','Jungle','Native US','Cabaret','New Wave',
        'Psychadelic','Rave','Showtunes','Trailer','Lo-Fi','Tribal','Acid Punk',
        'Acid Jazz','Polka','Retro','Musical','Rock & Roll','Hard Rock','Folk',
        'Folk-Rock','National Folk','Swing','Fast Fusion','Bebob','Latin','Revival',
        'Celtic','Bluegrass','Avantgarde','Gothic Rock','Progressive Rock',
        'Psychedelic Rock','Symphonic Rock','Slow Rock','Big Band','Chorus',
        'Easy Listening','Acoustic','Humour','Speech','Chanson','Opera',
        'Chamber Music','Sonata','Symphony','Booty Bass','Primus','Porn Groove',
        'Satire','Slow Jam','Club','Tango','Samba','Folklore','Ballad',
        'Power Ballad','Rhytmic Soul','Freestyle','Duet','Punk Rock','Drum Solo',
        'Acapella','Euro-House','Dance Hall','Goa','Drum & Bass','Club-House',
        'Hardcore','Terror','Indie','BritPop','Negerpunk','Polsk Punk','Beat',
        'Christian Gangsta','Heavy Metal','Black Metal','Crossover','Contemporary C',
        'Christian Rock','Merengue','Salsa','Thrash Metal','Anime','JPop','SynthPop'];

      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
      Mp3List.OnMouseMove:= @Mp3GetIndexHint;
      Mp3List.ShowHint:= True;

      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;

      TimeLabel:= TLabel.Create(WizardForm);
      TimeLabel.AutoSize:= False;
      TimeLabel.SetBounds(10, 300, 180, 20);
      TimeLabel.Caption:= '';
      TimeLabel.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));

      Mp3Info.IsMp3Playing:= True;
      Mp3Info.LastHintIndex:=-1;
          
      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;
      Mp3Info.IsMp3Playing:= False;
      KillTimer(0, Mp3Timer);
      SetWindowlong(WizardForm.Handle, -4, OldProc);
      SetWindowlong(Mp3Form.Handle, -4, OldProc1);
end;