Обработчик событий в паскале

← →
gg (2003-09-15 21:53) [0]

Скажите как можно в TP по нажатию клавиши делать какое-либо действие. В данном случае мне нужно закрасить экран.

← →
Programmer_SC (2003-09-15 22:38) [1]

Ну если стандартный ReakKey вас не устраивает..
Рассмотрим перехват обработчика клавы
uses Dos;

Var
IntSave : Pointer;

{$F+}
Procedure KeyboardHandler; Interrupt;
Begin
WriteLn("Hello from KeyboardHandler");
Asm
Call IntSave
End;
End;
{$F-}
Begin
GetIntVec($09,IntSave);
SetIntVec($09,Addr(KeyboardHandler));
ReadLn;
SetIntVec($09,IntSave);
End.

Че не понятно пиши

Вроде б перед call IntSave pushf надо... Или я всё уже забыл? :^)

Обработчик событий в паскале Найти похожие ветки