Capturar Pantalla
 

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!:):Da

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

:D:D:D:D 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 :)

un chiste para la computacion
 

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"

Captura de Pantalla
 

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