请问如何得到光驱的路径？

Question

谢谢！

Answer 1

用API
或者找个第3方的组件然后取他的类使用
是不是说的很复杂了
哈哈

Answer 2

笨方法，
  var
    I:Integer ;
    I:=3;
 while Flag do
 begin
   if DiskFree(I)=0 then Break;
   Inc(I);
 end;

Answer 3

function  CheckIsCdrom():string;
var
  i,x:integer;
  pDriver:pchar;
begin
   result:='no';
   for i:=65 to 90  do
   begin
      pDriver:=pchar(chr(i)+':\');
      x := GetDriveType(pDriver);
      if x=5 then
      begin
         result:=chr(i);
         break;
      end;
   end;
end;

Answer 4

procedure TForm1.InfoClick(Sender: TObject);
type
  tdrivetype=(dtunknown,dtnodrive,dtfloppy,dtfixed,dtnetwork,dtcdrom,dtram);
var
  drivenum:integer;
  drivechar:char;
  drivetype:tdrivetype;
  drivebits:set of 0..25;
  drv:string;
begin
  integer(drivebits):=getlogicaldrives;
  for drivenum:=0 to 25 do
    begin
      if not (drivenum in drivebits) then continue;
      drivechar:=char(drivenum+ord('A'));
      drivetype:=tdrivetype(getdrivetype(pchar(drivechar+':\')));
      drv:='';
      case drivetype of
{      dtunknown:drv:=drivechar+':\> is Unknown';
      dtnodrive:drv:=drivechar+':\> is NoDrive';
      dtfloppy: drv:=drivechar+':\> is Floppy';
      dtfixed:  drv:=drivechar+':\> is Fixed';
      dtnetwork:drv:=drivechar+':\> is NetWork'; }
      dtcdrom:  drv:=drivechar+':\> is CD-ROM'; // is CDROM
//      dtram:    drv:=drivechar+':\> is RAM';
      end;
      if drv<>'' then
      showmessage(drv);
    end;
end;

Answer 5

//==============================================================================
//获得驱动器类型信息************************************************************
//==============================================================================
function GetDriveSpecies(Drive: string): string;
begin
  case GetDriveType(PChar(Drive)) of//获得Drive所对应的磁盘驱动器信息
    0:               Result := '不确定的驱动器类型';
    1:               Result := '驱动器‘'+Drive+'’不存在';
    DRIVE_REMOVABLE: Result := '软盘驱动器';
    DRIVE_FIXED :    Result := '硬盘驱动器';
    DRIVE_REMOTE:    Result := '网络驱动器';
    DRIVE_CDROM:     Result := '光盘驱动器';
    DRIVE_RAMDISK:   Result := '内存虚拟盘';
  end;
end;