Capturar Pantalla

[[Caral]]

Hola
Para capturar la pantalla me parece que se necesitaria a un policia o en tal caso ponerle una cadena al monitor, es dificil, lo se, cambia constantemente, ahhh, otra forma es hacer una copia de esta, asi:
Coloca un Componente Image y un boton en el form y pones esto en el evento onclick del boton:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  DeskTop : TCanvas ;
begin
  DeskTop := TCanvas.Create ;
  try
    with DeskTop do
      Handle := GetWindowDC (GetDesktopWindow) ;

    with Image1.Canvas do
      CopyRect (Rect (0, 0, 500, 500), // aqui se define el tamaño de la imagen
                DeskTop,
                Rect (0, 0, 500, 500)) // aqui se define el tamaño de la imagen
  finally
    DeskTop.Free
  end


end;

Me parece que la opción de la cadena es mejor, ya lo veras.
Saludos