звуки в делфи

[alman12]

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

Добавь в uses
mmsystem;



пробуй

а как сделать звук не был в отделной папке ?

[Пепел Феникса]

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

а как сделать звук не был в отделной папке ?

указать иной путь.

[alman12]

Сообщение от Пепел Феникса

указать иной путь.

звук был внутри программы

[Пепел Феникса]

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

звук был внутри программы

гуглим про ресурсы и звуки.

[XE5]

Привожу самописный модуль, достаточно удобный для воспроизведения различных встроенных в программу звуков. В архиве pas, который нужно подключить к проекту (читаем как прописать в Uses), и RES со звуками. Редактировать звуки можно программой Restorator. Изучаем, просвещаемся.
Код юнита чтоб посмотреть не скачивая

unit SoundApi;

interface

 uses mmsystem, SysUtils, Dialogs, Windows;

Procedure Play(id: integer);

var
SoundArray: array[1..29] of PChar = ('Start','Exit','Connect', 'Disconnect',
'Error','Event','Mail','Join','Part','Enemy','Adv','Srv','Message','ReJoin',
'ReJoinFail','Kick','Ban','MyKick','MyBan','Prison','Click','Send','Sleep',
'Action','Op','Deop','MyOp','MyDeop','Fanfar');
implementation

{$R sound.RES}

procedure SoundPlay(const S: PChar);
var hRes: THandle;
    pRes: Pointer;
begin
 hRes := LoadResource(HInstance, FindResource(HInstance, S, RT_RCDATA));
  try
   pRes := LockResource(hRes);
   if pRes = nil then Exit;
   PlaySound(pRes, 0, SND_MEMORY or SND_ASYNC);
  finally
   FreeResource(hRes);
  end;
end;

Procedure Play(id: integer);
begin
  SoundPlay(SoundArray[id]);
end;

end.

Пример использования

procedure TForm1.Button1Click(Sender: TObject);
begin
Play(1);
end;

[alman12]

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

Привожу самописный модуль, достаточно удобный для воспроизведения различных встроенных в программу звуков. В архиве pas, который нужно подключить к проекту (читаем как прописать в Uses), и RES со звуками. Редактировать звуки можно программой Restorator. Изучаем, просвещаемся.
Код юнита чтоб посмотреть не скачивая

unit SoundApi;

interface

 uses mmsystem, SysUtils, Dialogs, Windows;

Procedure Play(id: integer);

var
SoundArray: array[1..29] of PChar = ('Start','Exit','Connect', 'Disconnect',
'Error','Event','Mail','Join','Part','Enemy','Adv','Srv','Message','ReJoin',
'ReJoinFail','Kick','Ban','MyKick','MyBan','Prison','Click','Send','Sleep',
'Action','Op','Deop','MyOp','MyDeop','Fanfar');
implementation

{$R sound.RES}

procedure SoundPlay(const S: PChar);
var hRes: THandle;
    pRes: Pointer;
begin
 hRes := LoadResource(HInstance, FindResource(HInstance, S, RT_RCDATA));
  try
   pRes := LockResource(hRes);
   if pRes = nil then Exit;
   PlaySound(pRes, 0, SND_MEMORY or SND_ASYNC);
  finally
   FreeResource(hRes);
  end;
end;

Procedure Play(id: integer);
begin
  SoundPlay(SoundArray[id]);
end;

end.

Пример использования

procedure TForm1.Button1Click(Sender: TObject);
begin
Play(1);
end;

не чего не присходит

[Аватар]

И не произойдет, пока в ресурс не поместишь звукового файла

[alman12]

Сообщение от Аватар

И не произойдет, пока в ресурс не поместишь звукового файла

как поместить ?

[Аватар]

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

как поместить ?

Ну, например, в гугле вводим как добавить файл в ресурсы delphi и видим кучу тем так или иначе с этим связанных. Тщательно изучаем и записываем нужные файлы в ресурс, не засоряя форум дурацкими вопросами

[alman12]

Сообщение от Аватар

Ну, например, в гугле вводим как добавить файл в ресурсы delphi и видим кучу тем так или иначе с этим связанных. Тщательно изучаем и записываем нужные файлы в ресурс, не засоряя форум дурацкими вопросами

здес много дурацские ответы