Const GW_CHILD:Int = 5
Const GW_HWNDNEXT:Int = 2

Extern "Win32"
   Function GetWindowText:String(hWnd:Int,lpString:Byte Ptr,nMaxCount:Int) = "GetWindowTextA@12"
   Function GetWindow(hwnd:Int,uCmd:Int)
   Function GetDesktopWindow()
        Function IsWindowVisible(hwnd:Int)
EndExtern

function  getWindowHandle:Int()
      Local CharBuffer:Byte[255]
      hwnd = GetWindow(GetDesktopWindow(),GW_CHILD)
      Repeat
         If IsWindowVisible(hwnd) Then
            GetWindowText(hwnd,CharBuffer,255)
            Local a:String=String.FromCString(CharBuffer)
            If(a<>"" And Instr(a,"suchstring, name des fensters, hier reinschreiben")>0) Then '
               'Print "("+hwnd+") / "+String.FromCString(CharBuffer)
               Return hwnd
            End If
         End If
         hwnd = GetWindow(hwnd,GW_HWNDNEXT)
      Until hwnd = 0
      Return 0;
   Endfunction