Код:
procedure TForm1.tmr1Timer(Sender: TObject);
begin
if getasynckeystate($71)<>0 then
t:= PChar(edt1.Text); // считывает назавание окна из edt1
id:=FindWindow(nil,(t)); // узнаёт hwnd окна
PostMessage(id,WM_KEYDOWN,vk_F1, 0); //посылает нажатие кнопки f1 окну
PostMessage(id,WM_KEYUP,vk_F1, 0); // посылает отжатие кнопки f1 окну
end;
как сделать чтобесли я нажал 1 раз F2 то и в окно 1раз было послоно нажатиеи отжатие F1
(щас у меня после тогокак нажал 1раз F2 в окно посылаеться множество нажатий)