delphi - 如何找到屏幕上任何像素的颜色

Question

我通常在 VB6 中编程，但我相信我可能会受限于事件表单中的细节。我也有带有 c++ 和 delphi 的 codegear 2009，这是我从一个伙伴那里得到的，但我对 Delphi 只有一点经验，对 c++ 一点也没有，但至少我有它们，如果需要使用其中一个程序来实现我的目标正在尝试做。我希望能够做类似的事情

IF pixelVar(x,y) = 'Red' ( or 'RGBvalue or whatever the correct colour representation)
THEN
    do something
END IF

我想编写一个程序来保持扑克手统计，并希望程序在我玩扑克客户端程序时运行，通过像素颜色和位置自动识别卡片并将它们输入数据库。我认为，如果我可以轻松访问像素信息，那么找出模式来识别卡片的数量和花色就不会太困难。任何帮助都将是巨大的。谢谢。

Answer 1

使用 GetDC()将其 hWnd 参数设置为 0 以获得屏幕的 HDC 句柄，然后使用 GetPixel()获取 COLORREF在所需的屏幕坐标处的像素，然后最后使用 GetRValue() , GetGValue() , 和 GetBValue()将 COLORREF 拆分为红色、绿色和蓝色值。