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

[[egostar]]

Empezado por 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:
...
...
...
...
Me parece que la opción de la cadena es mejor, ya lo veras.

Muy bueno amigo [Caral], se nota que estas de buen humor

Salud OS

PD: Ejecuté el code que pones y mira, ya eres todo un experto

[Estuardo18]

jajaja ta bien lo de la policia y lo de las cadenas
BUENO si quieren un chiste aqui va uno:
UN ANUNCIO PUBLICITARIO DICE: "en la compra de tu windows xp RECIBE gratis 8 botones de RECET gratis"

[dpg_2006]

Esa forma de captura de pantalla es buena,pero cronometrando el tiempo en mi PC que es un dual Core a 2GHz y una tarjeta intel en board(algo común),veo que demora mucho entre 16ms y 32ms demasiado NECESITO UNA CAPTURA mucho más eficiente,alguien pudiera darme una ayudita Graciasssssss