Ouvrir/fermer un lecteur cd simplement

Soyez le premier à donner votre avis sur cette source.

Vue 6 283 fois - Téléchargée 573 fois

Télécharger le projet
Commenter

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 / Exemple : 


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

Conclusion :


Il est un peu modifier (le programme, pas le PAS).
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_Pag
Messages postés
6
Date d'inscription
mardi 20 août 2002
Statut
Membre
Dernière intervention
18 avril 2007
 -
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
cs_Gysmo
Messages postés
216
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002
 -
Super génial!!!

Un grand merci à toi Pag! ;)

Babaille.
Signaler
slachz
Messages postés
110
Date d'inscription
lundi 21 avril 2003
Statut
Membre
Dernière intervention
1 janvier 2006
 -
sinon avec une unit qu'on possede déjà => http://www.passiondelphi.net/astuce.php?PHPSESSID=&action=Show&id=25&categorie=System
Signaler
George Dujardin
Messages postés
1
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
14 février 2005
 -
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
c3rb3r3
Messages postés
40
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2006
 -
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.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Gysmo)