[Geleos]

procedure TForm1.tmr1Timer(Sender: TObject);
Вопрос вообщем в том чтобы проверить пиксель в определённых координатах на цвет и если он совпадает то нажать f1 если нет то подождать 10 секунд и начать проверку сначала.Заранее благодарен!

Код:

procedure TForm1.tmr1Timer(Sender: TObject);
 var
    handle:Integer;
begin
handle:=FindWindow(nil, 'Косынка');
  SetForegroundWindow(Handle);
  sleep(2000);
     if
     //Если пиксель в координатах окна равен цвету (Не под курсором)
     then
       PostMessage(handle, WM_KEYDOWN, VK_F1, 0);
       Sleep(1000);
       PostMessage(handle, WM_IME_KEYUP, VK_F1, 0);
       else
       Sleep(10000);
end;

Админ: Пользуемся тегами для оформления кода.