Hola. Este pequeño código sirve para saber si el estilo visual que tenemos aplicado en la PC es al clásico, o si es otro distinto como el de Xp.
Ha, lo unico que lo he implementado sobre delphi 7, y presinde del uses XPMan que no lo traen las versiones anteriores a la 7. En realidad lo que tiene este delphi que no tienen los anteriores es el archivo WindowsXP.res que se encuentra en la carpeta lib. Bueno, solo necesitan copiarlo en cualquier lugar accesible para la App y despues agregarselo al proyecto para que este truco funcione..
Mas abajo se puede bajar el archivo a utilizar. Peguenlo en la carpeta lib...
Aqui como se debe de incluir en el delphi, lo cual provoca que la app se adapte al estilo visual en curso!
despues se puede ejecutar esto a gusto...
Código Delphi
[-]
...
uses Themes, XPMan;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ThemeServices.ThemesEnabled then
ShowMessage('Se esta utilizando Windows XP u otro que no es el clasico!')
else
ShowMessage('Se esta utilizando el estilo de Windows Clasico!');
end;