Ouvrir/fermer un lecteur cd simplement
0/5 (5 avis)
Vue 6 799 fois - Téléchargée 634 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
- Delphi exit function
- Drivetools - Meilleures réponses
- Cd delphi - Meilleures réponses
- Visual Basic / VB.NET : Ouvrir et fermer un lecteur cd-rom - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir et fermer le lecteur cd - CodeS SourceS - Guide
- Visual Basic / VB.NET : Vbs - detecter, ouvrir, fermer les lecteurs de cd - CodeS SourceS - Guide
- Batch : comment ouvrir et fermer un lecteur cd en .bat ✓ - Forum - Visual Basic
- Visual Basic / VB.NET : Pour ouvrire ou fermer le lecteur cd - CodeS SourceS - Guide
27 juil. 2005 à 00:55
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.
14 févr. 2005 à 19:26
J'ai essayé les 2 autres sources mais aucune ne fonctionne sous WXP ou W 98. Par contre celle-ci fonctionne bien.
16 juil. 2004 à 00:45
20 août 2002 à 15:59
Un grand merci à toi Pag! ;)
Babaille.
20 août 2002 à 07:47
// ____ _ ______ __
// / __ \_____(_) _____/_ __/___ ____ / /____
// / / / / ___/ / | / / _ / / / __ / __ / / ___/
// / /_/ / / / /| |/ / __/ / / /_/ / /_/ / (__ )
// /_____/_/ /_/ |___/\___/_/ \____/\____/_/____/
//
(*******************************************************************************
* 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.