XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fremdfenster positionieren
Lauffähig ab Profan-Version 5.0
Declare class#,r&,hwin&
Def GetWindow(2) !USER32,GetWindow
Def GetClassName(3) !USER32,GetClassNameA
Dim class#,64

PROC SET_WIN_EXT_POS

    PARAMETERS Awtitel$,x&,y&,b&,h&
    GetClassName(%desktop,class#,64)
    Let r&=GetWindow(%desktop,5)

    While r& <> 0

        GetClassName(r&,class#,64)
        r&=GetWindow(r&,2)

        IF instr(Awtitel$,gettext$(r&)) > 0

            hwin&=r&
            setactivewindow(hwin&)
            SetWindowPos hWin& = x&, y& - b&, h&; 0
            showwindow(hwin&,1)

        ENDIF

    Wend

ENDPROC

SET_WIN_EXT_POS Microsoft Word,10,10,800,600
Disponer class#