Delphi实现打开和关闭光驱

原文：http://www.itxia.com/a/computer/program/delphi/2010/0722/9837.html

本实例将实现对光驱的打开和关闭操作，如图1所示，单击【弹出光驱】按钮，光驱弹出来；单击【关闭光驱】按钮，将弹出的光驱关闭。

图1 控制光驱
在mmsystem单元中提供了mciSendString函数用来对光驱进行操作，该函数原型如下：

 MCIERROR mciSendString(
  LPCTSTR lpszCommand,
  LPTSTR lpszReturnString,
  UINT cchRetrun,
  HANDLE hwndCallback
);

下面说明实现的方法：
（1）新建一个项目，向其中添加两个Button控件，设置它们的Caption属性分别为“弹出光驱”和“关闭光驱”。
（2）在程序的Uses部分添加mmsystem单元。
（3）编写两个按钮的OnClick事件的响应代码如下：
 procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait',nil,0,handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait',nil,0,handle);
end;