Delphi XE6火猴TMediaPlayer -声音播放延迟

Question

我只是想在点击按钮时播放音频文件。我做了简单的代码，当我点击按钮时，声音出现在大约1秒的延迟，我想立即听到它，有什么建议吗？

   procedure TForm1.btnSound(Sender: TObject);
   begin
       S:='C:\click.wav';
       mediaplayer1.FileName:=S;
       mediaplayer1.play;
  end;

Answer 1

对于简短的声音，请使用本机平台API：

uses
 MMSystem;

function playsound(filename: string);
begin
 sndPlaySound(Pchar(filename), SND_NODEFAULT Or SND_ASYNC);
end;

如果你也想要其他平台的代码，有一个库可以做这个here。