![]() |
|
|
Регистрация | << Правила форума >> | 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
|
||||
|
||||
![]() Получился спасибо огромное!
|