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), DeskTop,
Rect (0, 0, 500, 500)) finally
DeskTop.Free
end
end;
Me parece que la opción de la cadena es mejor, ya lo veras.
Saludos