[Th3Raven]

Originally Posted by KaktoR

If you used BASS library, there is a example next to it.

You must create a new button

example

[_code]
var
MusicButton: TNewButton;

procedure MusicButtonClick(Sender: TObject);
  begin
    case BASS_ChannelIsActive(SoundStream) of
      BASS_ACTIVE_PLAYING:
      begin
        if BASS_Pause then
          MusicButton.Caption := 'Music ON';
      end;
      BASS_ACTIVE_PAUSED:
      begin
        if BASS_Start then
          MusicButton.Caption := 'Music OFF';
      end;
    end;
  end;

Then you habe to place the button somewhere on installer surface

yes i used BASS Library and when i will have time i will try add the button too. to see how will work. One question. In what section i add the code above? then i create the button as the library with the coordonates too right ?