Mode de compatibilité de l'EXERésolu

Question

bonsoir,
&#224; partir de VB6, sous XP, j'ai besoin de rendre compatible un exe vers Windows 2000.

j'arrive &#224; r&#233;cup&#233;rer la version du syst&#232;me et bien s&#251;r le chemin et nom de l'exe, mais je ne trouve pas quelle API chercher...
S/G-FileAttributes n'a aucun rapport...
une id&#233;e? un piste? un produit fini?
merci^^
PCPT    [AFCK]

Renfield · Accepted Answer

J'ai compar&#233; deux Exe identiques, dont l'un etait en mode compatible, il sont identiques, cette info n'est pas stock&#233;e l&#224;...



mais dans Base de registres, effectivement :



HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

cs_Jack · Answer

Salut
Bien confus tout &#231;a ... 
Explication de texte :

Avec VB6, tu as compil&#233; un EXE sous XP.
Apparemment, il ne fonctionne aps sous W2k.
besoin de rendre compatible un exe  : Pourquoi ? Quel probl&#232;me/erreur as-tu ?
j'arrive &#224; r&#233;cup&#233;rer la version du syst&#232;me : La version de l'OS, tu veux dire, &#224; savoir que tu es sous XP ou sous W2k. Bien, Ok.
et bien s&#251;r le chemin et nom de l'exe : Bien s&#251;r
mais je ne trouve pas quelle API chercher... : Pour trouver quoi ? O&#249; est ta question ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

PCPT · Answer

merci de ton int&#233;r&#234;t.
s&#251;r ce PC (d&#233;veloppement, WinXP), il est fr&#233;quent que je sois oblig&#233; de passer les exe en "compatible Windows2000" lorsqu'ils sont li&#233;s ont leur "moi.exe.manifest".

apr&#232;s recherches, il arrive parfois cet incident....
(donc de devoir passer manuellement cette compatibilit&#233;)
or je fais une classe pour cr&#233;er et appliquer facilement un manifest.
je voudrais donc que ma classe modifie cette propri&#233;t&#233; sur l'exe (suite aux tests de syst&#232;me, cr&#233;ation, etc...)

supposable par API.... (non? <- question = laquelle? comment?)
j'esp&#232;re avoir &#233;t&#233; plus clair ;)
@ bient&#244;t et merci 
PCPT  [AFCK]

Renfield · Answer

tu pourrais d&#233;j&#224; conditionner l'appel &#224; InitCommonControls(Ex)...

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

cs_rt15 · Answer

Salut pcpt

Sinon, pour modifier la compatibilité, si tu trouves pas d'API, y a forcément une clé dans la base de registre.

Il te faudrait un logiciel de comparaison du registre (Y en a au moins des shareware): tu sauvgarde, tu modifies les options de compatibilité, puis tu demandes les différences.

Le problème c'est qu'accèder directement à la base de registre est moins propre qu'avec l'API, et surtout que les données sont parfois plus ou moins cryptées...

Renfield · Answer

(un simple recherche du nom du fichier dans la base de registre a suffit.... pas besoin d'un SnapShot ^^)

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

merci &#224; vous 2.
j'en &#233;tais arriv&#233; aux m&#234;mes conclusions sans la ligne du registre.
lorsque je compile mon projet, je passe manuellement en compatible 2000, je supprime l'exe, recompile, le nouvel exe est toujours en 2000.
c'&#233;tait donc forc&#233;ment le registre ;)

je regarde &#231;&#224; de plus pr&#232;s et vous tiens au courant.
++
PCPT   [AFCK]

cs_rt15 · Answer

Renfield m'a devancé !

Sinon, même conclusion que lui !

Une modification des données de la clé modifie instantanément les options de l'exe.

Par contre c'est dans HKCU...

Autrement dis, chaque utilisateur a ses propres options de compatibilité, ce qui ne vat pas te faciliter le boulot...

PCPT · Answer

bon, bah çà a l'air fonctionnel merci encore. voici un bout de code qui peut être utile aux futurs éventuels lecteurs Private Const cDestKey As String = "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers" Private Const cDestValue As String = "WIN2000" ' on regarde si la clé existe Dim lRet As Long, lKeyHandle As Long lRet = RegOpenKeyEx(HKEY_CURRENT_USER, cDestKey, 0&, KEY_ALL_ACCESS, lKeyHandle) If lRet = ERROR_SUCCESS Then ' elle existe, on ferme la lecture Call RegCloseKey(lKeyHandle) Else ' elle n'existe pas, on la créé Call RegCreateKey(HKEY_CURRENT_USER, cDestKey, 0&) End If ' on ré-ouvre la clé + vérif erreur registre (logiquement inutile.....) lRet = RegOpenKeyEx(HKEY_CURRENT_USER, cDestKey, 0&, KEY_ALL_ACCESS, lKeyHandle) If lRet <> ERROR_SUCCESS Then Exit Sub ' on récupère la valeur (peut ne pas exister) Dim sBuffer As String, sValue As String sBuffer = Space$(2048) Call RegQueryValueEx(lKeyHandle, sPathFileExe, 0&, REG_SZ, sBuffer, Len (sBuffer)) sValue = LeftB$(sBuffer, 14) sBuffer = Chr$(0) ' si la clé n'existe pas ou n'est pas bonne, on la créé If sValue <> cDestValue Then sValue = cDestValue & Chr$(0) Call RegSetValueEx(lKeyHandle, sPathFileExe, 0&, REG_SZ, sValue, Len(sValue)) End If ' on ferme Call RegCloseKey(lKeyHandle) Coloration syntaxique automatique [AFCK] les API et constantes sont sur Guid-Api. le reste est devinable... plus de détails sur ma source Manifest que je posterai sous peu.... @+ et merci RenField (et à toi aussi RT15 ^^) PCPT [AFCK]

PCPT · Answer

http://www.vbfrance.com/code.aspx?ID=34784

PCPT · Answer

Rey ou Jack, &#224; tout hasard... est-ce que SetLayeredWindowAttributes fonctionne sous NT?
merci ;)

Renfield · Answer

Windows 2000 minimum

Google > SetLayeredWindowAttributes >"j'ai de la chance" >
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/setlayeredwindowattributes.asp

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

ok, j'ai mal formul&#233;. d&#233;sol&#233; :
si je fais un SetLayered... sous W98, l'appli plante. est-ce qu'elle plante &#233;galement sous NT ou n'a juste aucun effet...
(je suppose que oui, mais c'est une certitude que j'ai besoin)

Renfield · Answer

elle plante tout autant....

la fonction n'etant pas trouv&#233;e dans la Dll qui l'exporte sous 2000 et +

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

ok. c'est bien ce que je supposais.
merci @+
PCPT  [AFCK]

Mode de compatibilité de l'EXE

15 réponses

Discussions similaires