Форум: "Система";
Текущий архив: 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.005 c