拉撒路循环播放音乐

如何解决拉撒路循环播放音乐

过去几天我一直在开发一个小工具，功能本身很好。 我想让这个工具更好用（至少对我来说），并包含一个声音文件（称为 test.wav），可以播放我最喜欢的歌曲之一。

这个想法是这首歌不断地重复自己，但经过一次后，音乐停止了。这是我的音乐部分代码片段：

procedure TForm1.music();
begin
    PlaySound('test.wav',SND_ASYNC);
end;   

当我将 SND_ASYNC 更改为 SND_LOOP 并开始调试我的项目时，我的 .exe-Windows 没有出现，但音乐播放（也只播放一次）。

也在 project.lpr 中调用程序：

begin
      ...
      Form1.music();
      Application.Run; 

那么如何让音乐不断循环播放？顺便说一句，它不一定是 .wav。

解决方法

PlaySound 函数是（仍然）documented

有趣的设置在第三个参数 fdwSound 中，关于 SND_LOOP：

SND_LOOP 声音重复播放，直到再次调用 PlaySound 并将 pszSound 参数设置为 NULL。如果设置了此标志，您还必须设置 SND_ASYNC 标志。

注意最后一句话。所以正确的调用应该是：

PlaySound('test.wav',SND_ASYNC or SND_LOOP);

要在程序启动时自动激活它，请使用表单 OnCreate() 事件。