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