Discussion :

[QAYS]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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 ....

[LadyWasky]

Vite fait, comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

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"