Help for this page

Select Code to Download


  1. or download this
    procedure TForm1.ScreenShot(wnd: HWND; x : integer; y : integer; Width
+ : integer; Height : integer; bm : TBitMap);
var
...
  {release the screen dc}
  ReleaseDc(wnd, dc);
end; (* ScreenShot *)
  2. or download this
    procedure TForm1.ScreenShot2(wnd: HWND; x : integer; y : integer; Widt
+h : integer; Height : integer; bm : TBitMap);
var
...
  {release the screen dc}
  ReleaseDc(wnd, dc);
end; (* ScreenShot *)