Sreenshot vom aktuellen Fenster?

[smart]

Zitat von Jelly:

Delphi-Quellcode:

procedure WindowShot (var B : TBitmap) ;
var
  H : THandle ;
  R, RClient : TRect ;

begin
  H := GetActiveWindow ;

  if H <> 0 then begin
      GetWindowRect (H,R) ;
      B.Width := R.Right-R.Left ;
      B.Height := R.Bottom-R.Top ;
      BitBlt(B.Canvas.handle, 0,0 , B.Width, B.Height, GetDc(0), R.left, R.Top, SRCCOPY);
  end ;
end ;

Vielen Dank!
Klappt schon, aber nur in der eigenen Anwendung. Sobald ich ein fremdes Fenster öffne geht es nicht mehr.

Gruß
Heike