BitBln Example Copying a screen.

BitBln Example Copying a screen.

var
  desktopHWnd:HWnd;
  desktopDC:HDc;
begin
  DesktopHWnd:=GetDesktopWindow;
  DesktopDC:=GetDC(desktopHWnd);
  BitBlt(form2.image1.canvas.handle,0,0,form2.image1.width,form2.image1.height,DesktopDC,0,0,SRCCOPY);
  form2.image1.refresh;
  ReleaseDC(desktopHWnd,DesktopDC);
end;

home