Получить 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;
}

EnumData

struct EnumData {
    DWORD dwProcessId;
    HWND hWnd;
};

ShowMessage(GetProcessId(FindWindowFromProcess(hProcess)));

SetWindowText(FindWindowFromProcess(hProcess),L"sfsdf");

SetWindowText(FindWindowFromProcessId(6296),L"sfsdf");

void __fastcall TForm1::sButton3Click(TObject *Sender)
{
 
SetWindowText(FindWindowFromProcessId(6296),L"sfsdf");
}
//---------------------------------------------------------------------------
HWND FindWindowFromProcess(HANDLE hProc)
{
    return FindWindowFromProcessId(GetProcessId(hProc));
}
//---------------------------------------------------------------------------
HWND FindWindowFromProcessId(DWORD dwProcessId)
{
    EnumData ed = {dwProcessId};
    if (!EnumWindows(EnumProc, (LPARAM)&ed) && (GetLastError() == ERROR_SUCCESS))
    {
        return ed.hWnd;
    }
 
    return NULL;
}
//----------------------------------------------------------------------------
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;
}
//----------------------------------------------------------------------------

unsigned long i;
GetWindowThreadProcessId(FindWindowFromProcessId(6296),&i);
ShowMessage(i);

HWND hWnd= FindWindowFromProcessId(6296);
SetWindowText(hWnd,L"Работать!");

SetWindowText(FindWindow("Класс окна",NULL),L"Работать!");