Delphi：在64位exe中播放mp3

Question

针对Windows7 +系统，从64位编译的Delphi（10.2东京）应用程序中播放MP3的简单方法是什么？我一直在使用32位的DSPack，但在64位它不会编译。看看BASS，但它也不能用于64位。

最好直接使用Windows API，而不是在应用程序中包含外部dll。

Answer 1

一种简单的方法是使用mciSendString。

uses
  Winapi.MMSystem;
....
mciSendString('open audiofile.mp3 type mpegvideo alias song1', nil, 0, 0);
mciSendString('play song1', nil, 0, 0);