PureBasic

Je n'utilise pas les themes xp mais en cherchant dans la base de registre, impossible de trouver EnableBalloonTips
Donc ça ça doit être la valeur à créer (si existe pas) ou à modifier si elle existe dejà (en mettant 1 ou 0) mais pour cela faudrait que tu donnes la clé.
(ex: HKEY_CURRENT_USER\blablabla\blublublu)

HKEY_USERS\S-1-5-21-1614895754-839522115-1060284298-1004\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced

Je parlais pour Window XP, pour les autres je ne sais pas! mais ça serait intéressant de le savoir?

Les Ballon Tips fonctionne à partir d'IE version 5:

Note 3: Version 5.80 of Comctl32.dll and version 5.0 of Shlwapi.dll are distributed with Internet Explorer 5. They will be found on all systems on which Internet Explorer 5 is installed, except Windows 2000. Internet Explorer 5 does not update the Shell, so version 5.0 of Shell32.dll will not be found on Windows NT, Windows 95, or Windows 98 systems. Version 5.0 of Shell32.dll will be distributed with Windows 2000 and Windows Me, along with version 5.0 of Shlwapi.dll, and version 5.81 of Comctl32.dll.

woua le soucis avec cette foutu base de registre est que les clé S-1-5-21-xxxxx ne sont pas tjrs les mêmes...
Moi par exemple je n'ai pas la tienne du tout sous mon xp pro sp2... (peut etre parceque j'utilise pas les themes...)

En tout cas la procédure pour tester si la clé existe est la suivante.
(j'utilise la Droopy Libs)

Code : Tout sélectionner

Global CleName$="HKEY_USERS\S-1-5-21-1614895754-839522115-1060284298-1004\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced "
Global CleValeur$="EnableBalloonTips"
test=RegKeyExists(CleName$,".")
If test=1
	Etat$=RegGetValue(CleName$,CleValeur$,".")
	MessageRequester("alert","La clé "+Chr(10)+CleName$+Chr(10)+"a été trouvé")
Else
	MessageRequester("alert","La clé "+Chr(10)+CleName$+Chr(10)+"n'existe pas")
EndIf

Ensuite tu peux créer une clé, une valeur, modifier tout ça...

Voilà les commandes de la droopy libs coté Registre :

Example :

; Create the Test Key
Debug "Create Key"
Debug RegCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\Test",".")

; Write Value
Debug " Write Value"
Debug RegSetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Test","SZ Value","SZ",#REG_SZ,".")
Debug RegSetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Test","DWord Value","155",#REG_DWORD,".")

; Read Value
Debug " Read Value"
Debug RegGetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Test","SZ Value",".")
Debug RegGetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Test","DWord Value",".")

; Create SubKey
Debug " Create SubKey"
Debug RegCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\Test\SubKey1",".")
Debug RegCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\Test\SubKey2",".")

; List SubKey
Debug " List SubKey"
Index=0
While RegListSubKey("HKEY_LOCAL_MACHINE\SOFTWARE\Test",Index,".")<>""
Debug RegListSubKey("HKEY_LOCAL_MACHINE\SOFTWARE\Test",Index,".")
Index+1
Wend

; Delete Key
Debug " Delete Key"
Debug RegDeleteKey("HKEY_LOCAL_MACHINE\SOFTWARE\Test\SubKey1",".")

; List Value Name
Debug " List Value Name"
Index=0
While RegListSubValue("HKEY_LOCAL_MACHINE\SOFTWARE\Test",Index,".")<>""
Debug RegListSubValue("HKEY_LOCAL_MACHINE\SOFTWARE\Test",Index,".")
Index+1
Wend

; Delete Value
Debug " Delete Value"
Debug RegDeleteValue("HKEY_LOCAL_MACHINE\SOFTWARE\Test","SZ Value",".")

; Test if key exist
Debug " Test if key exists"
Debug RegKeyExists("HKEY_LOCAL_MACHINE\SOFTWARE\Test\SubKey2",".")

; Create a key and a value in a unique command
Debug " Create a key and a value in a unique command"
Debug RegCreateKeyValue("HKEY_LOCAL_MACHINE\SOFTWARE\Test\SubKeyAuto","SZ Value","SZ",#REG_SZ,".")

; Delete Key with all its Sub and its value
Debug "Delete Key with all its Sub and its value"
Debug RegDeleteKeyWithAllSub("HKEY_LOCAL_MACHINE\SOFTWARE\Test",".")

je te conseils vivement de tester à chaque fois si les valeurs et clés existent avant de lancer des modifs.

PureBasic

Evènement mouse in, mouse out