XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Controls: Manifest für einzelne Controls unter Windows XP ausschalten
Def Setwindowtheme(3) !uxtheme.dll, SetWindowTheme

Proc Disablexptheme

    Parameters Hwnd&
    Declare Word#
    Dim Word#, 2
    Setwindowtheme(Hwnd&, Word#, Word#)
    Dispose Word#

Endproc

declare but1&,but2&
cls
but1& = Create(Button,%HWnd,Test,100,200,100,25)
Disablexptheme(but1&)
but2& = Create(Button,%HWnd,Beenden,300,200,100,25)