Mam taki problem.
Chce zeby razem z Message boxem gral moj dziek wav... jak to zrobic ?
Mam taki problem.
Chce zeby razem z Message boxem gral moj dziek wav... jak to zrobic ?
{ 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;
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;
Jak dajesz SND_LOOP to po zamknięciu MessageBoxa musisz wyłączyć dźwięk dając PlaySound z pierwszym parametrem nil.
Dzieki za rady, dziala ok !