delphi 取屏幕点颜色

 

var
  dc:HDC;
  p:TPoint;
   RGB:COLORREF ;


begin
  try
    dc:=GetDC(0);
     GetCursorPos(p);
     RGB:=GetPixel(dc,p.X,p.Y);
     edit1.Text := format('$%.6x', [RGB]);


  finally
    releaseDC(0,dc);
  end;
end;

展开阅读全文

没有更多推荐了,返回首页