Привет всем!

Интересует как можно помигать диодами NUM_LOCK, CAPS_LOCK, SCROLL_LOCK. НО, реализовать это нужно через порт клавиатуры, а не с помощью Post/Send message. Т.е. на самом низком уровне. Вот. Буду очень благодарен, если кто нибудь сможет помочь.
Спасибо.

M Girder

Поиск... http://forum.vingrad.ru/index.php?act=Search&f=2 Совсем не давно обсуждалось!

Способ для 9x (на NT не работает):


Способ для NT (на 9x не работает):

Poseidon, спасибо конечно, но это что, работа через порт?

Я имею ввиду напрямую
Добавлено @ 23:25
Girder
Извини что засоряю форум подобными сообщениями, но поиск не нашёл ничего стоящего...
Мож. это я так искал

Это сообщение отредактировал(а) NUCLEuS - 8.4.2006, 23:18

А... ты об ентом. Но енто тоже имхо... обсуждалось. Искать лень... так что сделай типо так.

Скачиваеш TDriver(см. прикрепленную тему в ентом разделе)... устанавливаеш его...

Далее типо так:

PS: Не проверял...

Girder, спасибо тебе большое Щас проверю.

Girder,
проверил - не работает

Вылетает на

Driver1.PortInOut[$60]:=$ed;

Если убрать эту строку, то вылетает на следующей (Driver1.PortInOut[$60]:=$2;).
Говорит

External exeption C0000008

Поправка : посмотрел в отладчике - вылет происходит из-за SetPort функции... А если её вызов убрать то будет Error : Privileged instruction. (как я понял эта функция может открывать порты I/O в NT (а я чёт думал что тут без ring0 не обойтись ))

Что тут можно сделать?

Просто жми F9 ... енто же исключение обрабатывается внутри компонента . Если тебе енто раздражает... то просто запускай не из под Delphi


Ну просто там нету задержи... или к примеру можно сделать проверку занятости... т.е. вот так:

PS: Проверил... работает Ты только NumLock отключи... так как енто я сделал "зажигание" его

Girder, да, работает, спасибо

Но мне как всегда хочется всё сделать самому и на самом низком уровне

Поэтому начал разбирать твой компонент и понял что без ring0 тут всё таки не обошлось
Насколько я понял, ты загнал свой ring0 драйвер в массив (gwiopm_sys) я подумал что это драйвер потому что первые байты 4D 5A (MZ) как раз PE заголовка. Классный способ, я даже и не думал что так можно сделать

Так вот, это уже Off Topic, но мне очень интересно, как ты написал этот самый драйвер, очень хочется увидеть исходник, я тоже хочу научиться писать ring0 драйвера... И интересно как твой драйвер функционирует? Просто даёт вызвавшему приложению ring0 права? Интересно очень...


И, если можешь, дай пожалуйста исходник этого драйвера

Он не мой.

PS: http://www.wideman-one.com/gw/tech/Delphi/...gwiopm_code.htm
http://www.wideman-one.com/gw/tech/Delphi/iopm/

Girder,
ок,почитаю

А можешь объяснить эти строчки кода



Start Port = $50
End Port = $70

Это ты разрешаешь работу с портами от $50 до $70 вызывающему приложению? Или не так



Это тоже непонятно ты посылаешь на порт $60 (кстати, почему $60?) 11101101, зачем?

1. Вообще-то в TDriver-е енто написано... что делает ента функция.
PS: Модифицируется карта разрешения ввода-вывода.

2. енто команда... Set/Reset Mode Indicators

Ок, огромное спасибо за всю информацию что ты мне дал

Это сообщение отредактировал(а) NUCLEuS - 10.4.2006, 19:40