hwnd = api_getWindowHandle("mIRC")           ;kleiner beispiel Aufruf
Print hwnd                                   ;gibt den gefundenen Handle aus
Print api_GetWindowText$(hwnd)               ;gibt den Titel des gefundenen Fensters aus


Function api_GetWindowHandle(title$)
  hwnd=FindWindow("Blitz Runtime Class"," ") ;falls ihr einen AppTitle habt muss der statt " "
                                             ;eingetragen werden
  hwnd=GetWindow(hwnd,0)
  check$=api_GetWindowText$(hwnd)
  If Instr(check$,title$)<>0 Then Return hwnd
  Repeat
    hwnd=GetWindow(hwnd,2)
    check$=api_GetWindowText$(hwnd)
  Until Instr(check$,title$)<>0 Or hwnd = 0
  Return hwnd
End Function

Function api_GetWindowText$(hwnd)
  bank=CreateBank(255)
  lenght=GetWindowText(hwnd,bank,255)
  For i=0 To lenght-1
    fname$=fname$+Chr$(PeekByte(bank,i))
  Next
  FreeBank bank
  Return fname$
End Function