Delphi! Перехват нажатия клавиши при свернутой форме?

[Человек_Борща]

Вообще-то одного хука клавиатуры с головой хватит.
Там и определишь UP или DOWN.

AlienNation, открыть справку delphi или Windows API не судьба?
Функция принимает одну из констант виртуальных клавишь(те что VT_*), и возвращает либо 0(DOWN) либо 1(UP) ну или как-то наоборот.

А смысла таймера я реально не вижу. Ну разве что, только если хук не использовать, а пользоваться примитивным кодом Timer+GetKeyState. Но это ещё от нужд зависит...

А ещё ваша задача решается "ГЛОБАЛЬНЫМИ" горячими клавишами.

Флаг вам в руки.

[AlienNation]

Сообщение от Человек_Борща

Вообще-то одного хука клавиатуры с головой хватит.
Там и определишь UP или DOWN.

AlienNation, открыть справку delphi или Windows API не судьба?

Гений во мне давно умер, дайте код пожевать.

[fate]

Человек_Борща для хука dll писать, не проще GetKeyState заюзать, темболее ТС нужно только отследить сам момент нажанитя.

TC: еще раз
используй GetKeyState в сочетании с таймером

[Пепел Феникса]

Человек_Борща для хука dll писать, не проще GetKeyState заюзать, темболее ТС нужно только отследить сам момент нажанитя.

и пропустить нажатие можно на раз и два, так что может и не подойти.

кстати, ТС вам точно не хоткей нужен?

[AlienNation]

да нужды эквивалентны showmessage('controled') при нажатии, т.е. каких-то особых заморочек нету, но таймера я боюсь, что-то он мне не нравится.

[Человек_Борща]

fate, именно DLL какраз-таки и нужна. GetKeyState имееет свойство пропускать сообщения.

AlienNation, воспользуйтесь головой, руками и стандартными справками delphi(Есть разница между тем, что я открою справку и скопирую содержимое сюда, или что вы откроете справку и найдете много нового для себя?).

Поддерживаю Пепла Феникса. ТС'у нужен глобальный хоткей(Главное чтоб он не занят был).

[mss]

AlienNation

Приличные кейлоггеры ставят хук WH_LL_KEYBOARD

для хука dll писать

Для WH_LL_KEYBOARD-хука dll нахрен не нужна.

[fate]

интервал таймера поставь 200

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if (GetKeyState(VK_CONTROL)=-127)or(GetKeyState(VK_CONTROL)=-128) then
 showmessage('controled');
end;

[fate]

именно DLL какраз-таки и нужна.

а разве не глобальный хук нужен для отлова нажатие клавиш не в своем приложении?

[AlienNation]

Сообщение от fate

интервал таймера поставь 200

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if (GetKeyState(VK_CONTROL)=-127)or(GetKeyState(VK_CONTROL)=-128) then
 showmessage('controled');
end;

срабатывает после 2-го или 3-его нажатия, killed.