Ouvrir / fermer le lecteur de cd-rom

Ouvrir / fermer le lecteur de cd-rom

Ouvrir / fermer le lecteur de cd-rom : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet article explique comment ouvrir / fermer le plateau a CD en Delphi.
utilise MMSystem
procedure TForm1.OpenCdTray(AOpen:Boolean)
const
& nbsp & nbsp DoPlay : array[Boolean] of String =
& ! & ! & ! & ! & nbsp (Jeu cdaudio porte fermee d'attendre',
& ! & ! & ! & ! & ! & ! 'Ensemble cdaudio porte ouverte attendre')
var
& nbsp & nbsp MyError : LongInt
& nbsp & nbsp MyErrorString : array[0..MAXERRORLENGTH - 1] of char
begin
& nbsp & nbsp MyError := mciSendString(pChar(DoPlay[AOpen]), nil, 0, 0)
& nbsp & nbsp si MyError <> 0 then
& nbsp & nbsp commencer
& ! & ! & ! & nbsp MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1)
& ! & ! & ! & nbsp Showmessage(MyErrorString)
& ! & ! & ! & nbsp Sortie
& nbsp & nbsp fin
fin