Changer les performances de Windows

Signaler
Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014
-
 Utilisateur anonyme -
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

Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014

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
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,

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


[hr]@+Cirec
[hr]
Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014

Ç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
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
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
Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014

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
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
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
Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014

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
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
[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]
Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014

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

Si possible le code complète sous Delphi7


Non pas possible : Par contre lecture du règlement possible et conseillé
Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014

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

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
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
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.
Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014

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
Messages postés
17
Date d'inscription
mercredi 2 juillet 2008
Statut
Membre
Dernière intervention
1 octobre 2014

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

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.