Foros Club Delphi - Cambiar el THEME de Windows XP

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Cambiar el THEME de Windows XP (https://www.clubdelphi.com/foros/showthread.php?t=67196)

MAXIUM

05-04-2010 00:47:21

Cambiar el THEME de Windows XP

Me gustaría saber como cambiar el estilo visual de Windows XP, no me refiero al de mi aplicación sino al del sistema operativo (Theme) por código.

De antemano muchas gracias.

MAXIUM

08-04-2010 19:21:06

Ok, resolví lo siguiente:

Código Delphi [-]     WinExec(PChar('control desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\WINDOWS\Resources\Themes\Windows Classic.theme"'), SW_NORMAL);
     SetForegroundWindow(FindWindow(nil, 'Propiedades de Pantalla'));
     keybd_event(VK_RETURN, 0, 0, 0);
     keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);

Funciona. Si alguien se anima a depurarlo, se agradece

La franja horaria es GMT +2. Ahora son las 00:57:09.