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

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

procedure TFormButtonClick(Sender: TObject);

var returnstring:pchar;

begin

//弹出

returnstring:=驱动器打开错误;

mciSendString(set CDAudio door open returnstring );

labelCaption :=returnstring;

end; procedure TFormButtonClick(Sender: TObject);

var returnstring:pchar;

begin

//关闭

returnstring:=驱动器关闭错误;

mciSendString(set CDAudio door closed returnstring );

labelCaption :=returnstring;

end;