delphi - sndPlaySound 或 PlaySound on KeyPress - 播放键盘声音

Question

我正在尝试制作一个程序，在 TEdit 中每次按键时播放声音文件。

我在 Edit1 KeyPress 事件上尝试从资源文件中使用 sndPlaySound，但问题是它并不像真正的键盘打字那样播放声音。每次按下按键之间声音播放都会有延迟。

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
sndPlaySound(PCHAR('KeyPress'), SND_RESOURCE OR SND_ASYNC);
end;

此代码确实会播放声音，但如果您快速键入，只有在键入的最后一个键上您才会听到正在播放的声音文件。

Answer 1

您可以使用 WAVEOUT 接口(interface)，但我相信这种延迟是代码中必须纠正的一些细节。尝试使用参数SND_FILENAME。

该 API 适合您想要执行的操作。