Показать сообщение отдельно
  #2  
Старый 07.05.2009, 06:36
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Да, можно.
Цитата:
Сначала делаешь файл SOUND.RC, в нем строка вида: MY_WAV RCDATA TEST.WAV
Компилишь чем-нибyдь в *.RES

Далее в тексте:

Код:
 
{$R полное_имя_файла_с_ресурсом}

var WaveHandle: THandle;
WavePointer: pointer;
...
   WaveHandle := FindResource(hInstance, 'MY_WAV', RT_RCDATA);
if WaveHandle <> 0 then
   begin
     WaveHandle := LoadResource(hInstance, WaveHandle);
     if WaveHandle <> 0 then
       begin;
         WavePointer := LockResource(WaveHandle);
         PlayResourceWave := sndPlaySound(WavePointer, snd_Memory or
           SND_ASYNC);
         UnlockResource(WaveHandle);
         FreeResource(WaveHandle);
       end;
   end;

©Drkb::03597
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием