windows explorer auslesen ??

[shutdown27]

gibt es eine möglichkeit wie ich herausfinden kann wo fenster auf dem bildschirm sind

weil ich habe ein durchsichtiges fenster mit einem character drin und würde diesen gerne auf den
fenstern rumlaufen lassen

danke für jede antwort

[edel]

Du koenntest EnumWindows_ dafuer nehmen.

Beispiel :

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)

[shutdown27]

ja das hat mir schonmal geholfen die koordinaten hab ich jez danke ^^

kann ich auch den namen von dem fenster irgendwie bekommen?

[HeX0R]

GetWindowText_()

[shutdown27]

wow danke
heisst dieses _ das es aus der win api is oder so??

sorry bin noch n anfänger
wie benutze ich das?

ich habe das so in das script eingefügt:

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
EndProcedure

aber es gibt immer 0 aus

[HeX0R]

wow danke
heisst dieses _ das es aus der win api is oder so??

Genau

sorry bin noch n anfänger
wie benutze ich das?

Auch von Anfängern kann man erwarten, dass sie sich das was jemand verlinkt auch durchlesen.
Dort steht nirgends, dass man den Befehl mit 1,-1 als Parameter füttern soll...

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)