macos - 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';