Bu işlem için Win32'de GetDriveType API fonksiyonu gayet güzel çalışıyor,
fakat 16 bit Windows'ta bu fonksiyon Network sürücüleri ile CDROM sürücüleri
için aynı değeri döndürüyor. Windows 3.1'de bir sürücünün CD olup olmadığını
anlamak için aşağıdaki fonksiyonu kullanabilirsiniz. Bu fonksiyona parametre
olarak sürücü numarasını vermelisiniz. Bu numara şu şekilde belirtilmelidir :
0 = şu anki sürücü, 1 = A, 2 = B, 3 = C,
function CDROM(SurucuNo : Word) : Boolean;
var
F : WordBool;
begin
asm
mov ax, 1500h { MSCDEX yüklü mü? }
xor bx, bx
int 2fh
mov ax, bx { BX = 0 ise MSCDEX yüklü değil }
or ax, ax { Bu durumda sonuç olarak False döndür }
jz @mscdexyok
mov ax, 150bh { MSCDEX sürücü kontrolü }
mov cx, DriveNum { CX'e sürücü numarasını ata }
int 2fh
@mscdexyok:
mov f,ax
end;
Result := F; { Sonuç değişkenine ata }
end;