delphi编程实现弹出、关闭CD-ROM驱动器

　　如果你想做一个CD播放器的话，那本技巧一定少不了。这是一个控制CD-ROM驱动器门弹出和关闭的方法，首先需要在uses部分加入mmsystem，接着增加两个TButton按钮，在按钮事件里写入下列语句，记住在调用完毕后一定要显示或判断returnstring，要不程序将出错：

procedure TForm1.Button1Click(Sender: TObject);var returnstring:pchar;begin//弹出returnstring:=驱动器打开错误;mciSendString(set CDAudio door open, returnstring, 127, 0);label1.Caption :=returnstring;end; procedure TForm1.Button2Click(Sender: TObject);var returnstring:pchar;begin//关闭returnstring:=驱动器关闭错误;mciSendString(set CDAudio door closed, returnstring, 127, 0);label1.Caption :=returnstring;end;