如何从 Delphi 调用 NSBeep

Question

我正在寻找 OS X 上的 MessageBeep 替代品。似乎要调用的正确函数是 NSBeep，但 XE2 RTL 不支持它。

如何从 Delphi 应用程序调用 NSBeep？

Answer 1

这只是一个普通的 C 函数：

procedure NSBeep; cdecl;
  external '/System/Library/Frameworks/AppKit.framework/AppKit' name '_NSBeep';