macos - 如何从Delphi调用NSBeep

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

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

最佳答案

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

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