Contributor: WIM VAN VOLLENHOVEN      

{
WIM VAN VOLLENHOVEN

>No, I'm looking for an generic CD-ROM detection routine.
>Thought it was some subfunction of int 2Fh. Don't know if it detected
>the presence of a CD-Rom, or the presence of MSCDEX.
}
Uses
  Dos;

Var
  Regs : Registers;

Procedure IsCDRom;
begin
   Regs.AX := $1500;
   Regs.BX := $0000;
   Regs.CX := $0000;
   Intr( $2F, Regs);
   writeln('CD Available : ', (Regs.BX > 0));
end;


begin
  IsCDRom;
end.