delphi hook 抓屏

【文件属性】：

文件名称：delphi hook 抓屏

文件大小：534KB

文件格式：RAR

更新时间：2013-06-15 16:32:27

delphi hook的运用,抓屏幕

var intPos,intX,intY: longint; begin intPos := message.lParam; intX := Trunc(intPos/10000); intY := (intPos mod 10000); if not CutRange.MouseIsDown then begin if not ((intX>Left) and (intXTop) and (intYTextForm.Left+TextForm.Width) or (intY>TextForm.Top+TextForm.Height) then begin SendMessage(TextFormHan,MSG_SANWRITETEXT,100,0); // SendMessage(TextFormHan,WM_CLOSE,0,0); TextFormHan :=0; uUnWinHook; // CutRange.EndPoint.X := intX; // CutRange.EndPoint.Y := intY; CutRange.MouseIsDown := False; CurAction := alNone; end; end; end else if message.WParam = WM_LBUTTONUP then begin end; //MoveWindow(TextFormHan,intX,intY,1,1,True); end; end; end;

【文件预览】：
CatchScreen
----MyRc.RC(105B)
----OptionFrm.ddp(51B)
----None.bmp(2KB)
----PolyLine.bmp(2KB)
----Rang.bmp(2KB)
----EraseFrm.dcu(3KB)
----MouseHook.dpr(1KB)
----Option.ini(102B)
----CatchScreen.bpg(821B)
----uDataStruct.dcu(3KB)
----CursorPen.cur(326B)
----EraseFrm.pas(356B)
----MouseHook.res(876B)
----MainFrm.pas(21KB)
----RangC.bmp(2KB)
----LockFrm.dcu(4KB)
----EraseFrm.dfm(565B)
----Cut.bmp(2KB)
----EraseCursor.cur(326B)
----CutRangeFrm.pas(368B)
----EraseFrm.ddp(51B)
----MouseHook.cfg(386B)
----OptionFrm.pas(3KB)
----CatchScreen.cfg(386B)
----MouseHook.dll(122KB)
----Line.bmp(2KB)
----CatchScreen.exe(949KB)
----MainFrm.dcu(21KB)
----MyRc.RES(1KB)
----Cursor1.cur(326B)
----OptionFrm.dfm(4KB)
----CatchScreen.dof(1KB)
----OptionFrm.dcu(7KB)
----LockFrm.dfm(646B)
----MainFrm.ddp(51B)
----CutRangeFrm.dfm(623B)
----TextFrm.ddp(51B)
----CatchScreen.dpr(410B)
----CutRangeFrm.dcu(3KB)
----Roud.bmp(2KB)
----LockFrm.ddp(51B)
----uDataStruct.pas(3KB)
----TextFrm.dfm(808B)
----MouseHook.dof(1KB)
----CatchScreen.res(876B)
----MainFrm.dfm(218KB)
----Eraser.bmp(630B)
----TextFrm.pas(903B)
----CursorCut.cur(326B)
----LockFrm.pas(1014B)
----TextFrm.dcu(4KB)
----Box.ico(318B)