我要得到光盘驱动器的盘符 用delphi 怎样做？

Question

我要得到光盘驱动器的盘符 用delphi 怎样做？
---------------
谢谢您得回应

Answer 1

是不是用系统函数,不好意思,我不知道函数是什么,你到API论坛上试试!我刚刚查了一下书:
Getdrivetype(prootpathname:pchar):unit;返回值是:DRIVE_CDROM你可以用for语句
遍历一下所有驱动器,看返回值.....

Answer 2

一种简单算法，获得第一个CDRom,返回''表示驱动器中没有光盘
function GetFirstCdRom:string;var
i:integer;
begin
result:='';
for i:=0 to 25 do  begin
  if getdrivetype(pchar(chr(i+65)+':\'))=DRIVE_CDROM then
     begin
     result:=pchar(chr(i+65)+':\');
     exit;
     end;
  end;
end;