![]() |
|
#11
|
||||
|
||||
![]() Цитата:
В uses добавь модуль 'Bass'; В FormCreate пишешь: Код:
BASS_Init(-1, 44100, 0, application.Handle, nil); Создаёшь новую переменную: Код:
... var channel:cardinal; implementation ... Код:
if opendialog1.execute then begin BASS_StreamFree(Channel); Channel := BASS_StreamCreateFile(FALSE, PChar(opendialog1.filename), 0, 0, 0); BASS_ChannelPlay(Channel, False); end; Остальное читай в туториале! ![]() Кому я должен - всем прощаю!!!! ![]() |
Эти 2 пользователя(ей) сказали Спасибо <<D>> за это полезное сообщение: | ||
Kirito03 (10.03.2016),
Lothlorien (07.04.2016)
|