En la sección de trucos tenemos el
numero 56 que captura la pantalla y la guarda en un jpeg. En cuanto a cargarla en el TImage directamente sin guardarla previamente:
Código Delphi
[-]
var
SrcWindow: THandle;
SrcDC: HDC;
Bitmap: TBitmap;
begin
SrcWindow:= GetDesktopWindow;
if SrcWindow <> 0 then
begin
SrcDC:= GetDC(SrcWindow);
if SrcDC <> 0 then
begin
Bitmap:= TBitmap.Create;
try
Bitmap.Width:= GetSystemMetrics(SM_CXSCREEN);
Bitmap.Height:= GetSystemMetrics(SM_CYSCREEN);
BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,SrcDC,0,0,SRCCOPY);
Image1.Picture.Assign(Bitmap);
finally
Bitmap.Free;
ReleaseDC(SrcWindow,SrcDC);
end;
end;
end;
end;