Delphi：如何使用驱动器号以编程方式弹出CD

I have tried this code:

我试过这段代码:

uses MMSystem;

mciSendString('Set cdaudio door open wait', nil, 0, handle);

mciSendString('Set cdaudio door closed wait', nil, 0, handle);
uses MMSys