Changer les performances de Windows

ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014 - 20 sept. 2011 à 12:56
 Utilisateur anonyme - 25 oct. 2011 à 20:38
Salut

Quel est le code en Delphi 7 qui permet de changer les propriétés d'affichage de bureau vers
« Style Windows XP » et « Par défaht (bleu) » dans les propriétés

- Fenêtre et button
- Modèle de couleurs

Et aussi la propriété :
« Laisser Windows choisir la meilleure configuration pour mon ordinateur »

Qui se trouve en :

Démarrer propriétés poste de travail avancés performances paramètres

J'ai vu toutes ces options Semblable dans le logiciel « TuneUp 2010 »

Aide moi
Merci

16 réponses

ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014
21 sept. 2011 à 14:52
je veux pas lancer les propriétés d'affichage
Mais je veux modifier le style de windows par code Delphi dans l'onglet apparance
0
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
22 sept. 2011 à 12:26
Salut,

as tu cherché ???
tu vas me dire que oui ...
alors regarde ceci et tout particulièrement le premier lien


[hr]@+Cirec
[hr]
0
ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014
22 sept. 2011 à 15:29
Ça le code qui permet de modifier l'apparence de Windows :

uses uxtheme,Registry;
...

Procedure ChangeStyleVisuel(StyleVisuel:string);
const CleRegistre='Software\Microsoft\Windows\CurrentVersion\ThemeManager';
var BaseRegistre:TRegistry;
begin
BaseRegistre:=TRegistry.Create;
try
BaseRegistre.RootKey:= HKEY_CURRENT_USER;
// False car nous ne voulons pas la créer si elle n'existe pas
BaseRegistre.OpenKey(CleRegistre, False);
BaseRegistre.WriteString('ColorName',StyleVisuel);
finally
BaseRegistre.Free;
end;

//Applique le style
EnableTheming(IsThemeActive);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Gris Clair
ChangeStyleVisuel('Metallic');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Vert Olive
ChangeStyleVisuel('Homestead');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//Bleu
ChangeStyleVisuel('NormalColor');
end;


Les deux procédures ChangeStyleVisuel('Metallic'); et ChangeStyleVisuel('Homestead');
Fonctionne très bien tant que le style est « style windows xp »

Mais la procedure ChangeStyleVisuel('NormalColor'); ne fonctionne pas tant que le style est «Style Windows classique » ou un autre style sauf « style windows xp » par ce que je veux modifier vers « style windows xp »

Ou le problème ? il y?a un autre code ?
La solution s'il vous plait.

Et quel est le role de ce code qui associe avec la premiere procedure ?

Procedure SetLookClassique;
begin
EnableTheming(False);
end;

Procedure SetLookXP;
begin
EnableTheming(True);
end;

function IsLookXP:boolean;
begin
result:=IsThemeActive;
end;

function IsLookClassique:boolean;
begin
result:=not IsThemeActive;
end;

Procedure Basculer_Look_XP_vers_Classique_et_vice_versa;
begin
EnableTheming(not IsThemeActive);
end;

merci
0
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
26 sept. 2011 à 10:39
Pour modifier les propriétés d'affichage, tu as :

- modification de la base de registre (c'est l'exemple que tu fournis)
- les API windows

mais dans les deux, le reboot sera nécessaire..

TUNE UP fait de l'optimisation, mais ne modifie pas directement les propriétés d'affichage..

cantador
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014
27 sept. 2011 à 12:58
salut

- comment utiliser les API Windows sous delphi pour modifier les apparences?
- j'ai besoin le code sources
- le code qui j'ai fournit peut modifier le style de windows sans redémarrage !!

Merci
0
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
28 sept. 2011 à 15:32
il semble que tu as posé le problème un peu partout..

voir la réponse de LadyWasky sur developpez.com :
Style windows
il y bien l'API : UxTheme API
mais elle ne règle pas ton souci..

Une piste cependant à tester :
désactiver l'autre thème non souhaité au profit de l'autre ?

en tout cas méchante question..

cantador
0
ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014
2 oct. 2011 à 11:13
bon jour

J'ai besoin des adresses email des programmeurs ou développeurs en Delphi pour poser le problème de modifier les apparences de Windows XP par code Delphi

Merci
0
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
2 oct. 2011 à 13:05
[quote=ilbodjaoui]J'ai besoin des adresses email des programmeurs ou développeurs en Delphi pour poser le problème de modifier les apparences de Windows XP par code Delphi
/quote
alors ça .. certainement pas.

c'est à toi de faire les testes et les essais qui s'imposent et si il y a toujours un problème, de montrer ce que tu as fait (testé) et là et seulement là, tu pourras prétendre demander de l'aide. Mais toi tu t'es juste contenté de recopier le contenu du lien que je t'avais donné avec les interrogations de l'auteur et tu attends que quelqu'un fasse le travail à ta place ... c'est pas comme ça que ça fonctionne


[hr]@+Cirec
[hr]
0
ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014
4 oct. 2011 à 13:00
Salut

Le chemin de registre suivant permet de modifier le style des windows xp dans onglet apparences dans les propriétés d’affichage
///
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

.Dans le volet de droite, créez une nouvelle valeur DWORD du nom de NoSimpleStartMenu et attribuez-lui la valeur 0.
///
Et aussi le chemin de registre suivant permet de modifier vers la propriété de choix :

« Laisser Windows choisir la meilleure configuration pour mon ordinateur »

Qui se trouve en :

Démarrer propriétés poste de travail avancés performances paramètres effets visuels

///
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\VisualFXSetting

registry subkey.

Le défaut valeur de 0 c’est :
« Laisser Windows choisir la meilleure configuration pour mon ordinateur »

Modifier la valeur 1 pour :

Ajuster afin d’obtenir la meilleure apparence

Modifier la valeur 2 pour :
Ajuster afin d’obtenir les meilleures performances

///



Si possible le code complète sous Delphi7 pour les deux chemins de registre fournit au même temps je veux modifier les performances et les apparences sans redémarrage de l’ordinateur.

Aide-moi
Merci
0
Utilisateur anonyme
4 oct. 2011 à 22:15
Si possible le code complète sous Delphi7


Non pas possible : Par contre lecture du règlement possible et conseillé
0
ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014
5 oct. 2011 à 10:35
Merci pour votre réponse

Les deux lignes de registre qui vous avez fournies ne fait aucune changement visuel sous Windows temps que modifier manuellement dans le registre.

Si possible le code complète sous Delphi7 pour ces deux lignes de registre au même temps ce code modifié les performances et les apparences sans redémarrage de l'ordinateur.


Salut

Le chemin de registre suivant permet de modifier le style des windows xp dans onglet apparences dans les propriétés d'affichage
///
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

.Dans le volet de droite, créez une nouvelle valeur DWORD du nom de NoSimpleStartMenu et attribuez-lui la valeur 0.
///
Et aussi le chemin de registre suivant permet de modifier vers la propriété de choix :

« Laisser Windows choisir la meilleure configuration pour mon ordinateur »

Qui se trouve en :

Démarrer propriétés poste de travail avancés performances paramètres effets visuels

///
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\VisualFXSetting

registry subkey.

Le défaut valeur de 0 c'est :
« Laisser Windows choisir la meilleure configuration pour mon ordinateur »

Modifier la valeur 1 pour :

Ajuster afin d'obtenir la meilleure apparence

Modifier la valeur 2 pour :
Ajuster afin d'obtenir les meilleures performances

///


Si possible le code complète sous Delphi7 pour les deux chemins de registre fournit au même temps je veux modifier les performances et les apparences sans redémarrage de l'ordinateur.

Comment faire un redémarrage d' "explorer.exe"?
Manuellement sous Windows et avec code Delphi

Comment actualiser la base de registre avec code Delphi sans redémarrage ?

Aide-moi
Merci
0
Utilisateur anonyme
6 oct. 2011 à 00:55
Bon jeune homme apriori le message n'est pas compris :

1)On n'est pas là pour faire tes recherches à ta place : Donc merci de regarder sur google y compris dans les pages anglophones

2)
Si possible le code complète sous Delphi7 pour ces deux lignes de registre au même temps ce code modifié les performances et les apparences sans redémarrage de l'ordinateur.


On n'exige pas de code tout fait : Les gens ne sont pas là pour faire des programmes sur mesure. De plus la modification de la base registre en Delphi est amplement documentée sur la toile y compris sur ce site : il suffit de chercher.

Si tu veux que les gens t'aident : Change déjà d'attitude et peut etre que là les gens te donneront les bouts de code qui t'intéresse (A condition de ne pas les demander)

Bref : Merci de lire le règlement
0
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
6 oct. 2011 à 11:21
Salut,

il est inutile de demander le code pour modifier la base de registre à chaque fois que tu as une réponse à ta question qui ne te plait pas: ça veut simplement dire que personne ne fera cette démarche pour toi. Comme l' a souligné Francky c' est à toi que revient ce travail.

A+


Composants Cindy pour Delphi
Faites une donation.
0
ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014
12 oct. 2011 à 12:44
Bon jour

J'ai trouvé cette fonction mais aucun changement vers style Windows XP sous Windows service pack 3 !

function SetSystemVisualStyle(pszFilename, pszColor, pszSize: PChar;
dwReserved: Integer): Integer; stdcall; external 'uxtheme.dll' index 65;

//1 ere procedure
SetSystemVisualStyle('C:\Windows\Resources\Themes\Luna.theme', 'NormalColor', 'NormalSize', 1);


//2 eme procedure

SetSystemVisualStyle(C:\WINDOWS\resources\Themes\Luna\Luna.msstyles

', 'NormalColor', 'NormalSize', 1);


Merci
0
ilbodjaoui Messages postés 17 Date d'inscription mercredi 2 juillet 2008 Statut Membre Dernière intervention 1 octobre 2014
25 oct. 2011 à 19:53
Bon jour
J'ai posé cette question dans un site de programmation

comment changer les effets visuels quelconque vers le choix
> suivante :
> « Laisser Windows choisir la meilleure configuration pour mon
> ordinateur »
> Qui se trouve en :
> Démarrer propriétés poste de travail avancés performances
> paramètres effets visuels


Et j'ai reçus cette réponse

L'Explorer lit les valeurs CheckedValue & UncheckedValue dans
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects
pour la "meilleure configuration"
(puis SystemParametersInfo() comme SPI_SETCURSORSHADOW par ex pour
"CursorShadow")

Mais j'ai besoin le code complet de Delphi pour forcer le changement sans redémarrage de l'ordinateur sous « Windows service pack 2 et 3 »


Et j'ai trouvé cette fonction mais aucun changement vers style Windows XP "blue" pour forcer le changement sans redémarrage de l'ordinateur sous Windows service pack 2 et 3 !

function SetSystemVisualStyle(pszFilename, pszColor, pszSize: PChar;
dwReserved: Integer): Integer; stdcall; external 'uxtheme.dll' index 65;

//1 ere procedure
SetSystemVisualStyle('C:\Windows\Resources\Themes\Luna.theme', 'NormalColor', 'NormalSize', 1);


//2 eme procedure

SetSystemVisualStyle(C:\WINDOWS\resources\Themes\Luna\Luna.msstyles

', 'NormalColor', 'NormalSize', 1);

Merci
0
Utilisateur anonyme
25 oct. 2011 à 20:38
Tu nous les brises
Regardes la MSDN.

Pas la peine de reposer la question : il suffit de lire la MSDN et si tu trouves pas de réponse c'est que ce n'est pas possible.
0
Rejoignez-nous