[roman]

Esta función captura la ventana indicada:

Código Delphi [-]
procedure SnapShot(Window: HWND; FileName: String);
var
  Canvas: TCanvas;
  Bitmap: TBitmap;
  WindowRect: TRect;
  BmpRect: TRect;

begin
  GetWindowRect(Window, WindowRect);
  Canvas := TCanvas.Create;
  Bitmap := TBitmap.Create;

  try
    Canvas.Handle := GetDC(0);

    Bitmap.Width := WindowRect.Right - WindowRect.Left;
    Bitmap.Height := WindowRect.Bottom - WindowRect.Top;
    BmpRect := Rect(0, 0, Bitmap.Width, Bitmap.Height);

    Bitmap.Canvas.CopyRect(BmpRect, Canvas, WindowRect);
    Bitmap.SaveToFile(FileName);
  finally
    Canvas.Free;
    Bitmap.Free;
  end;
end;

y la guarda en el archivo que se indique. Sin embargo, supongo que por esto:

Empezado por Neftali

no es lade la app. activa, sino que está por debajo, por decirlo así, de la actual con la que se está trabajando

no te ha de servir, pues en la captura aparecerá lo que esté por arriba de esa ventana.

// Saludos