Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

Как добавить в исполняемый файл WAV-файл и затем проиграть этот звук



// В файл MyWave.rc пишешь:
// MyWave RCDATA LOADONCALL MyWave.wav
// Затем компилируешь
// brcc32.exe MyWave.rc, получаешь MyWave.res.
// В своей программе пишешь:
// {$R MyWave.res}
// или используешь программу для работы с ресурсами
// ( н-р Borland Resource WorkShop) для получения res файла

procedure RetrieveMyWave;
var
  hResource: THandle;
  pData: Pointer;
begin
  hResource:=LoadResource( hInstance, FindResource(hInstance, 'MyWave', RT_RCDATA));
  try
    pData := LockResource(hResource);
    if pData = nil then
      raise Exception.Create('Cannot read MyWave');

    // Здесь pData указывает на MyWave
    // Теперь можно, например, проиграть его (Win32):
    PlaySound('MyWave', 0, SND_MEMORY);

  finally
    FreeResource(hResource);
  end;
end;

           


Компьютерная помощь шоссе Энтузиастов выгодно. Надежно компьютерная помощь на шоссе энтузиастов. . Naumen Service Desk: problem management. Управление проблемами по ITIL. . Какие окна лучше? Сравни - окна калуга. Объявления о продаже квартир. . минвата цена .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011