begin process at 2010 03 20 09:16:18
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

 > OUVRIR/FERMER UN LECTEUR CD SIMPLEMENT

OUVRIR/FERMER UN LECTEUR CD SIMPLEMENT


 Information sur la source

Note :
Aucune note
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 793 / 382

Auteur : Gysmo

Ecrire un message privé
Site perso
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

Les Membres Club peuvent 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


 Sources du même auteur

Source avec Zip Source avec une capture COMPOSANT STYLE WINDOWS XP
Source avec Zip VERSION DE WINDOWS
Source avec Zip LANCER UNE APPLICATION ET ATTENDRE SA FERMETURE
Source avec Zip TROUVER L'EXECUTABLE ASSOCIÉ A UN FICHIER
Source avec Zip AJOUTER UN COMPOSANT DANS UN AUTRE

 Sources de la même categorie

Source avec Zip SAUVEGARDE DE PLUSIEURS DISQUES/PARTITIONS par danfranjo
Source avec Zip Source avec une capture FICLOCK : LOCKEZ LES FICHIERS par JulioDelphi
Source avec Zip Source avec une capture MODIFICATION DES EXTENSIONS DE FICHIERS par JeremyLecouvert
EXPLORATION RÉCURSIVE DE RÉPERTOIRE par JeremyLecouvert
Source avec Zip OBTENIR LE PROPRIÉTAIRE D'UN FICHIER (WIN32;NTFS) par ILP

Commentaires et avis

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.

Commentaire de Gysmo le 20/08/2002 15:59:05

Super génial!!!

Un grand merci à toi Pag! ;)

Babaille.

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

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.

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

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,764 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales