Discussion :

[bubulemaster]

Bonjour,

je créer un composant et suivant si le fichier manifest est présent, je change l'allure.
J'ai essayé ce code mais ça ne fonctionne pas :

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
procedure TForm1.Button2Click(Sender: TObject);
var
  dHandle: THandle;
// constante trouvé sur Internet
const RT_MANIFEST = 'MANIFEST' ;
begin
    dHandle := FindResource(hInstance, nil, RT_MANIFEST);
 
    if dHandle <> 0
    then begin
        dhandle := LoadResource(hInstance, dHandle);
 
        if dHandle <> 0
	    then begin
	        MessageBox(Handle, 'yes', 'yes', MB_OK) ;
	    end ;
	end ;
end ;

J'ai chercher sur internet et je n'ai rien trouvé à problème.
En plus, il faut que le manifest sois la première ressource :

Code :

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

1 24 XPTheme.manifest

Quelqu'un aurait-il une idée ?

Je travaille sous delphi 6

[ShaiLeTroll]

Effectivement, c'est une idée !
Il est vrai que si tu fais un composant, comment savoir si dans le projet où l'on utilise ton compo, on a ajouté la ressource ... deplus en Delphi6, il n'y avait pas le composant TXPManifest, tu as récupéré la ressource "sample.manifest" de Delphi7 ???

Sinon, tu dois avoir des fonctions API pour lire l'API, comme un GetFileVersion par Exemple, un GetFileAssembly ou un truc du genre ...

Perso, j'ai remarqué, que les CheckBox sous XP, le texte reste en noir, et il y aussi des alignements différents ... donc je réagis en conséquence

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure StyleChanged(var Msg: TMessage); message WM_THEMECHANGED;
 
procedure TTrucForm.StyleChanged(var Msg: TMessage);
begin
  inherited;
  if UxTheme.IsThemeActive() then
    ManageXPTheme()
  else
    ManageClassicTheme();
end;

[bubulemaster]

Je gère le changement de thème et le fait que le thème est actif au pas.
Mais si on écrit un appli et qu'on ne met pas la ressource XP, on l'ancien affichage.
Donc, je veux dans ce cas que mon composant propose un affichage avec bordure ancien style.

[ShaiLeTroll]

Faut voir si tu peux faire un LoadLibrary sur System.DLL et un GetProcAddress sur GetAssembly, c'est du .Net, donc je ne sais pas si l'on peut les accéder à l'ancienne ...

Sinon, voir dans NTDLL.DLL et GetAssembly, idem ... genre, j'ignore les paramètres

[bubulemaster]

N'y a-t-il pas un moyen de lister les ressources de type MANIFEST (si c'est bien ce type) ou de type 24 ?

A moins que le nom de la ressource est chr(24)

Sinon il faudrait voir avec un programme qui liste les ressources mais je n'en connais pas.