Home » Tipps & Tricks » Grafik » Grafikeigenschaften » Pixelfarben auf dem Desktop ermitteln
Pixelfarben auf dem Desktop ermitteln
Die folgende function ermittelt die Farben eines Pixels auf dem Desktop. Als Parameter müssen die Koordinaten des Pixels übergeben werden:
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; procedure TForm1.Timer1Timer(Sender: TObject); var pos: TPoint; begin GetCursorPos(Pos); Panel1.Color:=DesktopColor(pos.x, pos.y); end;