Comment changer le thème et l'apparence de Windows ?

Version imprimable

25/09/2007, 11h51
QAYS

Comment changer le thème et l'apparence de Windows ?

Bonjour,

Connaissez vous les API qui permette de controler le thème et l'apparance ce Windows XP:

En effet je souhaite forcer lors de l'utilisation de mon application le thème et apparence ci-dessous :

Thème :Windows XP
Apparence :Style Windows XP
Modèles de couleur : Gris

Question subsidaire savez vous comment installer des fichier SKN (skin) dasn windows XP, et est ce installable

Cordialement
Qays

J'ai presque trouvé,

J'ai la fonction qui me donne ce qui est installer (theme apparence, couleur)

reste a trouvé la fonction qui défini ces parametre

Qays

pour info

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
var
  Form1: TForm1;
  GetCurrentThemeName: function (pszThemeFileName: LPWSTR; cchMaxNameChars: Integer;
    pszColorBuff: LPWSTR; cchMaxColorChars: Integer; pszSizeBuff: LPWSTR;
    cchMaxSizeChars: Integer): HRESULT; stdcall;
implementation
uses ComObj, SyncObjs;
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
var
  FileName, ColorScheme, SizeName: WideString;
  hThemeLib: THandle;
begin
  try
    hThemeLib := LoadLibrary('uxtheme.dll');
    if hThemeLib > 0 then
      GetCurrentThemeName := GetProcAddress(hThemeLib, 'GetCurrentThemeName');
    if Assigned(GetCurrentThemeName) then
    begin
      SetLength(FileName, 255);
      SetLength(ColorScheme, 255);
      SetLength(SizeName, 255);
      OleCheck(GetCurrentThemeName(PWideChar(FileName), 255,PWideChar(ColorScheme), 255, PWideChar(SizeName), 255));
      // show the the theme path and file name.
      ShowMessage(PWideChar(FileName));
      // show the color scheme name
      ShowMessage(PWideChar(ColorScheme));
      // show the size name
      ShowMessage(PWideChar(SizeName));
    end;
  finally
    FreeLibrary(hThemeLib);
  end;
end;

25/09/2007, 16h39
Clorish

ca serais pas encore une certaine variable dans la BdR qu'il faudrais modifier ?

Fait une sauvegarde de la BdR complete avant et apres la modification.
En faisant une comporaison des 2 fichiers (UltraEdit le fait) tu decouvriras peut etre quelles sont les entrees qui on ete modifiés ....

Vite fait, comme ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 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;
Pour Passer du Look XP au look "Classique" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 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;
A noter :
Il ne faut pas confondre "Theme" et "Apparence", c'est là ou ça se corse...:aie:

Si vous faites clic droit sur le bureau, et choisissez propriétés, vous vous retrouvez entre autres, avec deux onglets :
- Thèmes
- Apparences

Dans les deux, vous pouvez choisir "Windows Classic" et "Windows XP", mais dans les deux, ça ne change pas du tout la même chose....

En gros, si vous choisissez le Thème "Windows XP" (appelé "Luna"), vous pouvez passer, avec le code que j'ai donné d'une apparence "Classic" (Thème inactif) à une apparence "XP" (Theme Actif).

Mais si vous utilisez le Theme "Windows Classic", le code que je vous ai donné ne fonctionne plus, là il faut utiliser las API d'avant Windows XP !!!

Là il s'agirait de dire à Windows de charger le fichier de thèmes "Luna.msstyle" au lieu de "WindowsClassic.msstyle" :aie: