如果你想做一个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...[ 查看全文 ]