Get Screen color @ curr mouse pos

Hi ! How do I get the color at the current mouse position (global) ?
How to convert it to RGB value ?

regards
ItsMe
ItsMeAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

rene100Commented:
Hi

don't know if there is an easier soltution, but this one should work: Get the mouse coordinates with GetCursorPos, then copy the screen to a tbitmap and get the color with the canvas.pixels property..this sould be a rgb-value

regards
rene
0
CalvinDayCommented:
use

function Pixel(x,y:integer):integer;
var
dc:HDC;
begin
  dc:=GetDC(0);
  GetPixel(dc,x,y);
  ReleaseDC(0,dc);
end;
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
CalvinDayCommented:
Sorry: should read Result:=GetPixel(dc,x,y);
0
Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

bryan7Commented:
listenning
0
simonetCommented:
Following...®
0
ItsMeAuthor Commented:
it works pretty cool. this was a good idea...

regards
ItsMe
0
CalvinDayCommented:
Thanks.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.