Vielleicht so:
Delphi-Quellcode:
function GetPixel(Pos: TPoint): TColor;
var
DC: HDC;
Handle: HWND;
begin
Handle:=WindowFromPoint(Pos);
DC:=GetDC(
Handle);
result:=Windows.GetPixel(
DC, Pos.X, Pos.Y);
ReleaseDC(
Handle,
DC);
end;
Hab's aber nicht gestestet!