[delpi12]

как сделать звуки в программе при нажатие на кнопку ? но звук был внутри программы не была в отделной папке ?

[angvelem]

Добавить WAV-файл(ы) в ресурсный файл.

Код:

PlaySound(PChar(Имя в ресурсном файле), hInstance, SND_RESOURCE or SND_MEMORY or SND_ASYNC);

Не забыть подключить MMSystem в uses.

[delpi12]

Сообщение от angvelem

Добавить WAV-файл(ы) в ресурсный файл.

Код:

PlaySound(PChar(Имя в ресурсном файле), hInstance, SND_RESOURCE or SND_MEMORY or SND_ASYNC);

Не забыть подключить MMSystem в uses.

не звучит нечего ?

[lmikle]

А файл в ресурс добавил?

[delpi12]

Сообщение от lmikle

А файл в ресурс добавил?

нет как добавить ?

[poli-smen]

Сообщение от delpi12

нет как добавить ?

Сообщение от SEREGA_AP55

СКАЖИТЕ ПОЖАЛУСТА КАК СОЗДАТЬ МУЗ ФАИЛ РЕСУРСА

Сначала создаёшь текстовый документ (но с расширением .rc) и в нём добавляешь примерно такие строки:

Музычка1 WAVE "C:\WINDOWS\Media\tada.wav"

Т.е. для каждого музыкального файла новая строка в этом файле.
Теперь добавь этот текстовый rc-файл к себе в проект: Меню -> Project -> Add to Project -> ... Открыть
И после компиляции проекта вот так должно зазвучать:

Код:

uses
  ....., MMSystem;
.....
procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound('Музычка1', HInstance, SND_RESOURCE or SND_MEMORY or SND_ASYNC);
end;

[SEREGA_AP55]

СКАЖИТЕ ПОЖАЛУСТА КАК СОЗДАТЬ МУЗ ФАИЛ РЕСУРСА