안녕하세요. 짱굽니다.

Function IsCDrom(Drv : Char):BOOLEAN;
Var
  CDR   : string;
  cnt   : byte;
  Bx,cx : word;

Procedure CDR_GET_DRIVE_COUNT (var COUNT, FIRST: word); assembler;
  asm
    mov ax, 1500h
    xor bx, bx
    int $2f           {CDROM_Interrupt}
    les di, COUNT
    mov es:[di], bx
    les di, FIRST
    mov es:[di], cx
  end;

begin
  IsCDROM := false;
  CDR := ''; 
  CDR_GET_DRIVE_COUNT(bx,cx);
  if BX > 0 then

    for cnt := 0 to (bx-1) do
      CDR := CDR + char(Cx + Byte('A') + cnt);
  IsCDROM := (Pos(upcase(Drv),CDR) > 0);
end;

요렇게 하시면 되죠.

그럼 좋은 코딩 하세요.