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

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

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.