如何从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';