запуск определённого кода по нажатию определённой клавиши

[nikolas0]

вообщем выглядет это так запущенная программа слушает нажатие клавишь и если была нажата определённая клавиша программа выполняется установленный код.что то вроде этого if (key='C' or key='c') then keybd_event(Byte('D'),0,0,0); и так далее...

[WorldMaster]

Крутотень

[nikolas0]

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

Крутотень

думаю выглядеть будет действительно круто

[nikolas0]

нужно чтобы нажатие было активно в любом месте не только когда форма активна.

[nikolas0]

Вот так почему то не работает
procedure TForm1.keypress(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_f1 then
ShowMessage('hp');
end;

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

Читайте про клавиатурные хуки WH_KEYBOARD, WH_KEYBOARD_LL

[min@y™]

Кейлоггер, штоли? Да их мульён, хочешь ещё один написать?

[nikolas0]

помогло RegisterHotKey()

[nikolas0]

Сообщение от min@y™

Кейлоггер, штоли? Да их мульён, хочешь ещё один написать?

нет не кей логер.это я всё бота для игры пишу.задумка такая при появление врага нажимаешь клавишу и персонаж начинает уклоняться от пуль выполнять действие влево вправо присядать перемещаться взад вперед чтоб не подстрелить короче было.кейлогеров куча я знаю.

[Smitt&Wesson]

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

Вот так почему то не работает
procedure TForm1.keypress(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_f1 then
ShowMessage('hp');
end;

keypress, работает только при нажатии на клавишу. keydoun, обновляет предыдущее состояние. keyfloat вводит только числа с цифровой клавиатуры.
ShowMessage(). Их два типа. Один, работает с chart, другой с AnsiString.

TForm1.keypress(

И не будет работать. На форме, конечно есть эта фигня, но это не обработчик, а глобальная переменная (не уверен, просто пердполагаю).