Показать сообщение отдельно
  #2  
Старый 03.09.2006, 22:25
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 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;
Ответить с цитированием