XProfan

DEF @GetWindowLong(2) !"USER32","GetWindowLongA"
Windowstyle 31
Windowtitle "Nicht Topmost"
Window 0,0-640,440
Declare Style&
Let Style&=@GetWindowLong(%HWND,$FFFFFFEC)

If Style& | $8 = Style&

    Print "Hauptfenster ist Topmost"

else

    Print "Hauptfenster ist nicht Topmost"

endif

Waitinput
SetWindowPos %HWND=0,0-640,440;-1
Let Style&=@GetWindowLong(%HWND,$FFFFFFEC)

If Style& | $8 = Style&

    Print "Hauptfenster ist Topmost"

else

    Print "Hauptfenster ist nicht Topmost"

endif

While 0=0

    Waitinput

wend