如何获得屏幕上某点的色彩?

[qxhou]

我想获得屏幕上坐标(25,26)的颜色

如果屏幕坐标(27,74)的色彩不是#cb5
这一句,我想用DELPHI语句写,要如何写?

[ccrun.com]

GetPixel

[qxhou]

如何使用呀?朋友.我急用.

[ccrun.com]

procedure TForm1.Button1Click(Sender: TObject);
var
cl: TColorRef;
begin
cl := GetPixel(GetDC(0), 27, 74);
if(cl <> $cb5)
//
...
end;