Мышка/клавиатура
Нужно ловить сообщение WM_INPUTLANGCHANGEREQUEST
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
| · | Setup.bat |
|
Code: |
|
@echo off copy HookAgnt.dll %windir%\system copy kbdhook.exe %windir%\system start HookAgnt.reg |
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
Эта процедура посылает сообщение о нажатии клавиши.
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
Для этого можно воспользоваться функцией GetHeapStatus:
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
|
Code: |
|
SendMessage(Handle,WM_SYSCOMMAND,SC_TASKLIST,0); |
Автор ответа: TwoK
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
|
Code: |
|
procedure EmptyKeyQueue; var msg: TMsg; begin while PeekMessage(msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do ; end;
begin EmptyKeyQueue; end. |
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
|
Code: |
|
procedure TForm1.Button1Click(Sender: TObject);//На русский var Layout: array[0.. KL_NAMELENGTH] of char; begin LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE); end;
procedure TForm1.Button2Click(Sender: TObject);//На английский var Layout: array[0.. KL_NAMELENGTH] of char; begin LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE); end; |
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
|
Code: |
|
private {©Drkb v.3, ®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}
Procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY; ..... procedure TForm1.CMDialogKey(var Msg: TWMKey); begin //здесь Ваш код Msg.Result := 0 end; |
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
|
Code: |
|
VAR KS: TKeyboardState; begin GetKeyboardState(KS); KS[020] := KS[020] XOR 1; //Caps Lock KS[144] := KS[144] XOR 1; //Num Lock KS[145] := KS[145] XOR 1; //Scroll Lock SetKeyboardState(KS); end; |
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
Проверяйте значение переменной key на равенство VK_RIGHT, VK_LEFT, VK_F1 и т.д. на событии KeyDown формы
Автор: Arx
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
Возможный вариант - присвоить ссылку на этот компонент свойству FocusControl TLabel'а. В примере используется невидимый Label для создания "быстрой" клавиши (Alt+M) компонента Memo. Чтобы использовать пример, разместите на форме компонент TMemo, Label и несколько других компонентов, которые могут принимать фокус ввода. Запустите программу, переведите фокус ввода куда-нибудь вне Memo и нажмите Alt+M - фокус ввода вернется в Memo.
- Подробности
- Родительская категория: Мышка/клавиатура
- Категория: Клавиатура
Страница 3 из 8