Ваш вопрос вызвал у меня интерес, поэтому я немного покопался и, хотя, к сожалению, у меня нет для вас правильного ответа, я подумал, что поделюсь тем, что у меня есть.
Я нашел этот пример создания хука клавиатуры (в Delphi) написанный в 1998 году, но его можно скомпилировать в Delphi 2007 с парой настроек.
Это DLL с вызовом SetWindowsHookEx
который проходит через функцию обратного вызова, которая затем может перехватывать нажатия клавиш: в этом случае она возится с ними для удовольствия, меняет левый курсор на правый и т. Д. Затем простое приложение вызывает DLL и сообщает об этом. его результаты основаны на событии TTimer. Если вам интересно, я могу опубликовать код на основе Delphi 2007.
Он хорошо задокументирован и прокомментирован, и вы потенциально можете использовать его как основу для определения того, где происходит нажатие клавиши. Если бы вы могли получить дескриптор приложения, отправляющего нажатия клавиш, вы могли бы отследить его таким образом. С этим дескриптором вы сможете довольно легко получить необходимую информацию.
Другие приложения пытались определять горячие клавиши, просматривая свои ярлыки, поскольку они могут содержать горячую клавишу, что является просто еще одним термином для горячей клавиши. Однако большинство приложений не склонны устанавливать это свойство, поэтому оно может не возвращать много. Если вас интересует этот маршрут, Delphi имеет доступ к IShellLink
COM-интерфейсу, который вы можете использовать для загрузки ярлыка и получения его горячей клавиши:
uses ShlObj, ComObj, ShellAPI, ActiveX, CommCtrl;
procedure GetShellLinkHotKey;
var
LinkFile : WideString;
SL: IShellLink;
PF: IPersistFile;
HotKey : Word;
HotKeyMod: Byte;
HotKeyText : string;
begin
LinkFile := 'C:\Temp\Temp.lnk';
OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, SL));
// The IShellLink implementer must also support the IPersistFile
// interface. Get an interface pointer to it.
PF := SL as IPersistFile;
// Load file into IPersistFile object
OleCheck(PF.Load(PWideChar(LinkFile), STGM_READ));
// Resolve the link by calling the Resolve interface function.
OleCheck(SL.Resolve(0, SLR_ANY_MATCH or SLR_NO_UI));
// Get hotkey info
OleCheck(SL.GetHotKey(HotKey));
// Extract the HotKey and Modifier properties.
HotKeyText := '';
HotKeyMod := Hi(HotKey);
if (HotKeyMod and HOTKEYF_ALT) = HOTKEYF_ALT then
HotKeyText := 'ALT+';
if (HotKeyMod and HOTKEYF_CONTROL) = HOTKEYF_CONTROL then
HotKeyText := HotKeyText + 'CTRL+';
if (HotKeyMod and HOTKEYF_SHIFT) = HOTKEYF_SHIFT then
HotKeyText := HotKeyText + 'SHIFT+';
if (HotKeyMod and HOTKEYF_EXT) = HOTKEYF_EXT then
HotKeyText := HotKeyText + 'Extended+';
HotKeyText := HotKeyText + Char(Lo(HotKey));
if (HotKeyText = '') or (HotKeyText = #0) then
HotKeyText := 'None';
ShowMessage('Shortcut Key - ' + HotKeyText);
end;
Если у вас есть доступ к Safari Books Online , есть хороший раздел о работе с ярлыками / ссылками на оболочку в Руководстве разработчика Borland Delphi 6 Стива Тейшейры и Ксавьера Пачеко. Мой пример выше - это забитая версия оттуда и с этого сайта .
Надеюсь, это поможет!
WM_HOTKEY
сообщение в журнале сообщений после нажатия горячей клавиши, вам может потребоваться запустить 32-битную версию Spy ++. .После некоторых исследований выяснилось, что вам понадобится доступ к внутренней структуре, которую MS использует для хранения горячих клавиш. ReactOS имеет реализацию «чистой комнаты», которая реализует
GetHotKey
вызов путем перебора внутреннего списка и извлечения горячей клавиши, которая соответствует параметрам вызова.В зависимости от того, насколько близка реализация ReactOS к реализации MS, вы можете покопаться в памяти, чтобы найти структуру, но это выше моей головы ...
Я предполагаю, что эта ветка на sysinternals была задана кем-то, кто связан с этим вопросом, но я решил, что все равно свяжусь с ней, чтобы сохранить их вместе. Тема выглядит очень интригующе, но я подозреваю, что потребуется некоторое глубокое исследование, чтобы понять это без доступа к внутренним компонентам MS.
источник
Вне моей головы вы можете попробовать перечислить все окна с помощью EnumWindows, а затем в обратном вызове отправить WM_GETHOTKEY в каждое окно.
Изменить: По-видимому, я ошибался. В MSDN есть дополнительная информация:
Примечание. Вот программа, которая, как предполагается, обладает нужными вам функциями. Вы можете попробовать его декомпилировать.
источник
Кажется, это о многом вам говорит: http://hkcmdr.anymania.com/help.html
источник
hoo
использованиеSetWindowHookEx
для установки двух хуков, одногоWH_KEYBOARD_LL
и одногоWH_GETMESSAGE
... все остальное должно быть в значительной степени задокументировано в MSDN.В другом потоке упоминается глобальный перехват клавиатуры уровня NT:
Переназначить / переопределить горячую клавишу (Win + L) для блокировки окон
возможно, вы сможете получить дескриптор процесса, который вызывал перехватчик таким образом, который затем можно преобразовать в имя процесса
(отказ от ответственности: он был у меня в закладках, на самом деле не пробовал / не тестировал)
источник
Я знаю, что вы можете перехватить поток сообщений в любом окне в вашем собственном процессе - то, что мы привыкли называть подклассом в VB6. (Хотя я не помню эту функцию, возможно, SetWindowLong?) Я не уверен, можно ли это сделать для окон вне вашего собственного процесса. Но ради этого поста предположим, что вы найдете способ сделать это. Затем вы можете просто перехватить сообщения для всех окон верхнего уровня, отслеживать сообщение WM_HOTKEY. Вы не сможете узнать все клавиши сразу, но по мере их нажатия можно легко определить, какое приложение их использует. Если вы сохраняете свои результаты на диске и перезагружаете их каждый раз при запуске приложения монитора, вы можете со временем повысить производительность своего приложения.
источник
Это не совсем ответ на часть вопроса, касающуюся Windows API, но он отвечает на часть вопроса, касающуюся списка глобальных горячих клавиш и приложений, которые «владеют» ими.
В бесплатном обозревателе горячих клавиш на http://hkcmdr.anymania.com/ отображается список всех глобальных горячих клавиш и приложений, которым они принадлежат. Это просто помогло мне понять, почему перестала работать горячая клавиша для конкретного приложения и как это исправить (перенастроив зарегистрированную глобальную горячую клавишу в приложении, в котором она была зарегистрирована), в течение нескольких секунд.
источник