我不是耍delphi的...sorry!Dim pt As POINTAPI Dim mColor As Long, mHDC As Long mHDC = GetDC(0&) mColor = GetPixel(mHDC, 0, 0)'获取屏幕0,0位置的的意思红=(mColor Mod 256) 绿=(mColor \ 256 \ 256) 蓝=((mColor \ 256) Mod 256)
你的意思是 loop 1024 * 786 times ???????????????????????????? o my God ... Let me try...
他割说地!
Dim mColor As Long, mHDC As Long
mHDC = GetDC(0&)
mColor = GetPixel(mHDC, 0, 0)'获取屏幕0,0位置的的意思红=(mColor Mod 256)
绿=(mColor \ 256 \ 256)
蓝=((mColor \ 256) Mod 256)
不过你也可以想像,先扫1024*768遍!找到红点后再在那坐标附近假设一个可能的矩形区域来再扫!
或者你那game的红点只会出现在某一特定的地方就好办了!
但,能不能正常扫出所有坐标的颜色也要看你是什么游戏了!记得我之前试过一个不行!