Нажатия клавиши и звук

Previous  Top  Next

    
 

 

Code:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

PlaySound('wmpaud7.wav', 0, SND_NOSTOP + SND_ASYNC);

end;

 

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

PlaySound(nil, 0, 0);

end;

 
Автор: Smike

Взято из http://forum.sources.ru

©Drkb::03620