Найти handle окна по PID

[flesyyykkk]

Приветствую!
Запускаю несколько одинаковых процесс при помощи CreateProcess, сохраняю их PID.

Нужно найти Handle основного окна для каждого процесса.
Помогите!

GetWindowThreadProcessId не предлогать, возвращает id потока, а не процесса!

[Stilet]

EnumThreadWindows тоже не предлагать?

[waleri]

GetWindowThreadID - это ATL
Раз пользуемся такими Фреймворками, тогда наверно можно GetWindowProcessID использовать.

А так чистом WINAPI функция называется GetWindowThreadProcessId

[flesyyykkk]

Сообщение от waleri

GetWindowThreadID - это ATL
Раз пользуемся такими Фреймворками, тогда наверно можно GetWindowProcessID использовать.

А так чистом WINAPI функция называется GetWindowThreadProcessId

Естественно имелось ввиду последнее, просто уже запутался, перебрал кучу примеров из гугл и везде этот GetWindowThreadProcessId. Но он в упор не совпадает с моим ProcessInfo.dwProcessId.

procedure TForm1.Button1Click(Sender: TObject);
begin
   CreateProcess(PChar(ExePath), nil, nil, nil, true,
                NORMAL_PRIORITY_CLASS, nil,
                PChar(ExtractFilePath(ExePath)),
                StartUpInfo, ProcessInfo);
   PID := ProcessInfo.dwProcessId;

   EnumWindows(@EnumWindowsProc, 0);
end;

function EnumWindowsProc(Wnd: DWord; Data: Pointer): Bool; stdcall;
var
 p : DWord;
begin
 Result := true;
 GetWindowThreadProcessId(Wnd, p);
 if p = PID then ShowMessage('ok');
end;

не работает. win7 x64

В общем с блокнотом работает, а с моей программой нет.

Какие варианты есть еще? Программа которую запускаю судя по всему на java написана...