Es gibt AudioServicesPlaySystemSound, so geht das:
Delphi-Quellcode:
interface
procedure PlaySystemSound(ASoundId : integer);
implementation
uses
MacApi.CoreFoundation, iOSapi.Foundation;
const
libAudioToolbox = '/System/Library/Frameworks/AudioToolbox.framework/AudioToolbox';
kSystemSoundID_vibrate =$FFF;
procedure AudioServicesPlaySystemSound(inSystemSoundID:Integer); cdecl; external libAudioToolbox name _PU + 'AudioServicesPlaySystemSound';
procedure PlaySystemSound(ASoundID : integer);
begin
AudioServicesPlaySystemSound(ASoundID);
end;
Die gewünschten Konstanten-Werte mußt Du Dir aus dem INet zusammensuchen. Einige davon sind auch Gerät-/Plattformabhängig (spezifisch für Mac, iPhone, iPod).
Import des
SDK-FW für die Audiotoolbox nicht vergessen!
Einige IDs findet man u.A.
dort.