Denne artikkelen viser hvordan du åpner /lukker CD-skuffen i Delphi.uses MMSystem, prosedyre TForm1.OpenCdTray (AOpen: Boolean); konst DoPlay: array [boolsk] av String = ( 'Sett cdaudio døren lukket vente' , 'Set cdaudio døren åpen vente'); Var MyError: LongInt; MyErrorString: array [0..MAXERRORLENGTH - 1] av røye, begynner MyError: = mciSendString (pChar (DoPlay [AOpen]), null, 0, 0); hvis MyError < > 0 da begynne MciGetErrorString (MyError, MyErrorString, MAXERRORLENGTH - 1); Showmessage (MyErrorString); Gå; end, end,