如何用Delphi编程操作另外一个应用程序？(100分)

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-04

• #1

给各位大哥拜个早年！！！
我们单位有一个软件，是通讯方面的，比较烦的是每次都要手工点击界面上的一个按钮，发送一些东西给数据库……

我们怎么用Delphi编程实现每隔几分钟要程序自动点击那个按钮呢？
【我问了一个人，他说，首先要获得那个应用程序的句柄，再找到那个按钮的句柄，再发送一个消息给它，说起来很简单，可是，具体怎么编写啊？如何定位那个按钮啊？有没有源代码啊？】

祝大家新年快乐，万事如意！！！

 

C

cdj000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-04

• #2

搜索下以前的资料
就当是学习了
[]
新年快乐

 

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-04

• #3

给个例子撒

 

L

linchhero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-04

• #4

FINDWINDOWS
sendmessage
这两个函数应该可以搞定了吧。

 

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-05

• #5

兄弟，来一个完整些的源代码啊

 

B

baoyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-05

• #6

var hbutton, hparent :hwnd;
begin
hparent :=FindWindow(pchar(''),pchar('那个应用程序窗体的caption'));
hbutton:=findwindowex(hparent,0,nil,'按钮的Caption'）；
sendmessage(hbutton,bm_click,0,0);
end;

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-05

• #7

//修改一下 baoyun 兄弟的代码
var
hButton, hParent :THandle;
begin
hParent := FindWindow(nil,pChar('那个应用程序窗体的caption'));
hButton:= FindWindowEx(hParent,0,nil,'按钮的Caption');
PostMessage(hButton,BM_CLICK,0,0);
end;

 

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-14

• #8

多人接受答案了。