关于FindWindowEx

zoubinbin 2006-01-18 04:18:59

我做了个小程序，一个窗体，窗体的Caption是"Form1"窗体上只有一个按钮(TButton），按钮的Caption是"确定",按钮的单击事件时ShowMessage（“OK”）；
我的程序如下
HWND hwnd,hOk; // Handle

hwnd=FindWindow("TForm1","Form1");

if(hwnd)
{
hOk = FindWindowEx(hwnd,0,"Button","确定");
if(hOk)
SendMessage(hOk,BM_CLICK,0,0);
}
现在的问题是程序不执行程序不执行SendMessage，即就是找不到确定这个按钮，大家指点指点

...全文

248 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

jlu3389 2006-01-19

打赏
举报

void __fastcall TForm1::FormClick(TObject *Sender)
{
HWND hwnd,hOk; // Handle

hwnd=FindWindow("TForm1","Form1");

if(hwnd)
{
hOk = FindWindowEx(hwnd,0,"TButton",0);
if(hOk)
{
SendMessage(hOk,BM_CLICK,0,0);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowMessage("OK");
}
//--------------------------------------------------------------------------

yefu2000 2006-01-19

打赏
举报

信誉值： 55 ～～～

海嵌 2006-01-19

打赏
举报

程序运行到ShowMessage时就中断不会向下执行！

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Interval=200;
Timer1->Enabled = true;
ShowMessage("OK");
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Timer1->Enabled = false;
HWND hwnd,hOk;
hwnd = ::FindWindow(NULL,"Project1");
if(hwnd)
{
hOk = ::FindWindowEx(hwnd,NULL,"TButton","OK");
if(hOk !=NULL)
SendMessage(hOk,BM_CLICK,0,0);
}