Ouvrir/fermer un lecteur cd simplement
Soyez le premier à donner votre avis sur cette source.
Vue 6 605 fois - Téléchargée 622 fois
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.
Il est un peu modifier (le programme, pas le PAS).
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).
Codes Sources
A voir également
- Lecteur cd la source
- Delphi cd - Meilleures réponses
- Delphi exit function - Meilleures réponses
- Visual Basic / VB.NET : Pour ouvrire ou fermer le lecteur cd - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir et fermer le lecteur cd - CodeS SourceS - Guide
- Visual Basic / VB.NET : Volume et lecteur cd - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir et fermer un lecteur cd-rom - CodeS SourceS - Guide
- Javascript : Ouvrir les lecteurs cd-rom et graveur - CodeS SourceS - Guide
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.
J'ai essayé les 2 autres sources mais aucune ne fonctionne sous WXP ou W 98. Par contre celle-ci fonctionne bien.
Un grand merci à toi Pag! ;)
Babaille.
// ____ _ ______ __
// / __ \_____(_) _____/_ __/___ ____ / /____
// / / / / ___/ / | / / _ / / / __ / __ / / ___/
// / /_/ / / / /| |/ / __/ / / /_/ / /_/ / (__ )
// /_____/_/ /_/ |___/\___/_/ \____/\____/_/____/
//
(*******************************************************************************
* 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.
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.