delphi 中有关光驱问题

Question

在delphi中调mcisendstring可以打开和关闭光驱门，但默认是控制第一个，我装了虚拟光驱，物理光驱不是第一个，我要控制他该如何？？谢谢！！

Answer 1

OpenString:='open F: type CDAudio alias finch wait';//F为光驱的盘符！
mciSendString(Pchar(OpenString), nil, 0, nil);
弹出：
mciSendString('set finch door open wait', nil, 0, nil);
关上：
mciSendString('set finch door closed wait', nil, 0, nil);分太少了，很少有这个答案，要找很久才有。