Как программа может отловить нажатие клавиши на клавиатуре так, чтобы затем другие приложения и окна не получили сообщение, что нажата эта клавиша? Я так понимаю, что кроме всего прочего, отлавливающая программа должна иметь более высокий приоритет, чем остальные, от которых скрывается нажатие (остальными судя по всему будут все приложения обычно запускаемые под Виндой, т.е. приоритет - средний). Как поднять приоритет? (прошу не счесть за два вопроса в одном топике - второй вопрос - часть глобального первого )
Иными словами (по поводу второго вопроса), кажется, вообще получится что-то вроде драйвера.

Наверное ловить WM_KEYDOWN или WM_KEYPRESS

Отловить то само нажатие я смогу, как не отдать его другим приложениям?

Этот вопрос меня тоже интересует.
Только дело тут не в приоритете. Его-то повысить просто:
Например:

Код

{var p : DWORD;} p := IDLE_PRIORITY_CLASS; // Низкий p := NORMAL_PRIORITY_CLASS; // Средний P := HIGH_PRIORITY_CLASS; // высокий p := REALTIME_PRIORITY_CLASS; // Реального времени

Выше среднего и ниже среднего - я отловить не смог. В хелпе есть, но видно, я что-то не понимаю... Однако суть в том, что это ни фига не влияет на перекрытие клавиш. Это я проверял. Тут нужно прежде всего разобраться в теоретическом аспекте, но он-то как раз для меня остается загадкой. Я тоже в свое время пытался отловить сочетания клавиш, перекрываемые игрушкой. Но потерпел неудачу. Буду вместе с вами с интересом ждать новых ответов.

Нужно использовать Hooks -- скачай FAQ от Vit'a? там есть исчерпывающая информация по этой теме. (И не только по этой )

Если упрощенно, то я делал примерно так:

Код

(*private    { Private declarations }  vk : integer;  procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;*) procedure TForm1.Button1Click(Sender: TObject); var  kbrt : string[1];  hkey1, hkey : byte; begin  hkey1 := MOD_SHIFT + MOD_CONTROL;  kbrt := 'A';  hkey := ord (kbrt[1]);  vk := GlobalAddAtom('Hotkey');  RegisterHotKey(Handle, vk, hkey1, hkey); end; procedure TForm1.WMHotKey(var Msg: TWMHotKey); begin  if Msg.HotKey = vk then    ShowMessage ('Какое-то событие'); end;

Точно, в FAQ есть два примера hook'a, но что-то я не понял как они работают. (может кто объяснит )

Цитата

Только дело тут не в приоритете. Его-то повысить просто

А само задание приоритета я забыл написать. Вот оно:

Код

{var ProcessID : DWORD; ProcessHandle : THandle;} ProcessID := GetCurrentProcessID; ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION, false,  ProcessID); SetPriorityClass(ProcessHandle, proc);

Я уже устал эту ссылку давать
http://delphimaster.ru/articles/hooks/index.html

Спасибо, dm9.
Если кто-нибудь ещё знает где почитать про это, то я не откажусь от дополнительных ссылок.

Спасибо, mmv, за приоритеты (описание установления). Осталась нам сама малость... :разобраться с hook'ом

Статья, указанная dm9, действительно подробно описывает ловушки и механизм их работы, но в ней я не нашёл ответа на вопрос: а как же отменить событие, т.е. убрать само сообщение из очереди, чтобы оно не было передано окну (приложению).

Цитата(Tamerlann @ 11.2.2004, 13:24)

Статья, указанная dm9, действительно подробно описывает ловушки и механизм их работы, но в ней я не нашёл ответа на вопрос: а как же отменить событие, т.е. убрать само сообщение из очереди, чтобы оно не было передано окну (приложению).

Код

Result := 1; CallNextHookEx(...)

Sorry, не понял. Можно просто попдробнее описать?, пожалуйста. (т.е. как работает)

Только-что попробовал то, что предложил <Spawn> - всё просто великолепно работает!!!! Большое! спасибо, <Spawn>.

Но всё же, что это за Result?

Это сообщение отредактировал(а) Tamerlann - 11.2.2004, 21:49

Я не помню как обстоят дела с WH_KEYBOARD, но для WH_CBT хука, в зависимости от результата выполнения функции хука, разрешается или запрещается операция. Так что попробуй что то типа этого:

Код

function KeyBoardProc(Code: integer; _wParam: WPARAM; _lParam: LPARAM): LongInt; stdcall; begin  ...  //Если нужно отменить нажатие, то  Result := 1;  //...Передать управление следующему хуку в цепочке хуков  CallNextHookEx(...); end;