delphi弹开与关闭光驱

【文件属性】：

文件名称：delphi弹开与关闭光驱

文件大小：248B

文件格式：TXT

更新时间：2015-10-29 15:41:53

控制光驱

弹开与关闭光驱使用mciSendString procedure TForm1.Button1Click(Sender: TObject); begin mciSendString('Set cdaudio door open wait',nil,0,Handle); end;