[Neftali [Germán.Estévez]]

¿Cómo se puede capturar la pantalla en un bitmap?

Sobre un formulario, coloca un TImage y un TButton. Copia el siguiente código:

Código Delphi [-]
procedure ScreenShot (Image : TBitmap);
var
  DC : HDC;

begin
  DC := GetDC (GetDesktopWindow);
  // Proteccion para liberar
  try
    Image.Width := GetDeviceCaps (DC, HORZRES);
    Image.Height := GetDeviceCaps (DC, VERTRES);
    BitBlt(Image.Canvas.Handle, 0, 0, Image.Width,
    Image.Height,DC, 0, 0, SRCCOPY);
  finally
    ReleaseDC (GetDesktopWindow, DC);
  end;
end;

Para utilizarlo puedes usar éste código en el OnClick del Botón:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ScreenShot(Image1.Picture.Bitmap);
end;