| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Функция PlaySound

Mosquito ©   (2004-04-22 01:22:00) 

Что нужно чтобы работала функция
PlaySound('c:\....\*.wav',0,SND_FILENAME) ? В хелпе только такой пример...

---

Mosquito   (2004-04-23 15:14:00) [1]

maxx0: спасибо, но модуля MMSystem мне вполне хватило.

Тема закрыта.

---

maxx0   (2004-04-23 13:10:00) [2]

Читайте MSDN

---

maxx0   (2004-04-23 13:08:00) [3]


const
 SND_SYNC=$0000;  // play synchronously (default)
 SND_ASYNC=$0001;  // play asynchronously
 SND_NODEFAULT=$0002;  // silence (!default) if sound not found    SND_MEMORY=$0004;  // pszSound points to a memory file */
 SND_LOOP=$0008;  // loop the sound until next sndPlaySound */
 SND_NOSTOP=$0010;  // don't stop any currently playing sound */
 SND_NOWAIT=$00002000; // don't wait if the driver is busy */
 SND_ALIAS=$00010000; // name is a registry alias */
 SND_ALIAS_ID=$00110000; // alias is a predefined ID */
 SND_FILENAME=$00020000; // name is file name */
 SND_RESOURCE=$00040004; // name is resource name or atom */
 SND_PURGE=$0040;  // purge non-static events for task */
 SND_APPLICATION=$0080;  // look for application specific association */

type
 TPlaySound=function(lpszSound:PChar;hmod:THandle;fdwSound:Cardinal):Boolean;stdcall;

var
 hWinMM:THandle;
 FPlaySound:TPlaySound=nil;

....

function sndPlaySound(lpszSound:PChar):Boolean;
begin
 Result:=False;
 if @FPlaySound<>nil then
   Result:=FPlaySound(lpszSound,0,SND_ASYNC or SND_FILENAME);
end;

initialization

 hWinMM:=LoadLibrary('winmm.dll');
 if hWinMM>0 then begin
   FPlaySound:=GetProcAddress(hWinMM,'PlaySoundA');
 end;

end.


---

Yanis   (2004-04-22 07:51:00) [4]

Нужны мозги :)
И еще модуль MMSystem в Uses и файл c:\Music.wav

---

Наверх