Главная » Pascal, Исходники, Разное » Программа для определения дисковода
Ноя
22

Программа для определения дисковода

Программа позволяет определить, является ли логический  диск, имя которого указывается в качестве параметра, CD-ROM приводом. По умолчанию за обслуживание лазерных дисков отвечает драйвер MSCDEX.

[sourcecode language=»pascal»]
program cd_test;
uses DOS;
var
CD: Boolean;
drive_letter: Char;

function CDRom(drive: Char): Boolean;
var
regs: Registers;
begin
CDRom:=False;
drive:=upcase(drive);
if (drive < ‘A’) or (drive > ‘Z’) then Exit;
fillchar(regs, sizeof(regs), 0);
regs.CX:=ord(drive)-ord(‘A’);
regs.AX:=$150B;
intr($2F, regs);
CDRom:=(regs.AX <> 0) and (regs.BX = $ADAD);
end;

begin
write(‘enter drive name >> ‘);
readln(drive_letter);
CD:=CDRom(drive_letter);
writeln(CD);
Readln;
end.
[/sourcecode]

Скачать программу «CD_TEST» и ее исходный код
Данная программа использует прерывание DOS $2F для определения является ли указанный дисковод устройством для чтения компакт-дисков.



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.