var H:hwnd;
   r,g,b:word;
   H1:HDC;
begin
H:=Findwindow(nil,'Безымянный - Блокнот');
H1:=GetDC(H);
r:=GetRValue(GetPixel(H1,100,100));
g:=GetGValue(GetPixel(H1,100,100));
b:=GetBValue(GetPixel(H1,100,100));
showmessage('Blue-'+inttostr(r)+#10+
                  'Green-'+inttostr(g)+#10+
                  'Red-'+inttostr(b));
ReleaseDC(H,H1);
end;