Screenshot vom aktiven fenster

[k4ni]

Hallo,

Ich versuche jetzt schon seit einigen stunden einen screenshot vom Aktiven fenster zu machen.
Also, hier die version die ich bis jetzt für den ganzen screen benütze:

Delphi-Quellcode:

procedure GetScreenShot(var ABitmap : TBitmap);
var 
  DC : THandle;
begin 
  if Assigned(ABitmap) then
  begin 
    DC := GetDC(0);
    try 
      ABitmap.Width := Screen.Width;
      ABitmap.Height := Screen.Height;
      BitBlt(ABitmap.Canvas.Handle,
             0,0,Screen.Width,Screen.Height,
             DC,
             0,0,
             SrcCopy
        ); 
    finally 
      ReleaseDC(0, DC);
    end; 
  end; 
end;

Also dann einfach GetDC(0) mit GetDC(GetFordergroundWinodw) austauschen.
Aber wie könnte ich die größe des fensters ermitteln?