Question

delphi大虾们请教问题满意加分[谢谢]

用一个窗体上的Button1按钮控制系统计算机上‘3的按钮’ 点击窗体上的Button1按钮后计算机上3的按钮就自动按下
说明一下 下面代码中的‘计算器’是系统计算机的窗口标题 ‘SciCalc’是系统计算机的窗口类名 ‘3’是系统计算机上3按钮的标题 ‘Button’是系统计算机3按钮的类名
代码如下

procedure Tabc.Button1Click(Sender: TObject);
var
hand,but:thandle;
begin
hand:=findwindow('SciCalc','计算器');
but:=findwindowEx(hand,0,'Button','3');
sendmessage(but,bm_click,0,0);
end;
end.

下面提问：将上面反过来 意思就是 按下计算机上3的按钮 另一个窗体上的Button1按钮也会自动按下
原理我是这样想的 用另一个窗体检测计算机窗体上的3按钮 如果3按钮按下了 那么另一个窗体上的Button1按钮也跟着按下
注意这里说的另一个窗体也就是自己要写代码的窗体

如果对问题看不明白请留下您的QQ号码 我会加您请清楚的 如看明白
那么就请大虾门留下完成的代码 我测试成功就会给您加分 多谢！！！

Answer 1

这个使用进程间消息即可
很多杀毒软件和防护软件都用这个功能
比如主进程 还有监视进程，主进程是可见的，监视进程是隐藏的，如果发现主进程被非法终止，监视进程就报警或重新启动杀毒主进程

你要的方法实现是差不多的，主要就是2个应用程序要互相通信
但是。。。。。。。关于进程间通信的方法实现起来比较麻烦

不过。。。。。有个简单方法

功能介绍：
A程序有按钮3
B程序监测A程序里按钮3是否按下

过程如下：
A程序如果按钮3按下后，建立一个临时文件 bt3.txt
B程序每个1秒监测是否有 bt3.txt 文件存在，如果发现，就说明按钮被按下了。

Answer 2

用全局Hook就行。
代码懒得写，呵呵。