登录
首页 » Delphi源码 » Delphi 钩子函数创建鼠标操作的演示

Delphi 钩子函数创建鼠标操作的演示

于 2023-09-02 发布 文件大小:45.85 kB
0 322
下载积分: 2 下载次数: 1

代码说明:

Delphi 钩子函数创建鼠标操作的演示,作者:冉林仓,测试内容包括三个:DemoRecord.dpr DemoPlayBack.dpr Hktest.dpr。   安装与调试说明:   如果制作的演示程序工作不正常,请注意修改HKPROC.PAS,JOURNALPLAYBACKHOOKHANDLER函数,主要是修改返回的RESULT值.   记录的消息序列与屏幕窗口位置、分辨率有很大的关系,哪怕是窗口位置和大小仅仅偏一点,你的回放就不一定正常,请你在使用时要反复调试,以获得比较理想的效果。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi在窗口中单击左键弹出菜单
    Delphi在窗口中单击左键弹出菜单,在运行的窗体空白外,单击鼠标左键,弹出主菜单,其实和右键 菜单 是一样的原理,希望通过这个简单的例子,了解自定义窗口菜单的实现方法。
    2023-09-08 18:20:03下载
    积分:1
  • Delphi 实现窗体的全屏显示效果
    Delphi 实现窗体的全屏显示效果,单击按钮后即可全屏。
    2023-03-25 11:25:03下载
    积分:1
  • Delphi 进程通讯的实现实例
    这是一个Delphi利用自定义消息实现的进程内部通讯的例子,附上了完整的源码,运行的效果如图所示。   本程序作者:王毅 , 陈立亮 , 刘蓉,在Windows2000环境下用Delphi6.0调试通过。   本例子中主控程序采用FindWindow()函数找寻底层工作程序,从而实现通讯。底层工作程序在调试时请先生成可执行文件,然后关闭Delphi编辑器,运行可执行文件进行调试。如果不关闭Delphi编辑器,底层工作程序窗口在处于最小化时将无法正常工作,因为FindWindow()返回的是Delphi编辑器中该窗口的句柄。
    2022-07-04 09:38:31下载
    积分:1
  • Delphi7删除字符串指定字符(汉字)的例子
    Delphi7删除字符串指定字符的例子,如图所示的运行效果,示例如下文字:“经过这几天在网上的淘金,多少也有些了解了,但是现在我发现就算将分区正确的话,分区所指向的目录区也许会有些问题。”,删除指定的文字为“在”,本例中将上述一段文字中所有的“在”全部删除,在代码部分,各个变量的定义有意思:   Strs, //文本字符串   Stre, //汉字字符串   St, //文本ASCII码   Se, //汉字ASCII码   L_St, //临时文本ASCII码   L_Se, //临时汉字ASCII码   Str_copy //保存文本    : String;   Ints, //文本总长度   Inte, //删除汉字长度   i, //文本循环   p, //汉字循环   ps, //文本指针变量   pe, //汉字指针变量   Int_zh, //找到时保存汉字位置   Int_ch //循环查找时的变量
    2022-03-23 19:03:00下载
    积分:1
  • Delphi Canvas.Brush为窗体绘制渐变背景
    Delphi 为窗体绘制渐变背景,这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色,不错吧?如示例图的左右渐变效果,实现的代码:   for i:=0 to self.Width-1 do   begin   c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1));   c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1));   c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1));   Canvas.Brush.Color:=RGB(c1,c2,c3);   //每次画矩形的画刷颜色   Dct:=Rect(i,0,i+1,self.Height);   //每次刷绘的矩形区域   Canvas.FillRect(Dct);   //填充颜色   end;
    2022-05-24 21:26:59下载
    积分:1
  • Delphi 绘制艺术图案
    Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。   self.ClientHeight:=200;   self.ClientWidth:=200;   r:=self.ClientWidth/2;   Sect:=20;   for i:=0 to Sect-1 do   begin    x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2);    y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2);   end;
    2022-01-28 10:36:40下载
    积分:1
  • Delphi 计算1到10之间的奇数和【
    Delphi 推荐到奇数,并计算1到10之间的奇数求和,这是个简单的数学问题,数学水平高,写出这种小程序并不难,趁机把代码帖出来吧:   procedure TForm1.Button1Click(Sender: TObject);   var    i,j:integer;   begin    j:=0;    For i := 1 to 10 do    begin    if i mod 2 =0 then    Continue;    j := j+i;    Edit1.text := IntToStr(j);    end;   end;
    2023-02-23 03:45:04下载
    积分:1
  • Delphi实现简单TCP服务器范例
    “欢迎连接到简单TCP服务器”,这是本代码编译成功,运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器,客户端代码同样完整,指定主机IP、端口后,就可连接该服务器,客户端和服务端代码都要编译才能运行,先运行服务端并设置好,再启动客户端,然后进行消息发送和接收。
    2022-01-26 07:51:08下载
    积分:1
  • Delphi 使用快捷键保存数据至SQLSERVER
    Delphi 使用快捷键保存数据,这里是将数据保存在SQLSERVER数据库中,测试前请连接好数据库哦。
    2022-07-24 01:07:01下载
    积分:1
  • Delphi SQLSERVER停车场收费管理系统
    Delphi SQLSERVER停车场收费管理系统,本系统涉及有多个硬件,运行后需要初始化硬件,读取硬件的配置数据,包括控制器。需要联网读取数据,比较综合的一套系统。可对挡车器、停车场照明系统进行管理,可财务报帐、年终结算等功能,主窗口启动时,先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效,设置照明灯自动开关时间,向数据库中写入记录,控制硬件打开挡车器,开始事务:fee_station-结帐次数加1,维护费用AMaintain=0 ,start_fee增加。。。
    2023-06-03 04:50:05下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载