Помогите с findwindow в Delphi

Захотел написать программку, каторая бы скрывала все окна, заголовки каторых начинаются на ==
Приведу пример, того что сейчас есть:

HTML:

procedure TForm1.Button1Click(Sender: TObject);
 var
 h: HWND;
 begin
 h := findwindow(nil,'== любой текст');
 if h <> 0 then
  SetWindowPos(h, SW_HIDE, 1, 1, 20, 20, SWP_HIDEWINDOW);
 end;

По примеру видно, что по нажатию кнопки, все окна, заголовки каторых == любой текст скроются, но нужно чтобы только по первым двум символам == заголовка скрывалось окно. Как это реализовать, подскажите кто знает...

 

юзай EnumWindows / lstrncmpi

зы. ЙА МАЛЕНЬКИЙ ПАКИМОН а-а-а-а--а-а-аа--аа-

 

HTML:

  SetWindowPos(h, SW_HIDE, 1, 1, 20, 20, 

1. а ShowWindows(WindowHandle, SW_HIDE) не подходит?
2. Тебе надо перечислить все окна. затем функцией pos, парсить заголовки, лосить все с '==' и скрывать выше указанным кодом