1 respuesta en este tema

[sir.dev.a.lot]

[Truco Delphi] Obtener el Color de un Pixel de el Escritorio.

delphi

function DesktopColor(const x,y: integer): TColor;
	var
	  c:TCanvas;
	begin
	  c:=TCanvas.create;
	  c.handle:=GetWindowDC(GetDesktopWindow);
	  result:=getpixel(c.handle,x,y);
	  c.free;
	end;

Ejemplo de uso:

usando un Timer

delphi

procedure TForm1.Timer1Timer(Sender: TObject);
	var
	  pos: TPoint;
	begin
	  GetCursorPos(Pos);
	  Panel1.Color:=DesktopColor(pos.x, pos.y);
	end;

Saludos!

[escafandra]

[DELPHI] Obtener el color de un pixel de la pantalla

 

Saludos.