Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Отслеживание клавиатуры [D7, WinXP]

Galiaf © (2006-04-12 20:55:00)
Вот мне надо, чтобы моя программа висела сибе в поцессах и ничего не далала, а при нажатии комбинации клавиш (во всей системе), например ctrl+shift+c, она должна выполнять свою работу.
Делал я следующим образом:
сделал dll-ку в которой несколько процедурок:
- создание хука
HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, HInstance, 0);
- удаление хука
if HookHandle <> 0 then
UnhookWindowsHookEx(HookHandle);
- и собственно отслеживание клавиатуры и посылание сообщения своей пограмме
function KeyHook(Code: integer; WParam: word; LParam: Longint): Longint;
var
wnd: hWnd;
begin
if Code >= 0 then begin
wnd := FindWindow('TUniClock', nil);
SendMessage(wnd, KeyEvent, wParam, lParam);
Result := 0;
end else
Result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

И в самой программе подключаю библиотеку, создаю хук, принимаю сообщения и ondestroy удаляю хук.

procedure TUniClock.WM_NextMSG(var Msg: TMessage);
begin
with msg do
case wParam of
$58, $78: If (hiword(GetKeyState(vk_lshift))<>0) then beep
end
end;
это то чем ловлю сообщения, $58, $78 - это как я понимаю X и x, Конечно это не работает (если бы работало, я бы не спрашивал), при нажатии на клавиши с зажатым alt-ом появляется звук хотя по идее он должен быть только по нажатию на Shift+x. Что тут не правильно? Или как сделать по-другому?

Leonid Troyanovsky (2006-04-16 20:55:00) [1]

> Galiaf © (16.04.06 20:22) [7]

> Что-то я не могу полностью понять, как вот это правильно
> использовать. Можно сделать пример с использованием комбинации
> ctrl+shift+c? У меня с этим получилось тоже самое

А чем тебе не понравился пример [3] by Peter Below?
И что конкретно не получилось?

Могу снабдить более полным его текстом:

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/0c2d0a9b7d129cc8

--
Regards, LVT.

Galiaf (2006-04-16 20:22:00) [2]
Что-то я не могу полностью понять, как вот это правильно использовать. Можно сделать пример с использованием комбинации ctrl+shift+c? У меня с этим получилось тоже самое что и в моём варианте.

Woolen (2006-04-15 15:09:00) [3]

> elen (14.04.06 11:08) [4]
> Как мне превратить скен код полученный таким хуком в нормальную
> клавишу

ToAsciiEx
ToUnicode
ToUnicodeEx
И вышеуказанные
MapVirtualKey
MapVirtualKeyEx
Есть из чего выбирать под конкретную задачу. Я последний раз пользовался ToAsciiEx.

Игорь Шевченко (2006-04-14 13:00:00) [4]

> Как мне превратить скен код полученный таким хуком в нормальную
> клавишу

MapVirtualKey(Ex)

elen (2006-04-14 11:08:00) [5]
Как мне превратить скен код полученный таким хуком в нормальную клавишу

Handle (2006-04-14 09:45:00) [6]
private procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY; public { Public declarations } end; procedure TForm1.WMHotkey( var msg: TWMHotkey ); begin ... end; procedure TForm1.FormCreate(Sender: TObject); begin if not RegisterHotkey(Handle, 1, MOD_ALT , VK_F9) then Beep; ShowMessage('Unable to assign Alt-F9 as hotkey.'); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin UnRegisterHotkey( Handle, 1 ); end;

Galiaf (2006-04-13 23:30:00) [7]
Мне это ни о чём не говорит. По-конкретнее. Если думаешь, что программа - некая падлянка, уверяю это не так.

Leonid Troyanovsky (2006-04-12 21:37:00) [8]

> Galiaf © (12.04.06 20:55)

> Вот мне надо, чтобы моя программа висела сибе в поцессах
> и ничего не далала, а при нажатии комбинации клавиш (во
> всей системе), например ctrl+shift+c, она должна выполнять
> свою работу.

RTFM: RegisterHotKey.

Regards, LVT,

Наверх

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