¿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);
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;