замена драивера клавиатуры

[flexterful]

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

что-то не совсем понятно. объясни пожалуйста ещё раз поподробнее.

так сказать мне надо "заблокировать" ввод на екран из клавиатуры и заменить его на то что будет показывать моя программа.
грубо говоря ето как event handler :

function KeyboardEvent(e : TKeyEvent) : TKeyEvent;
begin
if e.ShiftState = [ssCtrl, ssShift, ssAlt]
then begin
// vozvrasiajem original
Result := e;
Exit;
end;
if e.Key = 'A'
then begin
// vozvrasiajem modificirovannyj
Result := e;
Result.Key = 'B'
Exit;
end;
if e.Key in ['0'..'9']
then begin
// nicego ne vozvrasiajem
Exit;
end;

...
end;

[LDA]

http://www.cyberguru.ru/cpp-sources/...ovit-khuk.html - вот посматри этот примерчик с хуками

[flexterful]

YAY, spasibo bolsoje.
budem iskat' svobodnoje vremia, a togda uze probovat'.
tolko vnaciale na delphi perevesti....