| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

NumLock

Poha ©   (2005-01-27 12:19:00) 

Народ помогите кто знает как узнать горит NumLock или нет. Подскажите какуе - нибудь процедурку или ещё чего - нибудь.

---

Хруст   (2005-02-01 23:53:00) [1]

на Pascale писали прогу для программного выключения NumLock

var p: ^byte;
begin
    p := ptr(seg0040, $0017);
    p^ := (p^ and $DF);
end


или так

var p: byte;
begin
    p := Mem[seg0040:$0017] and $DF;
    Mem[seg0040:$0017] := p;
end


или же так

var p: byte absolute $0040:$0017;
begin
    p := p and $DF;
end


---

Хруст   (2005-02-01 23:53:00) [2]

на Pascale писали прогу для программного выключения NumLock

var p: ^byte;
begin
    p := ptr(seg0040, $0017);
    p^ := (p^ and $DF);
end


или так

var p: byte;
begin
    p := Mem[seg0040:$0017] and $DF;
    Mem[seg0040:$0017] := p;
end


или же так

var p: byte absolute $0040:$0017;
begin
    p := p and $DF;
end


---

Алхимик   (2005-01-27 13:02:00) [3]

http://www.akzhan.midi.ru/devcorner/akdeltnt-content/akdeltnt-008A.html

---

Наверх