Para capturar la ventana activa:
Código Delphi
[-]keybd_event(VK_SNAPSHOT,1,0,0);
Para capturar toda la pantalla :
Código Delphi
[-]keybd_event(VK_SNAPSHOT, 2, 0, 0);
El Capturamiento se hace en el CLIPBOARD (Portapapeles), es como si hayas hecho un copiar(Ctrl+C),Ahora si quieres puedes pegarlo donde tú desees o hacerte un metodo que lea del portapapeles y guarde la imagen en el formato que tú desees.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7