GUI "Enum Windows"

CONST  ID_BUTT1 = 111
CONST  ID_BUTT2 = 222

GLOBAL Form1 AS CONTROL
GLOBAL Edit1 AS CONTROL
GLOBAL Butt1 AS CONTROL
GLOBAL Butt2 AS CONTROL


SUB FORMLOAD
Form1 = BCX_FORM("Enum")
Edit1 = BCX_INPUT ("Notepad",Form1,0,10,10,100,15)
Butt1 = BCX_BUTTON(" Find ", Form1,ID_BUTT1,10,50)
Butt2 = BCX_BUTTON(" Stop ", Form1,ID_BUTT2,10,90)
CENTER (Form1)
SHOW   (Form1)
END SUB


BEGIN EVENTS
IF CBCTL = ID_BUTT1 THEN EnumWindows(EnumWindowsProc,0)
IF CBCTL = ID_BUTT2 THEN PostQuitMessage(0)
END EVENTS



FUNCTION EnumWindowsProc(hWnd AS HWND, lParam AS LPARAM)
LOCAL Title$, Search$, Found$
Title$  = UCASE$(BCX_GET_TEXT$(hWnd))
Search$ = UCASE$(BCX_GET_TEXT$(Edit1))
IF LEN(Title$) THEN
  IF INSTR(Title$,Search$) THEN
    Found$ = "Found " & BCX_GET_TEXT$(Edit1)
    Msgbox Found$
    EXIT FUNCTION
  END IF
END IF
FUNCTION = TRUE
END FUNCTION