Проблема со звуками в программе

[DKENT]

Здравствуйте, есть проблема.
1 проблема состоит в следующем
Есть фоновый звук программы, есть звук у кнопки, если я нажимаю на кнопку фоновый звук пропадает.

procedure TForm1.FormActivate(Sender: TObject);
begin
PlaySound('create', HInstance, SND_RESOURCE or SND_ASYNC);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
PlaySound('button', HInstance, SND_RESOURCE or SND_ASYNC);
end;

Нужно чтобы при нажатии на Картинку (procedure TForm1.Image2Click) музыка которая играет при открытии формы не прерывалась.

[JekaDefer]

Думаю здесь ты найдешь все что нужно:-)

[DKENT]

Нужно решить проблему без подключения дополнительных модулей!!!

[raxp]

MCISendString() ...uses mmsystem, то бишь использование winmm.dll

[s-andriano]

Боюсь, только высокоуровневыми средствами эту задачу не решить. Кто-то должен микшировать звук. Это можно либо поручить DirectSound, либо делать самому ручками.

[DKENT]

Если можно дайте пример кода)

[JekaDefer]

На пример и исходник)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MMSystem;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TPlayThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
  
var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R MyWave.RES}
procedure TPlayThread.Execute;
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');
    PlaySound(pData, 0, SND_MEMORY or SND_ASYNC or SND_LOOP);
  finally
    FreeResource(hResource);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  PlayThread: TPlayThread;
begin
  PlayThread:=TPlayThread.Create(true);
  PlayThread.FreeOnTerminate:=true;
  PlayThread.Priority:=tpHigher;
  PlayThread.Resume;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Windows.Beep(1000, 100);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  mciSendString('play 1.wav', nil, 0,0);
end;

end.

Да, и без потока тож можно...

procedure TForm1.Button2Click(Sender: TObject);
  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');
    PlaySound(pData, 0, SND_MEMORY or SND_ASYNC or SND_LOOP);
  finally
    FreeResource(hResource);
  end;
end;

[raxp]

...directsound хорош, но не нужно усложнять. Простой пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
 MCISendString(PChar('play ' + 'tuz.wav'),nil,0,0)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 MCISendString(PChar('play ' + 'baz.wav'),nil,0,0)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 MCISendString(PChar('play ' + 'fon.mid'),nil,0,0)
end;

[DKENT]

JekaDefer Создал процедуру по вашему примеру.
Вылетает следующая ошибка
http://s47.radikal.ru/i116/1205/e2/69e1baabbaa7.jpg

В MyWave.rc прописано следующие
MyWave wave 1.wav

Вес файла ресурсов составляет 202кб.

procedure TForm1.FormActivate(Sender: TObject);
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');
    PlaySound(pData, 0, SND_MEMORY or SND_ASYNC or SND_LOOP);
  finally
    FreeResource(hResource);
  end;
end;

Кому не трудно посмотрите исходник!

[JekaDefer]

не знаю чего там у тебя было не так, переделал по новому все заработало... Я вот ток не догнал в чем это ты там программируешь что у тебя EXEшник с одной кнопкой весит аж 8 метров)))