[unity]

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

Код:

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 в окно посылаеться множество нажатий)

решил это вот так:

Код:

var
  Form1: TForm1;
   id:HWND;
   f:Integer;
implementation

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);
begin
if (getasynckeystate($71)<>0) and (f=0) then
 begin
 id:=StrToInt(hwnd1.Text);
 PostMessage(id,WM_KEYDOWN,vk_F1, 0);
     PostMessage(id,WM_KEYUP,vk_F1, 0);
     f:=f-1;
     end
  else
  f:=0;
end;