![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
У меня Code Gear Delphi 2009 - в ехешник добавил WAV файл через
Project -> Resources... Проверил ехе-шник внутри в разделе RCData есть звуковой файл RESOURCE_1 но оно не проигрываеться ни как - ощибок тож не выдает - в чем трабла??? PlaySound('RESOURCE_1', hInstance, SND_RESOURCE or SND_SYNC); помогите пожалуста... |
|
#2
|
||||
|
||||
|
а про LoadResource ты не забыл?
|
|
#3
|
||||
|
||||
|
Аха пробовал тож не помогло
Код:
procedure RetrieveMyWave;
var
hResource: THandle;
pData: Pointer;
begin
hResource:=LoadResource( hInstance, FindResource(hInstance, 'RESOURCE_1', RT_RCDATA));
try
pData := LockResource(hResource);
if pData = nil then
raise Exception.Create('Cannot read RESOURCE_1');
PlaySound('RESOURCE_1', hInstance, SND_RESOURCE or SND_SYNC);
finally
FreeResource(hResource);
end;
end; |
|
#4
|
||||
|
||||
|
Получился спасибо огромное!
|