Res i wav
Уважаемые посетители форума,подскажите пожалуйста как проигратъ wav файл из *.res,заранее всем спасибо...
Файл ресурсов:
file.rc
Он компилируется в file.res через brcc32.exe
Исходник:
main.pas
file.rc
Код:
WAV RCDATA "sound.wav"
Он компилируется в file.res через brcc32.exe
Исходник:
main.pas
Код:
implementation
{$R *.dfm}
{$R file.res}
procedure TForm1.PlaySound();
var
h : THandle;
p : Pointer;
begin
h := FindResource(HInstance,'WAV',RT_RCDATA);
h := LoadResource(HInstance,h);
p := LockResource(h);
sndPlaySound(p,snd_MEMORY or SND_ASYNC);
UnlockResource(h);
FreeResource(h);
end;
{$R *.dfm}
{$R file.res}
procedure TForm1.PlaySound();
var
h : THandle;
p : Pointer;
begin
h := FindResource(HInstance,'WAV',RT_RCDATA);
h := LoadResource(HInstance,h);
p := LockResource(h);
sndPlaySound(p,snd_MEMORY or SND_ASYNC);
UnlockResource(h);
FreeResource(h);
end;