Gegenstück zu SetWindowPos?!

[Leo]

Moin,

ich suche nach einer Funktion, die das Gegenteil von SetWindowPos_() macht, nämlich informationen über das Fenster liefert.

Code: Alles auswählen

GetWindowPos_(@a.WINDOWPOS)

So, oder so ähnlich.

Danke.

P.S.: Ich brauche nur das hwndInsertAfter aus der Struktur, um festzustellen, ob das Fenster ein Stay-On-Top Fenster ist. Gibt es da vielleicht ne andere Lösung für?

[ts-soft]

Code: Alles auswählen

WindowX()
WindowY()
WindowHeight() 
WindowWidth() 

falls du dieses meinst

[MVXA]

hab ich ihm schon über skype vorgeschlagen . Er will die Z Position des Fensters.

[Leo]

Code: Alles auswählen

WindowX()
WindowY()
WindowHeight() 
WindowWidth() 

falls du dieses meinst

Siehe P.S.

Ich brache nur das hwndInsertAfter

[AndyMars]

Ich würde GetTopWindow vorschlagen...

[Leo]

Hmm nein, das is nich ganz das, was ich suche ^^ Das gibt mir ja nur Parents zurück.. ich will einfach nur wissen ob bei einem Fenster das Flag AlwaysOnTop gesetz is ^^

[NicTheQuick]

Ich weiß nicht, ob es das ist, was du meinst, aber mein Programm EnumAllWindows liefert dir zu einem Handle auch ein Flag, ob ein Window topmost.

Zum Beispiel ist die Taskbar topmost. Hier der Code, der das herausfindet.

Code: Alles auswählen

Procedure.s dwExStyle(DWord.l)
  #WS_EX_COMPOSITED = $02000000
  #WS_EX_LAYERED = $80000
  #WS_EX_LAYOUTRTL = $400000
  #WS_EX_NOACTIVATE = $8000000
  #WS_EX_NOINHERITLAYOUT = $100000
  
  Text.s = ""
  If DWord & #WS_EX_ACCEPTFILES
    Text = Text + "accept drag-drop files, "
  EndIf
  If DWord & #WS_EX_APPWINDOW
    Text = Text + "taskbar window, "
  EndIf
  If DWord & #WS_EX_CLIENTEDGE
    Text = Text + "sunken edge border, "
  EndIf
  If DWord & #WS_EX_COMPOSITED
    Text = Text + "#WS_EX_COMPOSITED, "
  EndIf
  If DWord & #WS_EX_CONTEXTHELP
    Text = Text + "question mark button, "
  EndIf
  If DWord & #WS_EX_CONTROLPARENT
    Text = Text + "#WS_EX_CONTROLPARENT, "
  EndIf
  If DWord & #WS_EX_DLGMODALFRAME
    Text = Text + "double border, "
  EndIf
  If DWord & #WS_EX_LAYERED
    Text = Text + "layred, "
  EndIf
  If DWord & #WS_EX_LAYOUTRTL
    Text = Text + "Arabic/Hebrew, "
  EndIf
  If DWord & #WS_EX_LEFT
    Text = Text + "left-aligned, "
  EndIf
  If DWord & #WS_EX_LEFTSCROLLBAR
    Text = Text + "left scroll bar, "
  EndIf
  If DWord & #WS_EX_LTRREADING
    Text = Text + "left-to-right reading, "
  EndIf
  If DWord & #WS_EX_MDICHILD
    Text = Text + "MDI child, "
  EndIf
  If DWord & #WS_EX_NOACTIVATE
    Text = Text + "#WS_EX_NOACTIVATE, "
  EndIf
  If DWord & #WS_EX_NOINHERITLAYOUT
    Text = Text + "#WS_EX_NOINHERITLAYOUT, "
  EndIf
  If DWord & #WS_EX_NOPARENTNOTIFY
    Text = Text + "no #WS_PARENTNOTIFY message, "
  EndIf
  If DWord & #WS_EX_OVERLAPPEDWINDOW
    Text = Text + ""
  EndIf
  If DWord & #WS_EX_PALETTEWINDOW
    Text = Text + ""
  EndIf
  If DWord & #WS_EX_RIGHT
    Text = Text + "right-aligned, "
  EndIf
  If DWord & #WS_EX_RIGHTSCROLLBAR
    Text = Text + "right scroll bar, "
  EndIf
  If DWord & #WS_EX_RTLREADING
    Text = Text + "right-to-left reading, "
  EndIf
  If DWord & #WS_EX_STATICEDGE
    Text = Text + "3D border, "
  EndIf
  If DWord & #WS_EX_TOOLWINDOW
    Text = Text + "tool window, "
  EndIf
  If DWord & #WS_EX_TOPMOST
    Text = Text + "topmost, "
  EndIf
  If DWord & #WS_EX_TRANSPARENT
    Text = Text + "transparent, "
  EndIf
  If DWord & #WS_EX_WINDOWEDGE
    Text = Text + "raised edge, "
  EndIf
  
  If Text
    Text = Left(Text, Len(Text) - 2)
  Else
    Text = "n/a"
  EndIf
  ProcedureReturn Text
EndProcedure

Structure WINDOWINFO
  cbsize.l
  rcWindow.RECT
  rcClient.RECT
  dwStyle.l
  dwExStyle.l
  dwWindowStatus.l
  cxWindowBorders.l
  cyWindowBorders.l
  AtomWindowType.l
  wCreatorVersion.w
EndStructure

handle = FindWindow_("Shell_TrayWnd", 0)
If handle
  
  WindowInfo.WINDOWINFO
  WindowInfo\cbsize = SizeOf(WINDOWINFO)
  If GetWindowInfo_(handle, @WindowInfo)
    MessageRequester("Ex Style", dwExStyle(WindowInfo\dwExStyle))
  EndIf
EndIf

[Leo]

Hey cool, thx, scheint zu funktionieren