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( 2ドルF, Regs);
writeln('CD Available : ', (Regs.BX> 0));
end;
begin
IsCDRom;
end.