Хех... скопировать мало...
Значит так, самое простое:
Копируешь файлы
Bass.dll и
Bass.pas в диррекдорию с проектом. Затем, в delphi открываешь 'Project\View Source', там надо прописать библиотеку:
Код:
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Bass in 'Bass.dll';
В Unit1 после Uses пишешь Bass.
Посде этого шаманства кидаем на форму 2-е кнопки и в 1-й пишем:
Код:
If BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then
Begin
//Play и Stop;
BASS_Init(-1, 44100, 0, Application.Handle, nil);
Channel := BASS_StreamCreateFile(FALSE, PChar('test.mp3'), 0, 0,0);
BASS_ChannelPlay(Channel, True);
Timer1.Enabled:=true;
End else
Bass.BASS_ChannelStop(Channel)
А во второй кнопке пишем:
Код:
//Пауза;
If BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then BASS_ChannelPlay(Channel, False) else
BASS_ChannelPause(Channel)
в свойстве OnClose пиши Bass_free;
Вот собственно и всё!
Для изменения громкости самого трека надо на форму кинуть TrackBar и в нём написать так:
Код:
Bass.BASS_ChannelsetAttribute(Channel,BASS_ATTRIB_VOL,TrackBar1.Position/100);
При этом в свойство трак бара Max болжно равняться 100...
Это не изменяет системную громкость...
Удачи в пользовании!