CD ROM Drive Detection

How do I detect a users CD ROM drive ?
jcoulterAsked:
Who is Participating?
 
JimBob091197Connect With a Mentor Commented:
Hi

The following function will return the CDRom Drive string (e.g. E:\) for the first CDROM on the system.  An empty string means that the system doesn't have a CDROM installed.

function GetCDRomPath: string;
var
  i: Integer;
  Drives: DWORD;
begin
  Result := '';
  Drives := GetLogicalDrives;
  for i := 0 to 25 do
    if ((Drives and (1 shl i)) > 0) and (GetDriveType(PChar(Chr(65 + i) + ':\')) = DRIVE_CDROM) then
      begin
        Result := Chr(65 + i) + ':\';
        Break;
      end;
end;


Regards,
JB
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.