Поиск окна HWND по названию

HWND h = FindWindow(NULL, "Мое приложение");

HWND h1 = NextWindowElement(h,NULL,NULL,1);
.....
HWND h15 = NextWindowElement(h14,NULL,NULL,1);
ShowMessage("Window Handle " + IntToHex(int(e15),8));

BOOL CALLBACK EnumChildProc(HWND hWnd, LPARAM lp)
{
    char buff[128];
    GetClassName[hWnd, buff, sizeof(buff));
    if(0 == _stricmp(buff, "edit")) return false;
}
 
...
HWND hWnd = FindWindowEx(NULL, NULL, "my_class", NULL);
EnumChildWindows(hWnd, &EnumChildProc, NULL);

BOOL CALLBACK EnumChildWnd(HWND h, LPARAM lParam)
{
    SendMessage(h, WM_SETTEXT, 0, (LPARAM)"message");
    return TRUE;
}
 
EnumWindows(&EnumWindowsWnd, 0);

BOOL CALLBACK enum_wnd_proc(HWND hwnd, LPARAM lParam)
// hwnd - окно, которое надо проверить
// lParam пользовательский параметр, передаваемый в функцию. Я через него свойства искомого окна передаю
{
  WindowInfo* window_info = (WindowInfo*)lParam;
 
  // Тут идут проверки нужных свойств, если они не проходят, надо вернуть TRUE
 
  // Если все проверки прошли, сохраняем текущий хэндл окна в передаваемой структуре и возвращаем FALSE
  window_info->m_hwnd = hwnd;
  return FALSE;
}
 
// Это для окон верхнего уровня
if (EnumWindows(enum_wnd_proc, (LPARAM)(&window_info)) == TRUE) {
  // Окно найдено
  // window_info->m_hwnd;  <-- это родительское окно
  // Дальше ищем дочернее окно аналогично, но с помощью 
  WindowInfo window_info_2;
  EnumChildWindows(window_info->m_hwnd, enum_wnd_proc, (LPARAM)(&window_info_2));
  // window_info_2.m_hwnd <-- это дочернее окно
}

HWND win;
.....
//---------------------------------------------------------------------------
BOOL CALLBACK EnumWindowsWnd(HWND hwnd, LPARAM lParam)
{
  char ss[15];
  GetWindowText(hwnd,ss,15);
  if(ss == "0") win=hwnd;
  return false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 char s[15];
 HWND h = FindWindow(NULL, "Калькулятор");
 GetWindowText(h,s,15);
 Edit1->Text=s;
 EnumChildWindows(h,&EnumWindowsWnd, NULL);
 ShowMessage("Window Handle " + IntToHex(int(win),8));
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
BOOL CALLBACK EnumChildProc(HWND hwnd, LPARAM lParam)
{
  char ss[15];
  char cl[100];
  GetWindowText(hwnd,ss,15);
  GetClassName(hwnd,cl,100);
  if(!strcmp(ss,"0"))
  {
    win=hwnd;
    ShowMessage("Child window text : "+AnsiString(ss));
    ShowMessage("Child window Class Name : "+AnsiString(cl));
  }
  return true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 char s[15];
 HWND h = FindWindow(NULL, "Калькулятор");
 
 GetWindowText(h,s,15);
 Edit1->Text=s;
 EnumChildWindows(h,(WNDENUMPROC)EnumChildProc, NULL);
 ShowMessage("Window Handle " + IntToHex(int(win),8));
}
//---------------------------------------------------------------------------