Bildschirm nach Farbe absuchen

[obbschtkuche]

z.B. so:

Delphi-Quellcode:

function FindPixel(DC: HDC;left, top, width, height: word; color: COLORREF): boolean;
var
 x,y: integer;
begin
 for x := left to left + width do
  for y := top to top + height do
   if GetPixel(dc, x, y) = color then
   begin
    result := true;
    exit;
   end;
 result := false;
end;

Aufrufen kannst du es z.B. dann so:

if FindPixel(canvas.Handle, 0, 0, 100, 100, RGB(255,0,0)) then ...