Soft qui detecte l'ejection cd

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Soft qui detecte l'ejection cd

vini59

Vini

Salut.

Qui se sent capable de faire un soft qui surveille l'ejection cd, et qui fermerai le logiciel qui utiliserai le cd, lorsque l'on appuie sur Eject.... tout ca pour eviter un plantage du soft.

Ca fait pas mal d'année que je ne programme plus ...

Publicité

lung

Bin, j'ai ca pour commencer :

Code :

function IsCdOpen(Drive:Char):Boolean;
const MAXLENGTH = 255;
var S:Pchar;
Rep:Cardinal;
begin
Result := False;
try
GetMem(S,MAXLENGTH);
Rep := MciSendString(PChar('Open CdAudio Alias cd Wait Shareable'), S, MAXLENGTH, Handle);
if Rep<>0 then begin
MciGetErrorString(Rep,S,MAXLENGTH);
Application.MessageBox(S,0,MB_ICONERROR);
Exit;
end;
Rep := MciSendString(PChar('Status cd Mode'), S, MAXLENGTH, Handle);
if Rep<>0 then begin
MciGetErrorString(Rep,S,MAXLENGTH);
Application.MessageBox(S,0,MB_ICONERROR);
Exit;
end;
if S='stopped' then Result := False
else Result := True;
Rep := MciSendString(PChar('Close cd'), S, MAXLENGTH, Handle);
if Rep<>0 then begin
MciGetErrorString(Rep,S,MAXLENGTH);
Application.MessageBox(S,0,MB_ICONERROR);
Exit;
end;
Finally
FreeMem(S,MAXLENGTH);
end;
end;
function IsMediaPresent:Boolean;
const MAXLENGTH = 255;
var S:Pchar;
Rep:Cardinal;
begin
Result := False;
try
GetMem(S,MAXLENGTH);
Rep := MciSendString(PChar('Open CdAudio Alias cd Wait Shareable'), S, MAXLENGTH, Handle);
if Rep<>0 then begin
MciGetErrorString(Rep,S,MAXLENGTH);
Application.MessageBox(S,0,MB_ICONERROR);
Exit;
end;
Rep := MciSendString(PChar('Status cd Media Present'), S, MAXLENGTH, Handle);
if Rep<>0 then begin
MciGetErrorString(Rep,S,MAXLENGTH);
Application.MessageBox(S,0,MB_ICONERROR);
Exit;
end;
if S = 'true' then Result := True
else Result:= False;
Rep := MciSendString(PChar('Close cd'), S, MAXLENGTH, Handle);
if Rep<>0 then begin
MciGetErrorString(Rep,S,MAXLENGTH);
Application.MessageBox(S,0,MB_ICONERROR);
Exit;
end;
Finally
FreeMem(S,MAXLENGTH);
end;
end;

Ca détecte (en théorie, je ne l'ai pas testé) si le lecteur est ouvert. J'en ai un autre qui ouvre et ferme le lecteur, si ca t'interresse.

magner

Bonjour,

Je suis également à la recherche d'un petit programme qui me permettrait d'éjecter les cd-dvd sans passer par le bouton situé sur la façade des lecteurs de disque. Ceux-ci sont devenus difficilement atteignables suite à quelques modifications maison...

Merci d'avance!

Raphaël

antp

Super Administrateur
Champion des excuses bidons

poste de travail -> clic droit sur le lecteur -> ejecter

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

cesarr89

antp a écrit :

poste de travail -> clic droit sur le lecteur -> ejecter

+1... c'est fait pour.

FORUM HardWare.fr

Programmation

Delphi/Pascal

Soft qui detecte l'ejection cd

Sujets relatifs
Excel : Nom ambigu detecté : ~	cherche soft de modélisation objet
j'ai des champs textes avec id et pas name, et PHP me les détecte pas.	Detection ejection Cdrom
[xslt / xml] cherche un soft	Connaissez-vous un soft qui facilite la liaison BD Access <> ASP ?
Recherche d'un soft de creation .exe ?????	Je cherche un soft qui me génère un graphe UML...
Cherche soft pour alléger code html
Plus de sujets relatifs à : Soft qui detecte l'ejection cd

Page générée en 0.059 secondes