AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 20 17:03:58
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OUVRIR/FERMER UN LECTEUR CD SIMPLEMENT


Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 10/03/2002 Date de mise à jour : 06/05/2002 01:01:36 Vu / téléchargé: 3 117 / 330
Auteur : Gysmo Site perso
Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

Description

Simple, efficace, l'ejection se fait selon la lettre du lecteur.
Je l'ai trouvé sur http://phidels.com
J'ai jugé utile de le mettre ici.
 

Source

  • Le fichier DriveTools est necessaire.
  • Je ne possede pas le fichier PAS. 
Le fichier DriveTools est necessaire. 
Je ne possede pas le fichier PAS.

Conclusion

Il est un peu modifier (le programme, pas le PAS).  
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • DriveTools.dcuTélécharger ce fichier [Réservé aux membres club]1 863 octets
  • Project1.cfgTélécharger ce fichier [Réservé aux membres club]Voir ce fichier386 octets
  • Project1.dofTélécharger ce fichier [Réservé aux membres club]Voir ce fichier1 167 octets
  • Project1.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier188 octets
  • Project1.exeTélécharger ce fichier [Réservé aux membres club]373 248 octets
  • Project1.resTélécharger ce fichier [Réservé aux membres club]876 octets
  • Unit1.~dfmTélécharger ce fichier [Réservé aux membres club]837 octets
  • Unit1.~pasTélécharger ce fichier [Réservé aux membres club]858 octets
  • Unit1.dcuTélécharger ce fichier [Réservé aux membres club]4 111 octets
  • Unit1.dfmTélécharger ce fichier [Réservé aux membres club]837 octets
  • Unit1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier959 octets

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de Pag le 20/08/2002 07:47:59

J'ai trouver la source: ---->


//                  ____       _          ______            __
//                 / __ \_____(_)   _____/_  __/___  ____  / /____
//                / / / / ___/ / | / / _ / / / __ / __ / / ___/
//               / /_/ / /  / /| |/ /  __/ / / /_/ / /_/ / (__  )
//              /_____/_/  /_/ |___/\___/_/  \____/\____/_/____/
//
(*******************************************************************************
* DriveTools 1.0                                                               *
*                                                                              *
*                 (c) 1999 Jan Peter Stotz                                     *
*                                                                              *
********************************************************************************
*                                                                              *
* If you find bugs, has ideas for missing featurs, feel free to contact me     *
*                           jpstotz@gmx.de                                     *
*                                                                              *
********************************************************************************
* Date last modified:   May 22, 1999                                           *
*******************************************************************************)

unit DriveTools;

interface

uses
  Windows, SysUtils, MMSystem;

function CloseCD(Drive : Char) : Boolean;
function OpenCD(Drive : Char) : Boolean;

implementation

function OpenCD(Drive : Char) : Boolean;
Var
  Res : MciError;
  OpenParm: TMCI_Open_Parms;
  Flags : DWord;
  S : String;
  DeviceID : Word;
begin
  Result:=false;
  S:=Drive+':';
  Flags:=mci_Open_Type or mci_Open_Element;
  With OpenParm do begin
    dwCallback := 0;
    lpstrDeviceType := 'CDAudio';
    lpstrElementName := PChar(S);
  end;
  Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
  IF Res<>0 Then exit;
  DeviceID:=OpenParm.wDeviceID;
  try
    Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
    IF Res=0 Then exit;
    Result:=True;
  finally
    mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
  end;  
end;

function CloseCD(Drive : Char) : Boolean;
Var
  Res : MciError;
  OpenParm: TMCI_Open_Parms;
  Flags : DWord;
  S : String;
  DeviceID : Word;
begin
  Result:=false;
  S:=Drive+':';
  Flags:=mci_Open_Type or mci_Open_Element;
  With OpenParm do begin
    dwCallback := 0;
    lpstrDeviceType := 'CDAudio';
    lpstrElementName := PChar(S);
  end;
  Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
  IF Res<>0 Then exit;
  DeviceID:=OpenParm.wDeviceID;
  try
    Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
    IF Res=0 Then exit;
    Result:=True;
  finally
    mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
  end;  
end;


end.

signaler à un administrateur
Commentaire de Gysmo le 20/08/2002 15:59:05

Super génial!!!

Un grand merci à toi Pag! ;)

Babaille.

signaler à un administrateur
Commentaire de slachz le 16/07/2004 00:45:19

sinon avec une unit qu'on possede déjà => http://www.passiondelphi.net/astuce.php?PHPSESSID=&action=Show&id=25&categorie=System

signaler à un administrateur
Commentaire de George Dujardin le 14/02/2005 19:26:37

Génial.
J'ai essayé les 2 autres sources mais aucune ne fonctionne sous WXP ou W 98. Par contre celle-ci fonctionne bien.

signaler à un administrateur
Commentaire de c3rb3r3 le 27/07/2005 00:55:12

Ah enfin ...
Bien joué Pag pour avoir trouvé la source de l'unit DriveTools, je la cherchais depuis un moment.

Vous ferez attention si vous l'utilisez, il faut remplacer certains caractères dûs au navigateur.

Pour exemple:
IF Res<>0 Then exit;

En clair, c'est Si Res supérieur à 0. C'est sûrement pour celà que slachz n'a pas réussi à le faire fonctionner.

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Novembre 2008
LMMJVSD
     12
3456789
10111213141516
17181920212223
24252627282930

Consulter la suite du CalendriCode

Appels d'offres


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.