Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Scroll Lock   Найти похожие ветки 

 
BelchonokH ©   (2003-12-17 22:26) [0]

Доброго вам! А как можно программно поморгать лампочкой Scroll Lock на клавиатуре?


 
Talla2k ©   (2003-12-18 00:21) [1]

В 9x знаю !!!А в XP не срабатывает(лично у меня!!!).Если надо для 9x скажи ,я не жадный!!!


 
VNavigator   (2003-12-18 00:51) [2]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_SCROLL,0,0,0);
keybd_event(VK_SCROLL,0,vk_up,0);
end;

//или

procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_SCROLL,MapVirtualKey(VK_SCROLL,0),0,0);
keybd_event(VK_SCROLL,MapVirtualKey(VK_SCROLL,0),vk_up,0);
end;


 
Sam Stone ©   (2003-12-18 02:17) [3]

старый паскалевский код(не знаю, будет ли работать в дельфе):
Var ShiftByte: byte absolute $0000:$0417;

If ShiftByte and $80 <> 0 then Txt:="scrolllock";

Собсно, если не изменяет память в столь поздний час, чтоб включить капс, нужно сделать вот чего: shiftbyte:=shiftbyte or $80; Остальные лампочки $40 & $20


 
ALEIIIKA ©   (2003-12-23 10:06) [4]

Вот функции которые возращают активна или нажата нужная клавиша.

// функции проверки нажатия клавиш

function AltKeyDown : boolean;
begin
result:=(Word(GetKeyState(VK_MENU)) and $8000)<>0;
end;

function CtrlKeyDown : boolean;
begin
result:=(Word(GetKeyState(VK_CONTROL)) and $8000)<>0;
end;

function ShiftKeyDown : boolean;
begin
result:=(Word(GetKeyState(VK_SHIFT)) and $8000)<>0;
end;

function CapsLock : boolean;
begin
result:=(GetKeyState(VK_CAPITAL) and 1)<>0;
end;

function InsertOn : boolean;
begin
result:=(GetKeyState(VK_INSERT) and 1)<>0;
end;

function NumLock : boolean;
begin
result:=(GetKeyState(VK_NUMLOCK) and 1)<>0;
end;

function ScrollLock : boolean;
begin
result:=(GetKeyState(VK_SCROLL) and 1)<>0;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-43878
Alex_Bredin
2004-02-19 09:03
2004.03.14
Новое оружие?


14-43813
pasha_golub
2004-02-12 11:39
2004.03.14
Киевская встреча Мастаков aka KMP


3-43254
dimm22
2004-02-13 11:20
2004.03.14
Поделитесь пожалуйста ODBC драйвером к Клариону (*.tps).


3-43394
Night Cold
2004-02-13 18:09
2004.03.14
BatchMove


1-43677
Mishenka
2004-03-01 00:16
2004.03.14
Кодировка Dos в RichEdit???