Question

这是Delphi（7）。

我一直试图为屏幕找到一个像素搜索器，但没有太多帮助。我发现最多的东西会占用整个屏幕截图并将其存储在画布中，但我不确定这是否真的有必要，因为唯一的目的是检查给定的协调。

我基本上只需要能够使其有效的东西：

procedure TForm1.Button1Click(Sender: TObject);
begin
if(Checkcolor(1222,450) == 000000) then
showmessage('Black color present at coordinates');
end;

Answer 1

尝试使用此代码：

function ColorPixel(P: TPoint): TColor;
var
  DC: HDC;
begin
  DC:= GetDC(0);
  Result:= GetPixel(DC,P.X,P.Y);
  ReleaseDC(0,DC);
end;

显示十六进制颜色的示例程序：

var
  P: TPoint;
  R,G,B: integer;
begin
  GetCursorPos(P);
  Color:= ColorPixel(P);
  R := Color and $ff;
  G := (Color and $ff00) shr 8;
  B := (Color and $ff0000) shr 16;
  ShowMessage(format('(%d,%d,%d)',[R,G,B]));
end;

如果您需要特定窗口的像素，则需要使用窗口句柄修改GetDC调用。

GETDC https://msdn.microsoft.com/en-us/library/windows/desktop/dd144871(v=vs.85).aspx GetPixel https://msdn.microsoft.com/en-us/library/windows/desktop/dd144909(v=vs.85).aspx

修改在该示例中，您可以使用函数（Windows单元）GetRValue，GetGValue，GetBValue来提取RGB组件，而不是位操作。例如：

R:= GetRValue(Color);

如何根据屏幕上的X，Y坐标返回颜色？

1 个答案: