NT 底下的Media Player不灵呀 （Delphi 4.05)(100分)

我想自己编一个CD Player,但是把Media Player 的device Type
设置为dtCDAudio后，一Open就出错。Delphi 4.05的Media Player
是不是坏的？我记得用Delphi 3 在win 95底下是不会出现这种问题的。

你需要在MediaPlayer控件的FileName属性中填入你的光驱驱动器号，如
MediaPlayer.DeviceType = dtCDAudio;
MediaPlayer.FileName = 'F:';
（在95下它好象不需要）
然后再Open就应该不会错了。

驱动器号的获取论坛上提了很多次了，可以
for L := Ord('C') to Ord('Z')do

begin
drive := Chr(L)+':/'+#0;
if GetDriveType(Pchar(drive)) = DRIVE_CDROM then
begin
CDForm.MediaPlayer.FileName:=Chr(L)+':';
break;
end;

接受答案了.