如何打开关闭dvd光驱?

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MMSystem, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
 // mciSendStringA('set CDAudio door open', nil, 0, 0);
 mcisendstring('set   CDAudio   door   open   wait',nil,0,handle);//开光驱
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  //mciSendStringA('set CDAudio door closed', nil, 0, 0);
    mcisendstring('set   CDAudio   door   closed   wait',nil,0,handle);//关光驱
end;end.上面的代码,只能打开,但不能关闭,求解?

Answer 1

摘一个DLL叫做srcd.dll，有说明的

Answer 2

function OpenCDROM(Drive:pChar):Boolean; // 打开CDROM
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 CloseCDROM(Drive:pChar):Boolean; // 关闭CDROM
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;

Answer 3

unit CDCOM;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MMSystem;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}function OpenCDROM(Drive:pChar):Boolean; // 打开CDROM
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 CloseCDROM(Drive:pChar):Boolean; // 关闭CDROM
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenCDROM('F');  // F 是光驱盘符
end;procedure TForm1.Button2Click(Sender: TObject);
begin
CloseCDROM('F');
end;end.

Answer 4

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Answer 5

楼上的代码测试过，也关不了？http://forum.ubuntu.org.cn/about30638.html

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
begin
//打开CDROM门：
  mciSendString('Set CdAudio Door Open', nil, 0, 0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
//关闭CDROM门：
  mciSendString('Set CdAudio Door Closed', nil, 0, 0);
end;

Answer 7

废话一句，mciSendString这个代码只能控制一个光驱，对于多个光驱貌似没用
楼上的代码测试成功，应该没问题啊

Answer 8

http://www.91files.com/?GIFWBPNIGITDNORDWBU5
上传了我光盘上的一个源码
不过没测试，家长为了让我专心准备高考把delphi卸了……