发送按钮消息问题？(100分)

G

Godfear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-27

• #1

if h1<>0 then
begin
h2:= FindwindowEx(h1,0,nil,'是');
If h2>0 then
begin
// PostMessage(h2, WM_LBUTTONDOWN, MK_LBUTTON, 0);
// PostMessage(h2, WM_LBUTTONUP, MK_LBUTTON, 0);
end;
end;
h1是窗口句柄,h2是窗口中'是'按钮的句柄,怎么让是按钮执行呢?
h1窗口中默认聚焦的按钮是'否'!
测试了很多方法都不行，高手帮下忙

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-27

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
x,y: Integer;
begin
x := form1.Left + Button2.Left + 25;
y := top + Button2.Top + 27;
SetCursorPos(x, y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, X, Y, 0, 0);
end;

 

G

Godfear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-27

• #3

to szhcracker：
h1：窗口是另外的程序，
h2：是另外程序中的按钮！

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-27

• #4

我知道，思路是一样的，你要得到h2的位置

 

G

Godfear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-28

• #5

请教，如何根据窗体句柄得到位置？

 

G

Godfear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-28

• #6

你的思路不行的？
我是在线程中运行，按你的思路鼠标要莫名其妙的跑一下了，这怎么行啊，客户接受不了的！

 

G

Godfear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #7

高手呢？