Утилита (сервис Windows) для перехвата событий клавиатуры.

Утилита должна обладать следующим функционалом:

- глобальный перехват нажатий клавиш с нескольких клавиатур (usb сканеры штрих кода в режиме эмуляции клавиатуры подключены к одному компьютеру) с идентификацией клавиатуры

- накопление введенной порции информации в разрезе клавиатуры до появления определенного символа (Enter) без передачи нажатий в систему. Нажатия клавиш на других клавиатурах должны проходить в систему.

- В зависимости от настроек передать сформированный пакет в com-порт или для обработки в систему с дополнительными символами в начале или в конце сформированной строки. 

- В зависимости от настроек определять таймаут между нажатиями клавиш, если таймаут больше определенного (печатает человек на клавиатуре) - передавать в систему, если меньше (идет поток со сканера или считывателя магнитных карт) - ожидать завершения (нажатие Enter или другой символ) и обрабатывать согласно настройкам.

Желательно - delphi.

Был в свое время написан макрос на Lua Macros, но он работает нестабильно - прекращается перехват клавиатур до перезапуска утилиты. Пример макроса:

lmc_device_set_name("KB", "1B66379C");

lmc_device_set_name("KB2", "8AC86F7");

lmc_add_com('C1', 'COM1')

lmc_add_com('C2', 'COM3')

lmc_print_devices();

fdd1=''; fdd2='';

lmc_set_handler("KB",function(button, direction)

symbol_ = '';

if (direction==1) then

if (button==13) then

print("ok");

print(fdd1);

lmc_send_to_com('C1', fdd1..'\r')

fdd1='';

--lmc_send_to_com('C1', string.byte(10))

elseif (button==48) then

symbol_ = '0';

elseif (button==49) then

symbol_ = '1';

elseif (button==50) then

symbol_ = '2';

elseif (button==51) then

symbol_ = '3';

elseif (button==52) then

symbol_ = '4';

elseif (button==53) then

symbol_ = '5';

elseif (button==54) then

symbol_ = '6';

elseif (button==55) then

symbol_ = '7';

elseif (button==56) then

symbol_ = '8';

elseif (button==57) then

symbol_ = '9';

else

print("Callback for whole keyboard 2: button " .. button .. ", direction "..direction)

end

--print(symbol_);

--lmc_send_to_com('C1', symbol_)

fdd1=fdd1..symbol_;

end

end)

lmc_set_handler("KB2",function(button, direction)

symbol_ = '';

if (direction==1) then

if (button==13) then

print("ok");

print(fdd2);

lmc_send_to_com('C2', fdd2..'\r')

fdd2='';

--lmc_send_to_com('C1', string.byte(10))

elseif (button==48) then

symbol_ = '0';

elseif (button==49) then

symbol_ = '1';

elseif (button==50) then

symbol_ = '2';

elseif (button==51) then

symbol_ = '3';

elseif (button==52) then

symbol_ = '4';

elseif (button==53) then

symbol_ = '5';

elseif (button==54) then

symbol_ = '6';

...........