Delphi怎么让程序像屏幕键盘那样单击按钮时
1个回答
展开全部
详细??你自己说的就不够详细.
你说的记事本,是windows带的那个??
你的意思是,自己写个程序,对某记事本操作??
如果只是这样的话,干吗不自己直接对文件操作??
就算要操作的话,我给你个思路吧.
首先获得某记事本的handle,然后对他发送windows操作代码,比如按键....
至于各自的记事本,一个道理,你开几个记事本,拦截几个,对他们操作就行了.如果要在后台,可以做个多线程就很舒服了.
var
Gameh:HWND;//定义一个句柄变量
begin
GameH:=FindWindow('name',nil);//这个是根据窗口类名查找窗口句柄
SendMessage(Gameh,messages.WM_LBUTTONDOWN,0,$01DF0153);
SendMessage(Gameh,messages.WM_LBUTTONUP,0,$01DF0153);
end;
//SendMessage的参数1是窗口句柄,
//参数2是常量,模拟鼠标按下(messages.WM_LBUTTONDOWN),后面一个是模拟鼠标弹起(messages.WM_LBUTTONUP)。
//参数3可以不填,这里没用
//参数4是窗口中需要点击的那个按钮在窗口中对应的坐标。是16进制的。你的(100,200)也需要转换成16进制。我这里是填的另外个坐标,你改下就可以了、
这样够清楚了吧
你说的记事本,是windows带的那个??
你的意思是,自己写个程序,对某记事本操作??
如果只是这样的话,干吗不自己直接对文件操作??
就算要操作的话,我给你个思路吧.
首先获得某记事本的handle,然后对他发送windows操作代码,比如按键....
至于各自的记事本,一个道理,你开几个记事本,拦截几个,对他们操作就行了.如果要在后台,可以做个多线程就很舒服了.
var
Gameh:HWND;//定义一个句柄变量
begin
GameH:=FindWindow('name',nil);//这个是根据窗口类名查找窗口句柄
SendMessage(Gameh,messages.WM_LBUTTONDOWN,0,$01DF0153);
SendMessage(Gameh,messages.WM_LBUTTONUP,0,$01DF0153);
end;
//SendMessage的参数1是窗口句柄,
//参数2是常量,模拟鼠标按下(messages.WM_LBUTTONDOWN),后面一个是模拟鼠标弹起(messages.WM_LBUTTONUP)。
//参数3可以不填,这里没用
//参数4是窗口中需要点击的那个按钮在窗口中对应的坐标。是16进制的。你的(100,200)也需要转换成16进制。我这里是填的另外个坐标,你改下就可以了、
这样够清楚了吧
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询