XProfan

//Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
//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)
WaitInput