hey danke, auf den ersten blick sieht der speicher super aus,
werde das nun mal länger testen.
der korrekte code für die funktion heißt dann:
Delphi-Quellcode:
function DesktopColor(const x,y: integer): TColor;
var
DesktopDC: HDC;
begin
DesktopDC := GetWindowDC(GetDesktopWindow);
Result := GetPixel(DesktopDC, x, y);
ReleaseDC(GetDesktopWindow,DesktopDC);
end;