Форум: "Система";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];

Вниз

Прерывания в PASCAL   Найти похожие ветки 

← →
VL   (2002-03-15 11:20) [0]

Господа!
Либо что-то поменялось, либо я все забыл...
Не осталось ли у кого-то исходников - перехватить прерывание клавиатуры и получить нажатую клавишу (ASCII код) в паскале.
vlad@psk.dp.ua

---

← →
Dimka Maslov   (2002-03-15 15:12) [1]

{ Чтение полного кода нажатой клавиши Scan+Ascii }
function ReadKey: Word;
begin asm
MOV AH,00
INT 16H
MOV @RESULT,AX
end end;

{ Получение Scan-кода клавиши, в качестве параметра надо указать число, полученное при помощи функции ReadKey }
function Scan(Key: Word): Byte;
begin
Scan:=hi(Key);
end;

{ Получение Ascii-кода клавиши }
function Ascii(Key: Word): Byte;
begin
Ascii:=Char(lo(Key));
end;

function KeyPressed: Boolean;
begin asm
MOV AH,01H
INT 16H
MOV AH,TRUE
JZ @@MET
JMP @@Q
@@MET:
MOV AH,FALSE
@@Q:
MOV @RESULT,AH
end end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c