Как включить Caps Lock
procedure TMyForm.Button1Click(Sender: TObject);
Var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);
end;
|
Для Caps Lock замените VK_NUMLOCK на VK_CAPITAL.
|
|
  |
|
где купить зеленую карту . сервис Ситроен Самара . Автоматический Паллетоупаковщик . Кухонные диваны: спальный гарнитур. Спальные Гарнитуры! Выгодно. . Недорогие свадебные платья найти цены на сайте. Недорогие свадебные платья лучшие цены в каталоге. . |