菜鸟级问题，快来拿分！(50分)

wuyongyuan:从这个函数可以得到已知盘符的驱动器类型，可是我想知道当前计算机上的
光驱是什么盘符？ 请问怎么解决？

DEN:你好，已经给你发了 e-mail

//得到光驱盘符：
procedure TForm1.Button1Click(Sender: TObject);
var
CDtype : UINT;
Name : CHAR;
DrvName : String;
volname, filesysname: PCHAR;
begin
GetMem(filesysname, 100);
for Name := 'C' to 'Z' do //循环检测A～Z
begin
DrvName := Name + ':';
CDtype := GetDriveType(PCHAR(@DrvName[1])); //获得磁盘类型
if (CDtype = DRIVE_CDROM) then
begin
ShowMessage('您的光驱盘符为[' + DrvName + ']');
end;
end;
FreeMem(filesysname)
end;

扳手:
邮件有1.4M ,我发给你就被退回,有其他方法吗?

感谢svw0506的真诚帮助！ DEN，收到了你的程序，但帮助不大，先谢了！