怎样才能控制多光驱的弹出与关闭(100分)

[?]怎样才能控制多光驱的弹出与关闭，我希望可以想开哪个就开哪个，想关哪个就关哪个。给段源码吧！谢谢！！！

Listing 1:

Procedure CloseDoor(Driveletter:Char);
Var
Alias : String;
Begin
Alias:='Drive'+DriveLetter;
mciSendString(pChar('Open '+DriveLetter+': Alias ' +Alias+' Type CDAudio'), nil, 0, 0);
mciSendString(pChar('Set '+Alias+' Door Closed'), nil, 0, 0);
mciSendString(pChar('Close '+DriveLetter+': Alias ' +Alias+' Type CDAudio'), nil, 0, 0);
End;
Listing 2:

Procedure OpenDoor(Driveletter:Char);
Var
Alias : String;
Begin
Alias:='Drive'+DriveLetter;
mciSendString(pChar('Open '+DriveLetter+': Alias ' +Alias+' Type CDAudio'), nil, 0, 0);
mciSendString(pChar('Set '+Alias+' Door Open'), nil, 0, 0);
mciSendString(pChar('Close '+DriveLetter+': Alias ' +Alias+' Type CDAudio'), nil, 0, 0);
End;

这个办法行吗？

我找了，但没找到给分不？

不要告诉我不知道怎么用吧!把这两个过程在程序前面声明一下,后面用closedoor()和opendoor()
就行了,注意盘符是Char类型,直接不行就用PChar()转换一下.

谢谢！！！