SystemSound.pas 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507
  1. {
  2. File: OSServices/SystemSoundPriv.h
  3. Contains: *** DEPRECATED *** SystemSound include file
  4. Copyright: (c) 2000-2011 Apple Inc. All rights reserved.
  5. Bugs?: For bug reports, consult the following page on
  6. the World Wide Web:
  7. http://bugs.freepascal.org
  8. }
  9. { Pascal Translation: Peter N Lewis, <[email protected]>, 2005 }
  10. { Pascal Translation Updated: Jonas Maebe, <[email protected]>, October 2009 }
  11. { Pascal Translation Updated: Jonas Maebe <[email protected]>, September 2012 }
  12. {
  13. Modified for use with Free Pascal
  14. Version 308
  15. Please report any bugs to <[email protected]>
  16. }
  17. {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
  18. {$mode macpas}
  19. {$packenum 1}
  20. {$macro on}
  21. {$inline on}
  22. {$calling mwpascal}
  23. unit SystemSound;
  24. interface
  25. {$setc UNIVERSAL_INTERFACES_VERSION := $0400}
  26. {$setc GAP_INTERFACES_VERSION := $0308}
  27. {$ifc not defined USE_CFSTR_CONSTANT_MACROS}
  28. {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
  29. {$endc}
  30. {$ifc defined CPUPOWERPC and defined CPUI386}
  31. {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
  32. {$endc}
  33. {$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
  34. {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
  35. {$endc}
  36. {$ifc not defined __ppc__ and defined CPUPOWERPC32}
  37. {$setc __ppc__ := 1}
  38. {$elsec}
  39. {$setc __ppc__ := 0}
  40. {$endc}
  41. {$ifc not defined __ppc64__ and defined CPUPOWERPC64}
  42. {$setc __ppc64__ := 1}
  43. {$elsec}
  44. {$setc __ppc64__ := 0}
  45. {$endc}
  46. {$ifc not defined __i386__ and defined CPUI386}
  47. {$setc __i386__ := 1}
  48. {$elsec}
  49. {$setc __i386__ := 0}
  50. {$endc}
  51. {$ifc not defined __x86_64__ and defined CPUX86_64}
  52. {$setc __x86_64__ := 1}
  53. {$elsec}
  54. {$setc __x86_64__ := 0}
  55. {$endc}
  56. {$ifc not defined __arm__ and defined CPUARM}
  57. {$setc __arm__ := 1}
  58. {$elsec}
  59. {$setc __arm__ := 0}
  60. {$endc}
  61. {$ifc not defined __arm64__ and defined CPUAARCH64}
  62. {$setc __arm64__ := 1}
  63. {$elsec}
  64. {$setc __arm64__ := 0}
  65. {$endc}
  66. {$ifc defined cpu64}
  67. {$setc __LP64__ := 1}
  68. {$elsec}
  69. {$setc __LP64__ := 0}
  70. {$endc}
  71. {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
  72. {$error Conflicting definitions for __ppc__ and __i386__}
  73. {$endc}
  74. {$ifc defined __ppc__ and __ppc__}
  75. {$setc TARGET_CPU_PPC := TRUE}
  76. {$setc TARGET_CPU_PPC64 := FALSE}
  77. {$setc TARGET_CPU_X86 := FALSE}
  78. {$setc TARGET_CPU_X86_64 := FALSE}
  79. {$setc TARGET_CPU_ARM := FALSE}
  80. {$setc TARGET_CPU_ARM64 := FALSE}
  81. {$setc TARGET_OS_MAC := TRUE}
  82. {$setc TARGET_OS_IPHONE := FALSE}
  83. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  84. {$setc TARGET_OS_EMBEDDED := FALSE}
  85. {$elifc defined __ppc64__ and __ppc64__}
  86. {$setc TARGET_CPU_PPC := FALSE}
  87. {$setc TARGET_CPU_PPC64 := TRUE}
  88. {$setc TARGET_CPU_X86 := FALSE}
  89. {$setc TARGET_CPU_X86_64 := FALSE}
  90. {$setc TARGET_CPU_ARM := FALSE}
  91. {$setc TARGET_CPU_ARM64 := FALSE}
  92. {$setc TARGET_OS_MAC := TRUE}
  93. {$setc TARGET_OS_IPHONE := FALSE}
  94. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  95. {$setc TARGET_OS_EMBEDDED := FALSE}
  96. {$elifc defined __i386__ and __i386__}
  97. {$setc TARGET_CPU_PPC := FALSE}
  98. {$setc TARGET_CPU_PPC64 := FALSE}
  99. {$setc TARGET_CPU_X86 := TRUE}
  100. {$setc TARGET_CPU_X86_64 := FALSE}
  101. {$setc TARGET_CPU_ARM := FALSE}
  102. {$setc TARGET_CPU_ARM64 := FALSE}
  103. {$ifc defined(iphonesim)}
  104. {$setc TARGET_OS_MAC := FALSE}
  105. {$setc TARGET_OS_IPHONE := TRUE}
  106. {$setc TARGET_IPHONE_SIMULATOR := TRUE}
  107. {$elsec}
  108. {$setc TARGET_OS_MAC := TRUE}
  109. {$setc TARGET_OS_IPHONE := FALSE}
  110. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  111. {$endc}
  112. {$setc TARGET_OS_EMBEDDED := FALSE}
  113. {$elifc defined __x86_64__ and __x86_64__}
  114. {$setc TARGET_CPU_PPC := FALSE}
  115. {$setc TARGET_CPU_PPC64 := FALSE}
  116. {$setc TARGET_CPU_X86 := FALSE}
  117. {$setc TARGET_CPU_X86_64 := TRUE}
  118. {$setc TARGET_CPU_ARM := FALSE}
  119. {$setc TARGET_CPU_ARM64 := FALSE}
  120. {$ifc defined(iphonesim)}
  121. {$setc TARGET_OS_MAC := FALSE}
  122. {$setc TARGET_OS_IPHONE := TRUE}
  123. {$setc TARGET_IPHONE_SIMULATOR := TRUE}
  124. {$elsec}
  125. {$setc TARGET_OS_MAC := TRUE}
  126. {$setc TARGET_OS_IPHONE := FALSE}
  127. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  128. {$endc}
  129. {$setc TARGET_OS_EMBEDDED := FALSE}
  130. {$elifc defined __arm__ and __arm__}
  131. {$setc TARGET_CPU_PPC := FALSE}
  132. {$setc TARGET_CPU_PPC64 := FALSE}
  133. {$setc TARGET_CPU_X86 := FALSE}
  134. {$setc TARGET_CPU_X86_64 := FALSE}
  135. {$setc TARGET_CPU_ARM := TRUE}
  136. {$setc TARGET_CPU_ARM64 := FALSE}
  137. { will require compiler define when/if other Apple devices with ARM cpus ship }
  138. {$setc TARGET_OS_MAC := FALSE}
  139. {$setc TARGET_OS_IPHONE := TRUE}
  140. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  141. {$setc TARGET_OS_EMBEDDED := TRUE}
  142. {$elifc defined __arm64__ and __arm64__}
  143. {$setc TARGET_CPU_PPC := FALSE}
  144. {$setc TARGET_CPU_PPC64 := FALSE}
  145. {$setc TARGET_CPU_X86 := FALSE}
  146. {$setc TARGET_CPU_X86_64 := FALSE}
  147. {$setc TARGET_CPU_ARM := FALSE}
  148. {$setc TARGET_CPU_ARM64 := TRUE}
  149. { will require compiler define when/if other Apple devices with ARM cpus ship }
  150. {$setc TARGET_OS_MAC := FALSE}
  151. {$setc TARGET_OS_IPHONE := TRUE}
  152. {$setc TARGET_IPHONE_SIMULATOR := FALSE}
  153. {$setc TARGET_OS_EMBEDDED := TRUE}
  154. {$elsec}
  155. {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ nor __arm64__ is defined.}
  156. {$endc}
  157. {$ifc defined __LP64__ and __LP64__ }
  158. {$setc TARGET_CPU_64 := TRUE}
  159. {$elsec}
  160. {$setc TARGET_CPU_64 := FALSE}
  161. {$endc}
  162. {$ifc defined FPC_BIG_ENDIAN}
  163. {$setc TARGET_RT_BIG_ENDIAN := TRUE}
  164. {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
  165. {$elifc defined FPC_LITTLE_ENDIAN}
  166. {$setc TARGET_RT_BIG_ENDIAN := FALSE}
  167. {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
  168. {$elsec}
  169. {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
  170. {$endc}
  171. {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
  172. {$setc CALL_NOT_IN_CARBON := FALSE}
  173. {$setc OLDROUTINENAMES := FALSE}
  174. {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
  175. {$setc OPAQUE_UPP_TYPES := TRUE}
  176. {$setc OTCARBONAPPLICATION := TRUE}
  177. {$setc OTKERNEL := FALSE}
  178. {$setc PM_USE_SESSION_APIS := TRUE}
  179. {$setc TARGET_API_MAC_CARBON := TRUE}
  180. {$setc TARGET_API_MAC_OS8 := FALSE}
  181. {$setc TARGET_API_MAC_OSX := TRUE}
  182. {$setc TARGET_CARBON := TRUE}
  183. {$setc TARGET_CPU_68K := FALSE}
  184. {$setc TARGET_CPU_MIPS := FALSE}
  185. {$setc TARGET_CPU_SPARC := FALSE}
  186. {$setc TARGET_OS_UNIX := FALSE}
  187. {$setc TARGET_OS_WIN32 := FALSE}
  188. {$setc TARGET_RT_MAC_68881 := FALSE}
  189. {$setc TARGET_RT_MAC_CFM := FALSE}
  190. {$setc TARGET_RT_MAC_MACHO := TRUE}
  191. {$setc TYPED_FUNCTION_POINTERS := TRUE}
  192. {$setc TYPE_BOOL := FALSE}
  193. {$setc TYPE_EXTENDED := FALSE}
  194. {$setc TYPE_LONGLONG := TRUE}
  195. uses MacTypes,Files,CFBase,CFRunLoop;
  196. {$endc} {not MACOSALLINCLUDE}
  197. {$ifc TARGET_OS_MAC}
  198. {$ALIGN POWER}
  199. { ================================================================================ }
  200. { Errors }
  201. { ================================================================================ }
  202. const
  203. kSystemSoundNoError = 0;
  204. kSystemSoundUnspecifiedError = -1500;
  205. kSystemSoundClientTimedOutError = -1501;
  206. { ================================================================================ }
  207. { Types }
  208. { ================================================================================ }
  209. type
  210. SystemSoundActionID = UInt32;
  211. SystemSoundCompletionProcPtr = function( actionID: SystemSoundActionID; userData: UnivPtr ): OSStatus;
  212. type
  213. SystemSoundCompletionUPP = SystemSoundCompletionProcPtr;
  214. {
  215. * NewSystemSoundCompletionUPP() *** DEPRECATED ***
  216. *
  217. * Availability:
  218. * Mac OS X: in version 10.3 and later in CoreServices.framework [32-bit only] but deprecated in 10.5
  219. * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.3 and later
  220. * Non-Carbon CFM: available as macro/inline
  221. }
  222. function NewSystemSoundCompletionUPP( userRoutine: SystemSoundCompletionProcPtr ): SystemSoundCompletionUPP; external name '_NewSystemSoundCompletionUPP';
  223. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_3,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  224. {
  225. * DisposeSystemSoundCompletionUPP() *** DEPRECATED ***
  226. *
  227. * Availability:
  228. * Mac OS X: in version 10.3 and later in CoreServices.framework [32-bit only] but deprecated in 10.5
  229. * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.3 and later
  230. * Non-Carbon CFM: available as macro/inline
  231. }
  232. procedure DisposeSystemSoundCompletionUPP( userUPP: SystemSoundCompletionUPP ); external name '_DisposeSystemSoundCompletionUPP';
  233. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_3,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  234. {
  235. * InvokeSystemSoundCompletionUPP() *** DEPRECATED ***
  236. *
  237. * Availability:
  238. * Mac OS X: in version 10.3 and later in CoreServices.framework [32-bit only] but deprecated in 10.5
  239. * CarbonLib: not available in CarbonLib 1.x, is available on Mac OS X version 10.3 and later
  240. * Non-Carbon CFM: available as macro/inline
  241. }
  242. function InvokeSystemSoundCompletionUPP( actionID: SystemSoundActionID; userData: UnivPtr; userUPP: SystemSoundCompletionUPP ): OSStatus; external name '_InvokeSystemSoundCompletionUPP';
  243. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_3,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  244. { ================================================================================ }
  245. { Public APIs }
  246. { ================================================================================ }
  247. {
  248. * AlertSoundPlay() *** DEPRECATED ***
  249. *
  250. * Deprecated:
  251. * Use AudioServicesPlayAlertSound(). Found in
  252. * <AudioToolbox/AudioServices.h>
  253. *
  254. * Summary:
  255. * Play an Alert Sound
  256. *
  257. * Discussion:
  258. * Play the user's current alert sound, interrupting any previously
  259. * playing alert sound.
  260. *
  261. * Availability:
  262. * Mac OS X: in version 10.2 and later in CoreServices.framework but deprecated in 10.5
  263. * CarbonLib: not available in CarbonLib 1.x
  264. * Non-Carbon CFM: not available
  265. }
  266. procedure AlertSoundPlay; external name '_AlertSoundPlay';
  267. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_2,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  268. {
  269. * AlertSoundPlayCustomSound() *** DEPRECATED ***
  270. *
  271. * Deprecated:
  272. * Use AudioServicesPlayAlertSound(). Found in
  273. * <AudioToolbox/AudioServices.h>
  274. *
  275. * Summary:
  276. * Play a User designated Alert Sound
  277. *
  278. * Discussion:
  279. * Play a sound, designated by a SystemSoundActionID, with the
  280. * behavior of AlertSoundPlay().
  281. *
  282. * Parameters:
  283. *
  284. * inAction:
  285. * A SystemSoundActionID indicating the desired Sound to be played
  286. * with AlertSound behavior.
  287. *
  288. * Availability:
  289. * Mac OS X: in version 10.3 and later in CoreServices.framework but deprecated in 10.5
  290. * CarbonLib: not available in CarbonLib 1.x
  291. * Non-Carbon CFM: not available
  292. }
  293. procedure AlertSoundPlayCustomSound( inAction: SystemSoundActionID ); external name '_AlertSoundPlayCustomSound';
  294. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_3,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  295. {
  296. * SystemSoundPlay() *** DEPRECATED ***
  297. *
  298. * Deprecated:
  299. * Use AudioServicesPlaySystemSound(). Found in
  300. * <AudioToolbox/AudioServices.h>
  301. *
  302. * Summary:
  303. * Play a System Sound
  304. *
  305. * Discussion:
  306. * Immediately play the sound designated by actionID. Use for one
  307. * time actions that do not require a duration or modification
  308. * during playback. Sustain loops in the sound will be ignored.
  309. *
  310. * Parameters:
  311. *
  312. * inAction:
  313. * A SystemSoundActionID indicating the desired System Sound to be
  314. * played.
  315. *
  316. * Availability:
  317. * Mac OS X: in version 10.2 and later in CoreServices.framework but deprecated in 10.5
  318. * CarbonLib: not available in CarbonLib 1.x
  319. * Non-Carbon CFM: not available
  320. }
  321. procedure SystemSoundPlay( inAction: SystemSoundActionID ); external name '_SystemSoundPlay';
  322. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_2,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  323. {
  324. * SystemSoundGetActionID() *** DEPRECATED ***
  325. *
  326. * Deprecated:
  327. * Use AudioServicesCreateSystemSoundID(). Found in
  328. * <AudioToolbox/AudioServices.h>
  329. *
  330. * Summary:
  331. * Create a 'custom' System Sound by providing an audio file.
  332. *
  333. * Discussion:
  334. * If the user wants to add a sound that can be played via
  335. * SystemSoundPlay(), an FSRef for an audio file can be passed and a
  336. * SystemSoundActionID, which can be passed to SystemSoundPlay() or
  337. * AlertSoundPlayCustomSound(), will be returned. It is important
  338. * that SystemSoundRemoveActionID() be called when the action is no
  339. * longer needed by the client application so the System Sound
  340. * Server can release any resources dedicated to the returned action
  341. * id.
  342. *
  343. * Parameters:
  344. *
  345. * userFile:
  346. * An const FSRef * for the audio file to be used as a System
  347. * Sound. Any audio file supported by the AudioFile APIs in the
  348. * AudioToolbox framework may be used.
  349. *
  350. * outAction:
  351. * If successful, a SystemSoundActionID will be returned, which in
  352. * turn can be passed to SystemSoundPlay().
  353. *
  354. * Availability:
  355. * Mac OS X: in version 10.2 and later in CoreServices.framework but deprecated in 10.5
  356. * CarbonLib: not available in CarbonLib 1.x
  357. * Non-Carbon CFM: not available
  358. }
  359. function SystemSoundGetActionID( const (*var*) userFile: FSRef; var outAction: SystemSoundActionID ): OSStatus; external name '_SystemSoundGetActionID';
  360. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_2,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  361. {
  362. * SystemSoundRemoveActionID() *** DEPRECATED ***
  363. *
  364. * Deprecated:
  365. * Use AudioServicesDisposeSystemSoundID(). Found in
  366. * <AudioToolbox/AudioServices.h>
  367. *
  368. * Summary:
  369. * Remove a 'custom' System Sound.
  370. *
  371. * Discussion:
  372. * If the user no longer needs to use the custom system sound that
  373. * was created via SystemSoundGetActionID, this function should be
  374. * called so the SystemSoundServer can release resources that are no
  375. * longer needed.
  376. *
  377. * Parameters:
  378. *
  379. * inAction:
  380. * A SystemSoundActionID indicating the desired System Sound to be
  381. * removed.
  382. *
  383. * Availability:
  384. * Mac OS X: in version 10.2 and later in CoreServices.framework but deprecated in 10.5
  385. * CarbonLib: not available in CarbonLib 1.x
  386. * Non-Carbon CFM: not available
  387. }
  388. function SystemSoundRemoveActionID( inAction: SystemSoundActionID ): OSStatus; external name '_SystemSoundRemoveActionID';
  389. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_2,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  390. {
  391. * SystemSoundSetCompletionRoutine() *** DEPRECATED ***
  392. *
  393. * Deprecated:
  394. * Use AudioServicesAddSystemSoundCompletion(). Found in
  395. * <AudioToolbox/AudioServices.h>
  396. *
  397. * Summary:
  398. * Call the provided Completion Routine when the provided
  399. * SystemSoundActionID finishes playing in the server.
  400. *
  401. * Discussion:
  402. * Once set, the System Sound Server will send a message to the
  403. * System Sound Client indicating which SystemSoundActionID has
  404. * finished playing.
  405. *
  406. * Parameters:
  407. *
  408. * inAction:
  409. * The SystemSoundActionID that the completion routine will be
  410. * associated with.
  411. *
  412. * inRunLoop:
  413. * A CFRunLoopRef indicating the desired run loop the completion
  414. * routine should be run on. Pass NULL for the main run loop.
  415. *
  416. * inRunLoopMode:
  417. * A CFStringRef indicating the run loop mode for the runloop mode
  418. * for the runloop where the completion routine will be executed.
  419. * Pass NULL to use kCFRunLoopDefaultMode.
  420. *
  421. * inCompletionRoutine:
  422. * A SystemSoundCompletionProc for the completion routine proc to
  423. * be called when the provided SystemSoundActionID has completed
  424. * playing in the server.
  425. *
  426. * inUserData:
  427. * A void * to pass user data to the completion routine.
  428. *
  429. * Availability:
  430. * Mac OS X: in version 10.3 and later in CoreServices.framework but deprecated in 10.5
  431. * CarbonLib: not available in CarbonLib 1.x
  432. * Non-Carbon CFM: not available
  433. }
  434. function SystemSoundSetCompletionRoutine( inAction: SystemSoundActionID; inRunLoop: CFRunLoopRef; inRunLoopMode: CFStringRef; inCompletionRoutine: SystemSoundCompletionUPP; inUserData: UnivPtr ): OSStatus; external name '_SystemSoundSetCompletionRoutine';
  435. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_3,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  436. {
  437. * SystemSoundRemoveCompletionRoutine() *** DEPRECATED ***
  438. *
  439. * Deprecated:
  440. * Use AudioServicesRemoveSystemSoundCompletion(). Found in
  441. * <AudioToolbox/AudioServices.h>
  442. *
  443. * Summary:
  444. * Remove the Completion Routine being used for the provided
  445. * SystemSoundActionID.
  446. *
  447. * Discussion:
  448. * To be called when it is no longer desired for the Completion
  449. * Routine to be called when a System Sound action has finished
  450. * playing.
  451. *
  452. * Parameters:
  453. *
  454. * inAction:
  455. * A SystemSoundActionID that currently has an associated
  456. * completion routine.
  457. *
  458. * Availability:
  459. * Mac OS X: in version 10.3 and later in CoreServices.framework but deprecated in 10.5
  460. * CarbonLib: not available in CarbonLib 1.x
  461. * Non-Carbon CFM: not available
  462. }
  463. procedure SystemSoundRemoveCompletionRoutine( inAction: SystemSoundActionID ); external name '_SystemSoundRemoveCompletionRoutine';
  464. (* __OSX_AVAILABLE_BUT_DEPRECATED(__MAC_10_3,__MAC_10_5,__IPHONE_NA,__IPHONE_NA) *)
  465. {$endc} {TARGET_OS_MAC}
  466. {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
  467. end.
  468. {$endc} {not MACOSALLINCLUDE}