Pixelfarbe abfragen mit Delphi

[Kamil]

ich meine es ungefähr so (jetzt müsste es eigentlich funktionieren):

Delphi-Quellcode:

function GetPixel(Pos: TPoint): TColor;
var
  DC: HDC;
  Handle: HWND;
  Rect: TRect;
begin
  Handle:=WindowFromPoint(Pos);
  if GetWindowRect(Handle, Rect) then
  begin
    DC:=GetDC(Handle);
    Pos.X:=Pos.X-Rect.Left;
    Pos.Y:=Pos.Y-Rect.Top;
    result:=Windows.GetPixel(DC, Pos.X, Pos.Y);
    ReleaseDC(Handle, DC);
  end
  else
  begin
    result:=CLR_INVALID;
  end;
  if result=CLR_INVALID then
    raise Exception.Create('Fehler...');
end;

(edit: du könntest auch einfach einen Screenshot erstellen und dort dann die Pixel auslesen...)