Delphi Copying a screen

Submitted by:Andery Smith

Date added:10 March, 2012

Category:Delphi

Example Delphi code for Copying a screen

Tags: copying a screen

Code Snippet:


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;
 
 

Comments