auslesen der farbe eines pixels auf dem monitor

[Meflin]

Das hatten wir schon öfters... Pixelfarbe

Delphi-Quellcode:

function DesktopColor(const X, Y: Integer): TColor; 
var 
  c: TCanvas; 
begin 
  c := TCanvas.Create; 
  try 
    c.Handle := GetWindowDC(GetDesktopWindow); 
    Result   := GetPixel(c.Handle, X, Y); 
  finally 
    c.Free; 
  end; 
end; 
procedure TForm1.Button1Click(Sender: TObject); 
var 
Pos: TPoint; 
begin 
GetCursorPos(Pos); 
  Panel1.Color := DesktopColor(Pos.X, Pos.Y); 
end;