用Delphi“遥控”按钮

很多情况下,我们需要在程序中实现这样的功能:在自编写的程序里控制另外一软件中的某个按钮被按下。比如,有一天你在聊 QQ 时觉得烦了,那么就想写程序来帮你按下“发送”按钮,省得你自己一次次动手了。那么,这个想法怎样才能实现呢?

其实做法很简单,它只用两条Windows消息就能实现了。(当然,前提是你必须知道那个按钮的handle。我想这个对一般程序员来说简直是小菜一碟)这两条消息分别是:WM_LBUTTONDOWNWM_LBUTTONUP。下面我给出一个简单的实例说明用法:

 

procedure TForm1.Button1Click(Sender: TObject);

var

  btnHandle: HWND;  //要控制的那个按钮的句柄

begin

    btnHandle:=strtoint(Edit1.Text );  //为了简单起见就这么设了,你要先写程序得到它

    SendMessage(btnHandle,WM_LBUTTONDOWN,MK_LBUTTON, 0);

    SendMessage(btnHandle,WM_LBUTTONUP,0,0);

end;

 

整个过程其实就是模拟了一下鼠标左键被按下又松开(注意,光有鼠标左键被按下是不行的)。怎么样?够简单吧!现在就可以把这个功能加进你的程序里面,实现一些有趣的效果了!:)

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值