delphi进程间通信，模拟鼠标单击事件怎么实现。。？
2个回答
展开全部
用鼠标单击还要控制鼠标位置，以及程序的显示之类的，图像分辨率太麻烦~
直接button点好了~~
定义个消息常量
WM_MYMSG
var
ahandle=Thandle;
begin
ahandle:=findwindow(nil,'caption');
if
Ahandle<>0
then
sendmessage(Ahandle,WM_MYMSG,w,1)
else
showmessage('程序没有运行');
end;
另一个程序就这样写
if
message.msg=WM_MYMSG
then
begin
button1.click;
end;
直接button点好了~~
定义个消息常量
WM_MYMSG
var
ahandle=Thandle;
begin
ahandle:=findwindow(nil,'caption');
if
Ahandle<>0
then
sendmessage(Ahandle,WM_MYMSG,w,1)
else
showmessage('程序没有运行');
end;
另一个程序就这样写
if
message.msg=WM_MYMSG
then
begin
button1.click;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
