Grafik ausschneiden aus Fenster mit Fokus/Vordergrund

[DelphiFan2008]

Hallo,

ich möchte aus dem Fenster/Applikation die im Vordergrund läuft einen kleinen Teil des Fensters als Bitmap ausschneiden. Das "richtige" aktive Fenster (Fokus) bekomme ich über den Titel mit ...

Code:

function GetActiveWindowCaption: string;
var
  Handle  : THandle;
  Len     : LongInt;
  Title   : String;
begin
  Result := '';
  Handle := GetForegroundWindow;
  if Handle <> 0 then
  begin
    Len := GetWindowTextLength( Handle ) + 1;
    SetLength( Title,Len );
    GetWindowText( Handle,PChar( Title ), Len );
    result := TrimRight( Title );
  end;
end;

Wie kann ich die Auflösung der Applikation des Fenster abfragen und dann die Grafik ausschneiden?

Danke und Gruß DelphiFan2008