Обработчик прерывания Клавиатуры

[paska]

Здравствуйте. Подскажите пример считывания нажатой клавиши из буфера клавиатуры. Только не через DOS или BIOS. А Именно напрямую из буфера. В Заранее огромное спасибо.

[ellpascal]

Сообщение от paska

Здравствуйте. Подскажите пример считывания нажатой клавиши из буфера клавиатуры. Только не через DOS или BIOS. А Именно напрямую из буфера. В Заранее огромное спасибо.

Тебе придется делать asmbler(овскую) вставку, стандартными функциями Pascal не получится.

[_-Re@l-_]

Функция KeyPressed

Назначение: Возвращает значение Truе, если на клавиатуре нажата клавиша и False в противном случае.
Описание: function KeyPressed: Boolean;
Примечания: Символ (или символы) остаются в буфере клавиатуры. Данная функция не распознает клавиш перевода регистра, таких, как Shift, Аlt, NumLock и т.д. Клавишу можно считать с помощью функции ReadKey.

Пример 28.8
uses crt;
var
k:char;
BEGIN
write('Считывание символов с клавиатуры. Нажми Enter... (для выхода нажмите ESC)');
readln;

repeat {ЦИКЛ }
if KeyPressed=true then {если нажата клавиша, тогда}
begin
k:=ReadKey; {считать ее в переменную k }
writeln('Нажата клавиша с кодом ',ord(k),'=',k);
end;
until k=#27; {выход из цикла, если нажали ESC}
END.

Если правильно понял, то вот
И ещё учти вот это

Функция KeyPressed не извлекает код из буфера, а только проверяет , пуста ли очередь