[Помогите!] Найти цвет

[=PaLeTiZaToR=]

Помогите пожалуйста.

Нужно что бы сканировался экран на наличие нужного цвета. Если найден заданный цвет , то тыкнуть по ТЕМ КООРДИНАТАМ , ГДЕ ОН НАЙДЕН

Никак не могу найти реализации такого.
(гугл не совсем понимает меня )

[metraz]

Цитата: Сообщение от =^PaLeTiZaToR^= Помогите пожалуйста. Нужно что бы сканировался экран на наличие нужного цвета. Если найден заданный цвет , то тыкнуть по ТЕМ КООРДИНАТАМ , ГДЕ ОН НАЙДЕН Никак не могу найти реализации такого. (гугл не совсем понимает меня )

Этот пример не совсем подходит под условие, поскольку сканирует только 1 точку, но я думаю воткнуть цикл поиска цвета по экрану для тебя не составит проблем)
var
DC: HDC;
Color: Cardinal;
x,y:integer;
begin
DC := CreateDC('MONITOR', nil, nil, nil);
Color := GetPixel(DC, x, y); //получаем цвет в точке x,y
if color такой то then begin
SetCursorPos(X,Y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
end;
end;

[=PaLeTiZaToR=]

Цитата: Сообщение от metraz Этот пример не совсем подходит под условие, поскольку сканирует только 1 точку, но я думаю воткнуть цикл поиска цвета по экрану для тебя не составит проблем) var DC: HDC; Color: Cardinal; x,y:integer; begin DC := CreateDC('MONITOR', nil, nil, nil); Color := GetPixel(DC, x, y); //получаем цвет в точке x,y if color такой то then begin SetCursorPos(X,Y); Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0); Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0); end; end;

Спасибо , но слишком долго. Неужели нет быстрого способа, просто найти на экране нужный цвет и тыкнуть туда

[Dinmaite]

Ответ был дан несколькими темами ниже.