Список окон процесса

[Johnson]

Здравствуйте, уважаемые.

Есть процесс (чужой). Внедряю в него библиотеку.

Как из библиотеки можно узнать список всех окон процесса?

EnumThreadWindows даёт только окна текущего потока - это не подходит.

Есть ли способ перечислить сразу все окна процесса, или хотя бы потоки?

Заранее благодарен!

[Пепел Феникса]

function ProcessWndEnumerator(hwnd:THandle;param:DWORD):BOOL;stdcall;
var pid:DWORD
begin
 Result:=true;
 GetWindowThreadProcessId(hwnd,pid);//помоему там var-параметр, если нет то добавьте взятие адреса
 if pid=param then 
  begin
   //значит окно нужного процесса
  end;
end;

EnumWindows(@ProcessWndEnumerator,<нужный pid>);//тут не уверен что верно передал функцию

тут возможно у меня пара ошибок, но уж простите, я на Делфи практически не пишу.

в ветку then кода попадут все самостоятельные окна процесса(без дочерних).

[Johnson]

Спасибо большое)