MessageBox i dzwiek !!!

0

Mam taki problem.

Chce zeby razem z Message boxem gral moj dziek wav... jak to zrobic ?

0
{ Jak odtworzyć dźwięk WAV

opis uFlags:

SND_ALIAS odgrywa pliki zdefiniowane w systemie np. "EmptyRecycleBin"
SND_ASYNC kontynuuje wykonywanie programu pomimo trwania odgrywania dźwięku
SND_FILENAME odgrywa plik o podanej ścieżce dostępu
SND_NODEFAULT nie odgrywa domyślnego dźwieku, jeżeli wskazany nie został odnaleziony
SND_NOSTOP nie przerywa żadnego aktualnie odgrywanego dźwięku
SND_NOWAIT nie czeka, jeżeli driver dźwięku jest zajęty
SND_SYNC wstrzymuje działanie programu do chwili zakończenia odgrywania dźwięku
}

uses mmsystem;

//
Odgrywanie Z dysku

procedure TForm1.Button1Click(Sender: TObject);
begin
  SndPlaySound('C:\WINDOWS\MEDIA\TADA.WAV', snd_ASync);
end;


// Z zasobów
{$R Gotowe_Resource.res}
{$R Jablko_Resource.res}
{$R Alert_Resource.res}

begin
PlaySound('gotowe', hInstance, SND_RESOURCE or SND_ASYNC);
// lub
PlaySound('alert', hInstance, SND_RESOURCE or SND_ASYNC);
end;



case (Application.MessageBox('You can'+#10+'write'+#10+'many "LINES"','My title',51)) of
  1 :   ; // OK
  2 :  begin
          ShowMessage('Wcisnąłeś ANULUJ'); // Annuler
          PlaySound('alert', hInstance, SND_RESOURCE or SND_ASYNC);
        end;
  3 :   ; // Abandon
  4 :   ; // Reessayer
  5 :   ; // Ignorer
  6 :  begin
          ShowMessage('Wcisnąłeś TAK');
          PlaySound('gotowe', hInstance, SND_RESOURCE or SND_ASYNC);
        end;

  7 :  
       begin
          ShowMessage('Wcisnąłeś NIE');
          PlaySound('jablko', hInstance, SND_RESOURCE or SND_ASYNC);
        end;
end;
0
uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound(test.wav', 0, SND_ASYNC or SND_LOOP);
  MessageBox(0, 'w tle muzyka', 'test', MB_ICONINFORMATION);
end;
0

Jak dajesz SND_LOOP to po zamknięciu MessageBoxa musisz wyłączyć dźwięk dając PlaySound z pierwszym parametrem nil.

0

Dzieki za rady, dziala ok !

1 użytkowników online, w tym zalogowanych: 0, gości: 1