Как позвонить в NSBeep из Delphi

Я ищу замену MessageBeep на OS X. Кажется, что правильная функция для вызова будет NSBeep, но она не поддерживается XE2 RTL.

Как я могу вызвать NSBeep из приложения Delphi?

Ответы

Ответ 1

Это просто простая функция C:

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