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
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/11/2001
VisualisationVu 975 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
connecté le //
0 ans -
articles dans la section
Contacter l'auteur
Articles similaires