Aunque creo que la duda ha sido satisfecha me parece que la pregunta estaba orientada a otra cosa. Si no fue así dejo mi post como una aclaración adicional con las siguientes APIs;
Código Delphi
[-]function EnableTheming(fEnable: LongBool): Cardinal; stdcall; external 'uxtheme';
procedure TForm1.Button1Click(Sender: TObject);
begin
EnableTheming(False);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EnableTheming(True);
end;
La API
EnableTheming va a habilitar o deshabilitar los temas de XP, lo que significa que al presionar el
Button1, el S.O. quedará como el Win2k
Código Delphi
[-]function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall; external 'uxtheme';
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowTheme(Button1.Handle, ' ', ' ');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowTheme(Button1.Handle, nil, nil);
end;
SetWindowTheme va a tener el mismo efecto que la anterior API, con la diferencia que va a actuar sobre un solo objeto, el cual puede ser una ventana en particular o una lista o un boton
Obviamente ésto, aplicable a los SOs a los que M$ todavia da soporte a la fecha
Saludos