"Pedram" <no
...@hever.sever> wrote:
>Pedram wrote in message <4145f...@newsgroups.borland.com>...
>>Assume a TForm named B_Form with a TMainMenu
>>There is Choice1 and Chioce2 in TMainMenu Items
>>Also there is a TEdit , TMemo and TButton...
>>This Project is Compiled , executed and Launched !
>>I need to know how can I write a Code to Select B_Form from My Current
>>application by FindWindow() and FindWindowEx()
To reliably be able to locate the window, you need to name the
main form class something unique, like TCompanyNameProgramName
instead of TForm1 (or B_Form).
Or, you need to make sure that the Application::Title is
unique. However, if it's an MDI application, the Application
Title will change if there is an open MDIChild form so I never
use this method unless I have no choice.
Once you find a HANDLE to the application, you need to
enumerate the child windows to get HANDLE(s) to the other
controls in the window (form) to interact with them.
HANDLE hTheHandleOfTheAppYouWant = NULL;
// define other HANDLE(s) that you want.
//-------------------------------------------------------------
BOOL CALLBACK EnumWindowsCallBack( HWND hWnd, LPARAM lParam )
{
char WindowClassName[256] = {0};
if( ::GetClassName(hWnd, WindowClassName, 255) )
{
if( stricmp(WindowClassName, (char*)lParam) == 0)
{
hTheHandleOfTheAppYouWant = hWnd;
// stop enuming
return FALSE;
}
}
return TRUE;
}
//-------------------------------------------------------------
BOOL CALLBACK EnumChildCallBack( HWND hWnd, LPARAM lParam )
{
// we're looking for the second instance of "Static"
char WindowClassName[256] = {0};
if( ::GetClassName(hWnd, WindowClassName, 255) )
{
if( stricmp(WindowClassName, (char*)lParam) == 0 )
{
++DlgCtrlCounter;
if( DlgCtrlCounter == 2 )
{
DlgCtrlHWND = hWnd;
// stop Enuming
return FALSE;
}
}
}
return TRUE;
}
//-------------------------------------------------------------
AnsiString WindowClassName = "TCompanyNameProgramName";
::EnumWindows( (WNDENUMPROC)EnumWindowsCallBack, (LPARAM)WindowClassName.c_str() );
if( hTheHandleOfTheAppYouWant )
{
WindowClassName = "Static";
::EnumChildWindows( hWnd, (WNDENUMPROC)EnumChildCallBack, (LPARAM)WindowClassName.c_str() );
}
Now that you have the handles to the controls, what are you
going to do with them? If it's your application, I would
suggest that you just use custom messages that can be sent to
the Application Handle and let it do the work.
~ JD
|
