Mirro For Delphi7

    |     2018年11月5日   |   源码分享   |     0 条评论   |    185

描述:

  “Mirro For Delphi7” 是一个速度极快的抓取屏幕数据的单元.它的速度与 
“Remote Administrator”(www.radmin.com)不相上下.可以运行于所有基于
Windows NT核心的操作系统上(Windows NT/Windows 2000/Windows XP/Windows 2003).

============================================================================

函数:

1:function InstallMirroDriver: Boolean;
功能:安装Mirro驱动到你的电脑.注意:每次使用前应先调用该函数.
参数:无
返回:成功返回True,失败返回False.

2:function UninstallMirroDriver: Boolean;
功能:卸载Mirro驱动.
参数:无
返回:成功返回True,失败返回False.

3:function MirrorStart(dwSetColor: DWORD; pnWidth, pnHeight: Pinteger;bCapMouse:Bool): DWORD;
功能:开始Mirro
参数:dwSetColor—设置返回位图的颜色值
     pnWidth,pnHeight—返回分辨率
     bCapMouse—是否捕获鼠标
返回:成功返回0.否则返回错误代码

4:function MirrorGetChangeInfo(ThePRect: PRect; pBuf: PByte): DWORD;
功能:获得变化信息
参数:ThePRect–变化矩形,已经是32位对齐,并且是可靠的。
     pBuf—位图缓冲,调用者分配,需保证缓冲长度>=屏幕宽度*屏幕高度*颜色位数/8
返回:变化类型

5:function MirrorGetFullScreen(ThePRect: PRect; pBuf: PByte): DWORD;
功能:得到全屏位图,参数同MirrorGetChangeInfo

6:function MirrorStop: DWORD;
功能:停止Mirro
参数:无
返回:成功返回0.否则返回错误代码

7:function MirrorVersion:string;
功能:Mirro版本信息
参数:无

返回:返回信息

文件列表:
LocalDemo\Demo.dpr
………\Demo.res
………\Mirro_D7.dcu
………\UDemo.dfm
………\UDemo.pas
LocalDemo
Readme.GB32.txt
IntenetDemo\Mirro_D7.dcu
………..\Recv.dpr
………..\Recv.res
………..\Send.dpr
………..\Send.res
………..\UCommon.pas
………..\URecv.dfm
………..\URecv.pas
………..\USend.dfm
………..\USend.pas
IntenetDemo

下载地址:

转载请注明来源:Mirro For Delphi7
本文链接地址:http://www.heidong.net/494.html
回复 取消