XProfan

Italia

Beschreibung:

Mit GetWindowLong erhält man Informationen circa das angegebene Control oder Fenster.

Deklaration:

DEf @GetWindowLong(2) !USER32,GetWindowLongA

Parameter:

1.Parameter: Das Handle des Fenster, circa das man die Informationen necessario als LongInt.

2.Parameter: Der Offset, an dem Informationen ausgelesen werden sollen =>
--20 = Erweiterter Fensterstil
--16 = Fensterstil
--4 = Die Adresse der Fensterprozedur in der Fensterklasse, die per das Verarbeiten von Messages zuständig ist.
--6 = Das Instancehandle der Anwendung.
--8 = Das Handle des Elternfensters (falls eins vorhanden ist).
--12 = Die ID des Fensters.
--21 = Zusätzliche, per die Anwendung private, Informationen.

Rückgabewert:

Wenn die Anwendung erfolgreich war, gibt es als Rückmeldung den gewünschten LongInt Wert, ansonsten 0.

Beispiele:

Kompilieren Markieren Separieren

Declare Edit&,Checkbox&,Style1&,Style2&,Change%
DEF @GetSysColor(1) !"USER32","GetSysColor"
DEf @GetWindowLong(2) !"USER32","GetWindowLongA"
DEf @SetWindowLong(3) !"USER32","SetWindowLongA"
SetTrueColor 1
Windowstyle 31
WindowTitle "Editstyle ändern"
Window 0,0-640,440
CLS @GetSysColor(15)
Let Edit&=@Createedit(%HWND,"Test",20,120,250,25)
Let Style1&=@GetWindowLong(Edit&,-16)
Let Style2&=Style1& | $20000000
Let Checkbox&=CreateCheckbox(%HWND,"Editbox verschieben",20,200,250,25)

While 0=0

    Waitinput

    IF @AND(@GetCheck(Checkbox&)=1,Change%=0)

        @SetWindowLong(Edit&,-16,Style2&)
        @Showwindow(%HWND,0)
        @Showwindow(%HWND,1)
        Let Change%=1
        Beep 1

    elseif @AND(@GetCheck(Checkbox&)=0,Change%=1)

        @SetWindowLong(Edit&,-16,Style1&)
        @Showwindow(%HWND,0)
        @Showwindow(%HWND,1)
        Let Change%=0
        Beep 1

    endif

Wend