안녕하세요. 짱굽니다.
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;
요렇게 하시면 되죠.
그럼 좋은 코딩 하세요.
|