Code: Alles auswählen
Procedure EnumWindowsProc(hwnd,lParam)
Protected style.i
Protected rc.rect
Protected buffer.s = Space(255)
style = GetWindowLong_(hwnd, #GWL_STYLE)
If style & #WS_VISIBLE And Not style & #WS_CHILD
GetWindowRect_(hwnd, rc)
Debug rc\right - rc\left
Debug rc\bottom - rc\top
Debug "-----"
EndIf
ProcedureReturn #True
EndProcedure
EnumWindows_(@EnumWindowsProc(), 0)
Code: Alles auswählen
Procedure EnumWindowsProc(hwnd,lParam)
Protected style.i
Protected rc.rect
Protected buffer.s = Space(255)
style = GetWindowLong_(hwnd, #GWL_STYLE)
If style & #WS_VISIBLE And Not style & #WS_CHILD
GetWindowRect_(hwnd, rc)
Debug rc\right - rc\left
Debug rc\bottom - rc\top
Debug lol
If MessageRequester("blabla",Str(rc\left)+","+Str(rc\top)+","+Str(rc\right)+","+Str(rc\bottom)+","+Str(rc)+","+Str(lol)+" - "+Str(GetWindowText_(hwnd,1,-1)),1)=2
End
EndIf
EndIf
ProcedureReturn #True
EndProcedureGenaushutdown27 hat geschrieben:wow danke
heisst dieses _ das es aus der win api is oder so??
Auch von Anfängern kann man erwarten, dass sie sich das was jemand verlinkt auch durchlesen.shutdown27 hat geschrieben: sorry bin noch n anfänger
wie benutze ich das?
Code: Alles auswählen
Procedure EnumWindowsProc(hwnd, lParam)
Protected style
Protected rc.rect
Protected buffer.s = Space(255)
style = GetWindowLongPtr_(hwnd, #GWL_STYLE)
If style & #WS_VISIBLE And Not style & #WS_CHILD
GetWindowRect_(hwnd, rc)
GetWindowText_(hwnd, @buffer, Len(buffer))
Debug buffer
Debug rc\right - rc\left
Debug rc\bottom - rc\top
Debug "-----"
EndIf
ProcedureReturn #True
EndProcedure
EnumWindows_(@EnumWindowsProc(), 0)