Воспроизведение звука по нажатии кнопки на клавиатуре

[zAxstor]

Народ, мне нужно сделать так, что бы при нажатии на любую кнопку на клавиатуре воспризводился звук. Помогите плиз, может кто код даст?

[_SERGEYX_]

Код очень сложный.
Beep; //При событии OnKeyDown

[zAxstor]

Сообщение от _SERGEYX_

Код очень сложный.
Beep; //При событии OnKeyDown

Но мне нужно что бы воспроизводился мой звук...

[dmitriegorovih]

MediaPlayer1.Play; //При событии OnKeyDown

[zAxstor]

Сообщение от dmitriegorovih

MediaPlayer1.Play; //При событии OnKeyDown

Ы, действительно) Чето я туплю) Спс.

[dmitriegorovih]

можно и через bass.dll для лучшего отображения звука будет примерно вот так

 

procedure PlayStrem (Name: string); //Name- имя файла
begin
f := PChar(Name);

r:= BASS_StreamCreateFile(FALSE, f, 0, 0, BASS_MP3_SETPOS);

IF r<>0 then BASS_StreamPlay(r, FALSE, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PlayStrem (sFilenameEdit1.Text);
end;

[raxp]

mcisendstring().

[SERG1980]

1.звуки то какие? wave mp3.... Для wave хватит и ф-ии SndPlaySound
2. Подразумевается что ваша программа активна или в фоне, если активна то обрабатывайте событие OnKeyDown формы если в фоне то хук на клаву