Add(InlineCode,8765314,301,371)
{
 WorkPoints=#5:doScr|
 EventPoints=#5:onScr|
 DataPoints=#7:in_hwnd|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|24:     in_hwnd: THI_Event;|22:     onScr: THI_Event;|47:     procedure doScr(var dt: TData; idx: word);|5: end;|1: |95:  function PrintWindow(HWND:HWND;hdcBlt:HDC;nFlags:DWORD):BOOL; stdcall; external 'user32.dll';|2:  |14:implementation|0:|28:procedure THiAsmClass.doScr;|3:var|15:  rcSrc: TRect;|16:  hSrcWnd: HWND;|16:  tBmp: PBitmap;|5:begin|37:  hSrcWnd := ToIntegerEvent(in_hwnd);|32:  GetWindowRect(hSrcWnd, rcSrc);|72:  tbmp := NewBitmap(rcSrc.Right - rcSrc.Left, rcSrc.Bottom - rcSrc.Top);|49:  PrintWindow(hSrcWnd, tbmp.Canvas.Handle, 0);   |28:  _hi_onEvent(onScr, tbmp); |12:  tbmp.Free;|4:end;|0:|4:end.|
}