Color And Coordinate finder!

Hey all, im pretty knew to this scar stuff, and when i very first started, i was looking for a program that would give me the on-screen coordinates and color of the pixel where the mouse was. i couldnt find one so i ended up writing it myslef. There is probably one out there, but i couldnt find it, its helped me alot, i wouldnt be able to do anything without it.

Code:

program ColorFinder;

var color,x,y : integer;
    z,a,b: string;

procedure findcolor;
begin
     z:= '(';
     a:= ',';
     b:= ')';
     GetMousePos(x,y);
     color:=GetColor(x,y);
     writeln('color = '+IntToStr(color)+(z)+IntToStr(x)+(a)+IntToStr(y)+(b));
end;
begin
     findcolor;
end.

 

lol XD its called the color diber the 6th one over from where the target thing is to specify the window look at it go 6 over and boom

? locked?