请先看下面这小段代码:
var
CurDC: HDC;
CurPoint: TPoint;
Color: TColor;
begin
CurDC := GetDC(0);
if CurDC <> NULL then
try
GetCursorPos(CurPoint);
Color := GetPixel(CurDC,473,305);
Panel1.Color:=Color;
Edit1.Text := '$'+IntToHex(Color, 8);
finally
ReleaseDC(0, CurDC);
end;end;
这个可以取到鼠标当前点的颜色。
我的问题:取记事本窗口的指定点的颜色值,前提是这个记事本已经最小化了!!
请朋友们帮帮我,感激不尽!!!
var
CurDC: HDC;
CurPoint: TPoint;
Color: TColor;
begin
CurDC := GetDC(0);
if CurDC <> NULL then
try
GetCursorPos(CurPoint);
Color := GetPixel(CurDC,473,305);
Panel1.Color:=Color;
Edit1.Text := '$'+IntToHex(Color, 8);
finally
ReleaseDC(0, CurDC);
end;end;
这个可以取到鼠标当前点的颜色。
我的问题:取记事本窗口的指定点的颜色值,前提是这个记事本已经最小化了!!
请朋友们帮帮我,感激不尽!!!
-----在下问这个问题,并非没事找事,确是有应用之用,请朋友们帮帮俺,谢谢!!!
当我发上面这个消息给最小化后的记事本程序时,是可以让鼠标移到那个看不见的窗口指定处(320,184)的,这个已经测试过了,说明那个窗口应该还在,并未销毁
请帮我,谢谢
因为 CurDC := GetDC(0);总是桌面的dc,记事本隐藏了,就不在桌面上了
不过可以先将隐藏前记事本的图拍下来,自己对要抓的点进行坐标转换,然后取颜色
>>请朋友们帮帮我,感激不尽!!!
這個取色跟你提供的代碼根本是不同的實現原理! 難!