Отлов цвета в определенной области экрана

[adkomissarov]

Всем доброго времени суток. На сколько сложно реализовать такой механизм? Хочется автоматизировать некоторые вещи. Ситуация такая: в определенной области экрана (всегда в одном и том же месте) появляется текст (одно слово, оно всегда разное) разного цвета (синий, красный и зелёный). Алгоритм автоматизации такой:
-если цвет слова зелёный, то сделать одно действие;
-если цвет слова синий, то сделать второе действие;
-если цвет красный красный, то сделать третье действие;
Сложность для меня именно в первых частях(определить цвет), со второй частью всё просто. Я так понимаю достаточно отловить цвет определенного пикселя и затем сравнивать его с синим, зеленым и красным. Но это всё теория, а на практике я даже боюсь представить сколько тут тягомотины, тем более для моего уровня. У кого есть какие мысли? Буду признателен любой помощи.

[min@y™]

достаточно отловить цвет определенного пикселя

Координаты пикселя заведомо известны?

[adkomissarov]

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

Координаты пикселя заведомо известны?

Да..........

[min@y™]

Прочитай вот это вот.

[adkomissarov]

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

Прочитай вот это вот.

Возвращает в виде числа, например 4408130, как определить цвет по вот такому числу, это чтобы убедиться в правильности работы.

[min@y™]

4408130 = 0x434342 - доли R, G, B в цвете этого пикселя.

Ещё вопросы е?

[Arigato]

Еще как вариант:

var
  Desktop: TCanvas;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  P: TPoint;
  C: TColor;
begin
  GetCursorPos(P);
  C := Desktop.Pixels[P.X,P.Y];
  Color := C;
  Caption :=
    'RGB('+
    IntToStr(GetRValue(C))+
    ','+
    IntToStr(GetGValue(C))+
    ','+
    IntToStr(GetBValue(C))+
    ')';
end;

initialization
  Desktop := TCanvas.Create;
  Desktop.Handle := GetDC (0);

finalization
  Desktop.Free

end.

[adkomissarov]

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

4408130 = 0x434342 - доли R, G, B в цвете этого пикселя.

Ещё вопросы е?

Е!) Почему 4408130 = 0х434342

[min@y™]

Да не знаю. :D Но вопрос - просто супер!!! Типа "почему негры чёрные?".
Вроде всегда так было, есть и будет есть!

Как теперь заснуть? Я ФШОКЕ!

[adkomissarov]

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

Да не знаю. :D Но вопрос - просто супер!!! Типа "почему негры чёрные?".
Вроде всегда так было, есть и будет есть!

Как теперь заснуть? Я ФШОКЕ!

Хорошо, откуда ты взял вот это - 0х434342