Capturar Pantalla

[Estuardo18]

Que tal?
Bueno colegas quisiera capturar la pantalla.
Lo que hace la tecla "impr pant pet sis" pero sin usar el boton sino algun codigo.
Espero me puedan ayudar bueno saludos!a

[[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