Enable / Disable Theme XP

Declare Integer EnableTheming In "UxTheme.dll" Integer nEnable

=EnableTheming(.F.)
Inkey(5, "H")
=EnableTheming(.T.)

Declare Integer IsThemeActive in "UxTheme.dll" () As Long
nRet = IsThemeActive()

? "Themes: " + Iif(nRet = 0, "Nu e activa","Activa")