1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
Farbe:TColor;
Pixel:TBitmap;

procedure TMainForm.FormCreate(Sender: TObject);
begin
Pixel:=TBitmap.Create;
Pixel.Width:=1;
Pixel.Height:=1;
BitBlt(Pixel.Canvas.Handle,0,0,1,1,GetDC(0),xcoorinate ,ycoordinate,SRCCOPY);
Farbe:=Pixel.Canvas.Pixels[0,0];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

function ScreenshotHidden(wnd: HWND; const bmp: TBitmap): Boolean;
var
  rec: TRect;    //zum Zwischenspeichern der Fenstergröße
  dllh: THandle; //Handle der user32.dll
  //Prototyp der verwendeten Funktion
  PrintWindow: function(sHandle: HWND; dHandle: HDC; nFlags: UINT): BOOL; stdcall;
begin
  Result := False;                     //Rückgabewert initialisieren
  dllh := GetModuleHandle(user32);     //dll dynamisch laden...
  if dllh <> 0 then
  begin
    @PrintWindow:= GetProcAddress(dllh , 'PrintWindow'); //die Funktionsadresse aus der Dll laden...
    if @PrintWindow <> nil then
    begin
      GetWindowRect(wnd, rec);           //Größe des Fensters auslesen...
      bmp.Width := rec.Right - rec.Left;   //...und die Bitmap-Größe anpassen
      bmp.Height := rec.Bottom - rec.Top;
      bmp.Canvas.Lock;                 //Zugriff auf den Canvas für andere Threads blockieren
      try
        result := PrintWindow(wnd, bmp.Canvas.Handle, 0); //Das Fenster zeichnet sich
                                                          //selbst in das HDC des Bitmaps
      finally
        bmp.Canvas.Unlock;             //Zugriff wieder erlauben
      end;
    end;
  end;
end;

procedure TForm5.Button1Click(Sender: TObject);
var
 hwnd:THandle;
 bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  try
  hwnd := FindWindow('notepad',nil);
  if hwnd<>0 then ScreenshotHidden(hwnd,bmp);
  image1.Picture.Assign(bmp);
  finally
    bmp.Free;
  end;
end;