Soft qui detecte l'ejection cd

Soft qui detecte l'ejection cd - Delphi/Pascal - Programmation

Marsh Posté le 02-01-2003 à 22:09:25    

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 ...

Reply

Marsh Posté le 02-01-2003 à 22:09:25   

Reply

Marsh Posté le 03-01-2003 à 08:35:37    

Bin, j'ai ca pour commencer :
 

Code :
  1. function IsCdOpen(Drive:Char):Boolean;
  2. const MAXLENGTH = 255;
  3. var S:Pchar;
  4.     Rep:Cardinal;
  5. begin
  6.      Result := False;
  7.      try
  8.         GetMem(S,MAXLENGTH);
  10.         Rep := MciSendString(PChar('Open CdAudio Alias cd Wait Shareable'), S, MAXLENGTH, Handle);
  11.         if Rep<>0 then begin
  12.            MciGetErrorString(Rep,S,MAXLENGTH);
  13.            Application.MessageBox(S,0,MB_ICONERROR);
  14.            Exit;
  15.         end;
  17.         Rep := MciSendString(PChar('Status cd Mode'), S, MAXLENGTH, Handle);
  18.         if Rep<>0 then begin
  19.            MciGetErrorString(Rep,S,MAXLENGTH);
  20.            Application.MessageBox(S,0,MB_ICONERROR);
  21.            Exit;
  22.         end;
  24.         if S='stopped' then Result := False
  25.         else Result := True;
  28.         Rep := MciSendString(PChar('Close cd'), S, MAXLENGTH, Handle);
  29.         if Rep<>0 then begin
  30.            MciGetErrorString(Rep,S,MAXLENGTH);
  31.            Application.MessageBox(S,0,MB_ICONERROR);
  32.            Exit;
  33.         end;
  34.      Finally
  35.         FreeMem(S,MAXLENGTH);
  36.      end;
  37. end;
  40. function IsMediaPresent:Boolean;
  41. const MAXLENGTH = 255;
  42. var S:Pchar;
  43.     Rep:Cardinal;
  44. begin
  45.      Result := False;
  46.      try
  47.         GetMem(S,MAXLENGTH);
  49.         Rep := MciSendString(PChar('Open CdAudio Alias cd Wait Shareable'), S, MAXLENGTH, Handle);
  50.         if Rep<>0 then begin
  51.            MciGetErrorString(Rep,S,MAXLENGTH);
  52.            Application.MessageBox(S,0,MB_ICONERROR);
  53.            Exit;
  54.         end;
  57.         Rep := MciSendString(PChar('Status cd Media Present'), S, MAXLENGTH, Handle);
  58.         if Rep<>0 then begin
  59.            MciGetErrorString(Rep,S,MAXLENGTH);
  60.            Application.MessageBox(S,0,MB_ICONERROR);
  61.            Exit;
  62.         end;
  64.         if S = 'true' then Result := True
  65.         else Result:= False;
  67.         Rep := MciSendString(PChar('Close cd'), S, MAXLENGTH, Handle);
  68.         if Rep<>0 then begin
  69.            MciGetErrorString(Rep,S,MAXLENGTH);
  70.            Application.MessageBox(S,0,MB_ICONERROR);
  71.            Exit;
  72.         end;
  73.      Finally
  74.         FreeMem(S,MAXLENGTH);
  75.      end;
  76. 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.
 

Reply

Marsh Posté le 21-06-2005 à 17:33:26    

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

Reply

Marsh Posté le 21-06-2005 à 19:38:26    

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


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

Marsh Posté le 21-06-2005 à 20:25:20    

antp a écrit :

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


 
+1... c'est fait pour.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed