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;