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