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

Вниз

CAPS Lock установить программно верх   Найти похожие ветки 

← →
dis12345 ©   (2012-01-23 15:03) [0]

Подскажите пожалуйста как программно установить caps lock вверх и низ?
Нашел переключение в противоположное
var  
 KS: TKeyboardState;  
begin  
 GetKeyboardState(KS);  
 KS[020] := KS[020] xor 1;  

а как заведомо в верхнее или нижнее ?

---

← →
RWolf ©   (2012-01-23 15:04) [1]

как думаешь, почему в коде написано именно xor?

---

← →
Германн ©   (2012-01-23 15:17) [2]

> dis12345 ©   (23.01.12 15:03)
>
> Подскажите пожалуйста

http://www.podgoretsky.com/ddp/bits.aspx

---

← →
dis12345 ©   (2012-01-23 15:27) [3]

вспоинил про Delphi World- выручила....

procedure SetCAPSLockLedState(bOn: Boolean);    //  caps lock
var
  KBState: TKeyboardState;
  Code: Byte;
begin
  Code := VK_CAPITAL;
  GetKeyboardState(KBState);
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    if Boolean(KBState[Code]) <> bOn then
    begin
      keybd_event(Code,
                  MapVirtualKey(Code, 0),
                  KEYEVENTF_EXTENDEDKEY,
                  0);

      keybd_event(Code,
                  MapVirtualKey(Code, 0),
                  KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
                  0);
    end;
  end
  else
  begin
    KBState[Code] := Ord(bOn);
    SetKeyboardState(KBState);
  end;
end;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.011 c