Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

15th
Май

Добавить звук в программу

Posted by Chas under Delphi

добавления wav файла в ресурс программы чтобы при нажимания на кнопку проигровался звук

Человек_Борща
Делаешь RC файл:
«mySound» WAVE «<путь к файлу>»

компилируешь его в res с помощью drcc32.exe и привязываешь к EXE.

Когда надо проиграть его делаешь так:

var

   hFind, hRes: THandle;

   Song: PChar;

 begin

  hFind := FindResource(HInstance, 'mySound', 'WAVE') ;

  if hFind <> 0 then begin

    hRes:=LoadResource(HInstance, hFind) ;

    if hRes <> 0 then begin

      Song:=LockResource(hRes) ;

      if Assigned(Song) then SndPlaySound(Song, snd_ASync or snd_Memory) ;

      UnlockResource(hRes) ;

    end;

    FreeResource(hFind) ;

  end;

 end;

тема на форуме