
03.09.2006, 22:25
|
 |
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Цитата:
И как мне его использовать
|
Примерно так:
Код:
procedure RetrieveWave;
var
WaveHandle: THandle;
WavePointer: Pointer;
begin
WaveHandle := FindResource( hInstance, 'имя_ресурса', RT_RCDATA );
if WaveHandle <> 0 then
begin
WaveHandle := LoadResource( hInstance, WaveHandle );
if WaveHandle <> 0 then
begin
WavePointer := LockResource( WaveHandle );
sndPlaySound( WavePointer, SND_MEMORY or SND_ASYNC );
UnlockResource( WaveHandle );
FreeResource( WaveHandle );
end;
end;
end;
|