Pixelfarbe auslesen

[Daniel B]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dc: hDc;
begin
  dc := GetDC(0);
  Color := GetPixel(dc, x, y); //statt x und y, bitte Integer eingeben
  ReleaseDC(0, dc);
end;

Von Grotesquery und jbg!

Grüsse, Daniel