中科新闻网终极强少免费:怎么从屏幕上读取任意一点的RGB值和坐标值?
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 03:26:13
怎么从屏幕上读取任意一点的RGB值和坐标值?
即怎样跟踪鼠标。
即怎样跟踪鼠标。
我给你用delphi实现的方法
首先放一个MouseHook控件到窗体上，这个控件用来与鼠标挂勾
再放一个Edit和一个Panel
代码如下：
procedure TForm1.MouseHook1MouseMove(const Handle: HWND; const X,
Y: Integer);
var
t:tcanvas;
ptMousePos:Tpoint;
begin
Edit1.Text:='X:'+IntToStr(x)+' Y:'+inttostr(y);//显示鼠标位置
t:=tcanvas.Create;
t.Handle:=getdc(0);//获取屏幕
panel1.Color:=t.Pixels[x,y];//取出当前像素的颜色值
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
self.MouseHook1.Start;//启动鼠标勾子
end;
取得当前鼠标在屏幕上的位置：
POINT point;
::GetCursorPos(&point);
GetPixel是取得当前点的颜色值
这是编程版...哪个编译器有吸管工具请介绍一下
用吸管工具