Текущий архив: 2008.01.27;
Скачать: CL | DM;
Вниз
подключения ресурсного файла Найти похожие ветки
← →
Mister (2007-12-31 09:43) [0]Подскажите пожалуйста как задействовать содержимое ресурсного файла в нем содержится звук.
проблема такая нужно чтоб при нажатии кнопки TMediaPlayer проигрывал звук из ресурсного файла
← →
Mister (2007-12-31 09:49) [1]прошу прощения не туда отправил если можно перевести в раздел начинающим а если нет то уж объясните пожалуйста.
← →
savyhinst © (2008-01-01 12:37) [2]
> задействовать содержимое ресурсного файла в нем содержится
> звук...
{$R res.res}
...
var WaveHandle : THandle;
WavePointer : pointer;
...
WaveHandle := FindResource(hInstance,"MY_SOUND",RT_RCDATA);
if WaveHandle<>0 then begin
WaveHandle:= LoadResource(hInstance,WaveHandle);
if WaveHandle<>0 then begin
WavePointer := LockResource(WaveHandle);
//тут с этим что-то творится
UnlockResource(WaveHandle);
FreeResource(WaveHandle);
end;
end;
← →
ага (2008-01-03 12:26) [3]
if 0 <> FindResource(hInstance, "MYWAVE", "Wave")
then PlaySound("mywave", hInstance, SND_RESOURCE or SND_ASYNC);
Вместо hInstance можно использовать значения от getModuleHandle or LoadLibrary
Страницы: 1 вся ветка
Текущий архив: 2008.01.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
