Vérifier si le lecteur de CD est ouvert

uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject);
var
s:array[0..64] of char;
error:Cardinal;
text:array[0..255] of char;
begin
error:=mciSendString('open cdaudio alias geraet',nil,0,handle);
if error<>0 then
begin
mciGetErrorString(error,@text,255);
ShowMessage(text);
mciSendString('close geraet',nil,0,handle);
exit;
end;

error:=mciSendString('status geraet mode',@s,sizeof(s),handle);
if error<>0 then
begin mciGetErrorString(error,@text,255);
ShowMessage(text);
mciSendString('close geraet',nil,0,handle);
exit;
end;

mciSendString('close geraet',nil,0,handle);
ShowMessage('Message: '+s);
end;
Commentaire des internautes
avatar
Kachwahed le 11/12/2008
Merci, ca marche avec moi, mais apès avoir changer:
Edit1.Text := Format('%d bits, %d x %d',[Bits, HRes, VRes]);
par:
Edit1.Text := Format('%d bits, %d x %d',[Bits, HorizRes, VertRes]);
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/11/2001
VisualisationVu 861 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur