Получить HWND по pid

HWND Window(int id)
{
HWND hwnd=FindWindow(NULL,NULL);//В справке написано что при таком варианте переберёт все окна
// Не выходим из цикла, пока не найдем активное окно
  while (hwnd != 0)
  {
  if (GetProcessId(hwnd)==id)
    {
    ShowMessage(id);
    return hwnd;
    }
  hwnd=GetNextWindow(hwnd,GW_HWNDNEXT);//Вот тут не нашёл функции типа FindWindowNext
  }
  return 0;
}

struct EnumData {
    DWORD dwProcessId;
    HWND hWnd;
};
 
BOOL CALLBACK EnumProc(HWND hWnd, LPARAM lParam)
{
 
    EnumData& ed = *(EnumData *)lParam;
    DWORD dwProcessId = 0x0;
 
    GetWindowThreadProcessId(hWnd, &dwProcessId);
 
    if (ed.dwProcessId == dwProcessId)
    {
        ed.hWnd = hWnd;
        ::SetLastError(ERROR_SUCCESS);
        return FALSE;
    }
 
    return TRUE;
}
 
HWND FindWindowFromProcessId(DWORD dwProcessId)
{
    EnumData ed = {dwProcessId};
    if (!EnumWindows(EnumProc, (LPARAM)&ed) && (GetLastError() == ERROR_SUCCESS))
    {
        return ed.hWnd;
    }
 
    return NULL;
}
 
 
HWND FindWindowFromProcess(HANDLE hProcess)
{
    return FindWindowFromProcessId(GetProcessId(hProcess));
}
 
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    ::SetWindowText(FindWindowFromProcessId(4252), "11111111");
}
//---------------------------------------------------------------------------

HWND Window(int id)
{
unsigned long i;
HWND hwnd=FindWindow(L"Мой класс",NULL);//В справке написано что при таком варианте переберёт все окна
// Не выходим из цикла, пока не найдем активное окно
  while (hwnd != 0)
  {
  GetWindowThreadProcessId(hwnd,&i);
  if (i==id)
    {
    ShowMessage(id);
    return hwnd;
    }
  hwnd=GetNextWindow(hwnd,GW_HWNDNEXT);//Вот тут не нашёл функции типа FindWindowNext
  }
  return 0;
}