弹出、关闭CD-ROM驱动器
2000-01-30 00:00:00·
-·CPCW
如果你想做一个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;
|
