Поиск окон своего процесса

[lollollollol]

Добрый вечер всем!
Подскажите пожалуйста, как перебрать окна СВОЕГО процесса?

Сейчас я делаю так:

function EnumProc(hWindow: HWnd; Param: LongInt): Boolean; stdcall;
var
  buff: Array[0..255] of Char;
  s: String;
begin
  result := true;

  If Boolean(GetClassName(hWindow, buff, 256)) then
    begin
      s := AnsiLowerCase(StrPas(buff));
      If pos(AnsiLowerCase('omboBoxEx32'), s) > 0 then // вот тут ищем кусок класса
        begin
          FOUND_WINDOW := hWindow;
          Result := False;
        end else begin
          EnumChildWindows(hWindow,@EnumProc,0);
          if FOUND_WINDOW<>0 then
          Result:=false;
        end;
    end;

end;

EnumWindows(@EnumProc, 0);

Но тут в куче, как я понял, окна всех процессов перебираются.
А меня интересуют окна только моего процесса.

Может как-то определить какому процессу окно принадлежит...

Какое решение максимально верное для моей ситуации?

Спасибо

[Аватар]

Screen.Forms не устраивает?

[lollollollol]

GetWindowThreadProcessId самое оно, только что решил

[Filka]

EnumThreadWindows + GetCurrentThreadId
Функция EnumProc должна возвращать BOOL (4 байта), а не Boolean (1 байт).

[taras-proger]

Ответь лучше на один вопрос. Как ты умудрился их потерять?