DBR Delphi-Ecke

// Hiermit greift man auf ein Pixel des Desktops zu. Wenn sich dort ein
// ein geöffnetes Fenster befindet, also auf die Farbe des Punktes auf
// diesem Fenster. Siehe auch: direkt auf den Desktop zeichnen

// Getestet mit D4 unter WinME

function DeskPix(x, y: integer): TColor; overload; 
var dc: HDC; 
begin 
  dc := GetDC(0); 
  result := getpixel(dc, x, y); 
  releasedc(0, dc); 
end; 
 
procedure DeskPix(x, y: integer; c: TColor); overload; 
var dc: HDC; 
begin 
  dc := GetDC(0); 
  setpixel(dc, x, y, c); 
  releasedc(0, dc); 
end; 
 
 
// Beispielaufruf 
 
procedure TFormx.Button2Click(Sender: TObject); 
var x, y: integer; 
begin 
// -- lesen --- 
  label1.caption := colortostring(deskpix(0, 20)); 
//--- setzen --- 
  for y := 0 to 4 do 
    for x := 0 to 99 do 
      deskpix(x, 20 + y * 5, clred); 
end;