Управление клавиатурой

[igrok111]

Как сделать такое? Программа должна проверить - если зажата клавиша Esc - то нужно циклично нажимать Enter. Только не форме программы, программа свернута, она должна просто эмулировать нажатие клавиши ентер типо много раз подряд, но только в случае если зажат Esc

upd наверно нужно проверять по таймеру условие - if зажат ecc то чтото делать. Меня большле интересует будет ли это работать, если прога свернута, или нужно типо ставить хуки в функциях?

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

Меня большле интересует будет ли это работать, если прога свернута, или нужно типо ставить хуки в функциях?

Не будет работать если свернута.

Установка хука работает везде, в отличии от таймеров.

[Larboss]

procedure SimulateKeyDown(Key: byte);
begin
  keybd_event(Key, MapVirtualKey(Key, 0), 0, 0);
end;

procedure SimulateKeyUp(Key: byte);
begin
  keybd_event(Key, MapVirtualKey(Key, 0), KEYEVENTF_KEYUP, 0);
end;

В таймере:
 if (GetAsyncKeyState(VK_Escape) <> 0) then // VK_ESCAPE - тут поставить код Esc
  begin  
    SimulateKeyDown(VK_ENTER);
    Sleep(100);
    SimulateKeyUP(VK_ENTER);
  end;

Как пример привел. Если свернута, то будет работать. Сворачивание не приводит к остановке таймера, если программист не указал это делать. Даже если у приложения скрыть форму.

[igrok111]

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

procedure SimulateKeyDown(Key: byte);
begin
  keybd_event(Key, MapVirtualKey(Key, 0), 0, 0);
end;

procedure SimulateKeyUp(Key: byte);
begin
  keybd_event(Key, MapVirtualKey(Key, 0), KEYEVENTF_KEYUP, 0);
end;

В таймере:
 if (GetAsyncKeyState(VK_Escape) <> 0) then // VK_ESCAPE - тут поставить код Esc
  begin  
    SimulateKeyDown(VK_ENTER);
    Sleep(100);
    SimulateKeyUP(VK_ENTER);
  end;

Как пример привел. Если свернута, то будет работать. Сворачивание не приводит к остановке таймера, если программист не указал это делать. Даже если у приложения скрыть форму.

вот щас парюсь со значением interval у таймера и sleep. к примеру sleep 300 а если таймер всего 10. таймер выполняется но событие в нем не успеет выполнится до следущего выполнения таймера. точно такие же проблеммы если слип меньше чем таймер
хотя просто сложно этот момент настроить, но можно)

upd: спасибо, это я мудрю что-то наноч глядя, вроде получается нормально

[northener]

таймер выполняется но событие в нем не успеет выполнится до следущего выполнения таймера

В таймере:
 if (GetAsyncKeyState(VK_Escape) <> 0) then // VK_ESCAPE - тут поставить код Esc
  begin  
    Timer1.Enabled:=False;
    SimulateKeyDown(VK_ENTER);
    Sleep(100);
    SimulateKeyUP(VK_ENTER);
    Timer1.Enabled:=True;
  end;