What bone-head thing did I miss this time?

Code: (Select All)

DECLARE DYNAMIC LIBRARY "user32"

    FUNCTION SetActiveWindow& (BYVAL hwnd AS LONG)

    FUNCTION GetWindow& (BYVAL hwnd AS LONG, BYVAL nCmdShow AS LONG)

    FUNCTION FindWindowA& (BYVAL ClassName AS LONG, WindowName$) 'handle by title

END DECLARE



title$ = "Set Window Active Test"

_TITLE (title$)

_DELAY .1



DO

    hwnd& = FindWindowA(0, title$)

LOOP UNTIL hwnd&



DO

    _LIMIT 10

    c& = GetWindow(hwnd&, 1) ' Just put this in to show it does register.

    a& = SetActiveWindow(hwnd&) ' This one should registere, but doesn't. <==============

    PRINT "This should be non-zero:"; a&; " These are fine:"; c&, hwnd&

    SLEEP 4

    IF LEN(INKEY$) THEN END

LOOP

Code: (Select All)

Declare Dynamic Library "user32"

    Sub ShowWindow (ByVal hWnd As _Offset, Byval nCmdShow As Long)

End Declare



title$ = "Set Window Active Test"

_Title title$

_Delay .1



Do

    hwnd%& = _WindowHandle

Loop Until hwnd%&





Do

    _Limit 10

    If _WindowHasFocus = 0 Then

        _ScreenIcon

        ShowWindow hwnd%&, 1

    End If

    Print hwnd%&

    Sleep 4

    If Len(InKey$) Then End

Loop

Code: (Select All)

CONST HWND_TOPMOST%& = -1

CONST SWP_NOSIZE%& = &H1

CONST SWP_NOMOVE%& = &H2

CONST SWP_SHOWWINDOW%& = &H40



DECLARE DYNAMIC LIBRARY "user32"

    FUNCTION SetWindowPos& (BYVAL hWnd AS LONG, BYVAL hWndInsertAfter AS _OFFSET, BYVAL X AS INTEGER, BYVAL Y AS INTEGER, BYVAL cx AS INTEGER, BYVAL cy AS INTEGER, BYVAL uFlags AS _OFFSET)

    FUNCTION GetForegroundWindow& 'find currently focused process handle

END DECLARE



' Needed for acquiring the hWnd of the window

DIM hWnd AS LONG ' Get hWnd value



DO ' Title window and get handle.

    _LIMIT 30

    _TITLE "Persistency Window Demo"

    hWnd = _WINDOWHANDLE

    i = i + 1: IF i > 100000 THEN PRINT "Cannt get window handle.": END

LOOP UNTIL hWnd



wdth = 300: hght = 400



' Set screen

s& = _NEWIMAGE(wdth, hght, 32)

SCREEN s&

_DEST 0



_SCREENMOVE 800, 50

' Main loop

Level = 175

_DELAY .1



DO

    _LIMIT 30

    FGwin& = GetForegroundWindow&



    IF hWnd <> FGwin& THEN ' QB64 no longer in focus.

        WHILE _MOUSEINPUT: WEND

        y& = SetWindowPos&(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_SHOWWINDOW)

        PRINT y&, hWnd, HWND_TOPMOST%&, SWP_NOSIZE%& + SWP_NOMOVE%& + SWP_SHOWWINDOW%&

        DO: _LIMIT 30: LOOP UNTIL hWnd = GetForegroundWindow&

    END IF

    IF INKEY$ = CHR$(27) THEN SYSTEM

LOOP