As铆 como existe la funci贸n SetWindowTheme( oDlg : hWnd ) para deshabilitar, existe una funci贸n inversa ??? Gracias
Saludos
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Habilitar temas de Windows
horacio wrote:As铆 como existe la funci贸n SetWindowTheme( oDlg : hWnd ) para deshabilitar, existe una funci贸n inversa ??? Gracias
Saludos
Encontr茅 eso hace tiempo, pero no lo prob茅:
LOCAL oLoc := CreateObject( "wbemScripting.SwbemLocator" )
LOCAL 聽 objWMI := oLoc:ConnectServer()
LOCAL 聽 聽oServ := objWMI:ExecQuery("Select * from Win32_Service Where Name = 'Themes'")
LOCAL oDatos
MsgInfo("Deshabilitarndo los Themes en Windows XP")
FOR Each oDatos in oServ
聽 聽 oDatos:StopService()
聽 聽 SysRefresh()
NEXT
MsgInfo("Habilitando los Themes en Windows XP")
FOR Each oDatos in oServ
聽 聽 oDatos:StartService()
聽 聽 SysRefresh()
NEXTUn Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
Gracias por el tip, funciona pero lo que me gustar铆a es que sea mi aplicaci贸n el que tome los temas y no todo el sistema. Gracias nuevamente.
Saludos
Si existe un fichero que se llame igual que tu EXE y con la extensi贸n manifest:
tu_app.exe.manifest
y con este contenido:
Tu aplicaci贸n mostrar谩 temas. Para deshabilitarlos, puedes renombrar ese fichero externo y reiniciar la aplicaci贸n
tu_app.exe.manifest
y con este contenido:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="FiveTech Software.FiveWin.32bits"
type="win32"
/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>Tu aplicaci贸n mostrar谩 temas. Para deshabilitarlos, puedes renombrar ese fichero externo y reiniciar la aplicaci贸n
Gracias Antonio por responder. A ver si entend铆, debo copiar el contenido del post anterior en un archivo con el nombre de mi ejecutable con la extensi贸n manifest ? es decir si mi aplicaci贸n es sipep.exe el archivo se tendr铆a que llamar sipep.exe.manifest ? El archivo tendr铆a que estar en el mismo directorio que la aplicaci贸n ??. Nuevamente gracias por tu inter茅s.
Horacio,
Si, asi es
Antonio, he probado tu tip pero no funcion贸 
. El sistema que uso es Win 7 64. Tendr谩 que ver ??? Gracias
Horacio, intenta sustituir "x86" por "64" o lago as铆.
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
FWH 2007 - xHarbour - BCC55
Antol铆n, gracias por la ayuda pero no funciona, alguna otra idea ???
Saludos
Horacio,
Normalmente no se ofrece el habilitar o deshabilitar temas. Nuestra aplicaci贸n los usa 贸 no. Y en caso de que queramos usarlo se incluyen en el fichero RC.
Tienes un ejemplo en samples/tutor01.rc
Antonio, me interesa este tema ya que muchos de los usuarios de la mi aplicaci贸n no utilizan temas en su sistema y me gustar铆a normalizar el aspecto de la misma. Como v铆 la funci贸n SetWindowTheme( oDlg : hWnd ) para eliminar los temas supuse que hab铆a una funci贸n inversa, pero si no se puede. Gracias por tu respuesta ....
Saludos