Delphi: 在 64 位 exe 中播放 mp3

Delphi: playing mp3 in 64-bit exe

针对 Windows7+ 系统,从我的 Delphi (10.2 Tokyo) 64 位编译应用程序播放 MP3 的简单方法是什么?我一直在 32 位上使用 DSPack,但在 64 位上它无法编译。看过 BASS,但它也不适用于 64 位。

最好直接与 Windows API 一起工作,而不是在应用程序中包含外部 dll。

一种简单的方法是使用 mciSendString

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