Wie oft kommt eine Farbe in einer Fläche vor

[Sascha L]

Ich habe eine Funktion, mit der ich die Farbe von einem Pixel auf dem Desktop ermitteln kann (habe ich auch im 1. Post erwähnt).

Die Funktion:

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;