delphi打开关闭光驱


uses mmsystem;
mciSendString('Set cdaudio door open wait', nil, 0, handle); //打开
mciSendString('Set cdaudio door closed wait', nil, 0, handle);//关闭

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678