|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.07.2015, 19:07 | #1 |
Регистрация: 29.06.2015
Сообщений: 5
|
Фоновая музыка
Привет уважаемые форумчане! Дайте совет начинающему:
Я написал небольшое приложение и хотел бы чтобы играла фоновая музыка. Вот код: Procedure TMain.PlayWAVfromRES(); var hResource: THandle; pData: Pointer; begin hResource := LoadResource(hInstance, FindResource(hInstance, 'Sound01', RT_RCDATA)); try pData := LockResource(hResource); if pData = nil then raise Exception.Create('Cannot read Sound01'); SndPlaySound(pData, SND_MEMORY or SND_SYNC); finally FreeResource(hResource); end; end; Музыка воспроизводится, но пока она не доиграет до конца основная форма приложения не доступна а мне нужно, чтобы можно было щелкать по форме, делать всякие действия, и чтобы одновременно играла фоновая релакс музыка. Помогите советом! |
04.07.2015, 20:43 | #2 |
Регистрация: 29.06.2015
Сообщений: 5
|
В общем я разобрался сам. Нужно было запускать музыка в потоке. Вот код, если кому интересно:
1. Сначала объявим наш поток TPlaySoundThread = class(TThread) private { private declarations } Procedure PlayWAVfromRES; protected { protected declarations } procedure Execute; override; public { public declarations } end; 2. Добавим процедуру Exucute procedure TPlaySoundThread.Execute; begin PlayWAVfromRES() end; 3. В обработчике FormCreate добавим эти строчки: pstThread := TPlaySoundThread.Create(false); pstThread.Resume; pstThread.Priority:= tpLower; где pstThread это переменная - pstThread: TPlaySoundThread; и усе, работает |
04.07.2015, 22:57 | #3 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Ещё есть способ SND_ASYNC
https://msdn.microsoft.com/ru-ru/library/aa909803.aspx |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Фоновая музыка на сайт ... | s88s | HTML и CSS | 18 | 29.08.2014 21:45 |
фоновая задача C# | No_Comments | Помощь студентам | 3 | 01.05.2013 11:19 |
Фоновая музыка | Лучко | Помощь студентам | 1 | 25.04.2013 18:51 |
Фоновая музыка при создании формы | JNLYSk | Мультимедиа в Delphi | 3 | 13.09.2009 20:08 |
Фоновая музыка | Коля-Коля | Мультимедиа в Delphi | 7 | 10.06.2009 15:06 |