Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

как проиграть *.wav без использования компонентов(MediaPlayer). [D6, Win95/98, WinME, NT4, Win2k]

michael_B © (2002-01-11 18:31:00)
как проиграть *.wav без использования компонентов(MediaPlayer).

copyr25 (2002-01-22 07:04:00) [1]
...
uses mmsystem;
...
{$R FILE.RES}
// S1 WAV NAME1.WAV
// S2 WAV NAME2.WAV
procedure play(name : pchar);
var
h: THandle;
p: pointer;
begin
h := FindResource(hInstance,name,"WAV");
h := LoadResource(hInstance, h);
p := LockResource(h);
sndPlaySound(p,SND_MEMORY or SND_SYNC);
UnLockResource(h);
FreeResource(h);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
play("S1");
end;

Наверх

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