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 :
J'ai chercher sur internet et je n'ai rien trouvé à problème.
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 ;
En plus, il faut que le manifest sois la première ressource :
Quelqu'un aurait-il une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part 1 24 XPTheme.manifest
Je travaille sous delphi 6
Partager