Comment ecrire, cree et supprimer dans la base de registre?

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
pikachu_vert
Messages : 1
Inscription : mer. 09/mars/2005 15:51

Comment ecrire, cree et supprimer dans la base de registre?

Message par pikachu_vert »

Bonjour, je debut en prog et j aimerai savoire comment cree, supprimer ou modifier des cle de la base de registre de windows si vous avez un petit tuto c est encore mieux merci :D
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Message par djes »

Un petit exemple tiré de codearchiv :

Code : Tout sélectionner

Procedure.s ReadRegKey(OpenKey.l,SubKey.s,ValueName.s)  ; ====================================== ReadRegKey

; key.s=ReadRegKey(#HKEY_LOCAL_MACHINE,"SOFTWARE\Zone Labs\ZoneAlarm","InstallDirectory")

  hKey.l=0
  keyvalue.s=Space(255)
  datasize.l=255
  
  If RegOpenKeyEx_(OpenKey,SubKey,0,#KEY_READ,@hKey)
    keyvalue=""
    Else 
    If RegQueryValueEx_(hKey,ValueName,0,0,@keyvalue,@datasize)
      keyvalue=""
      Else  
      keyvalue=Left(keyvalue,datasize-1)
    EndIf
    RegCloseKey_(hKey)
  EndIf
   
  ProcedureReturn keyvalue
EndProcedure  



Procedure.l WriteRegKey(OpenKey.l,SubKey.s,keyset.s,keyvalue.s) ; ------------------------ WRITE KEY

; result.l=WriteRegKey(#HKEY_LOCAL_MACHINE,"SOFTWARE\Test Program Name","Test","TestValue")

  hKey.l=0  
  If RegCreateKey_(OpenKey,SubKey,@hKey)=0
    result=1
    datasize.l=Len(keyvalue)
    If RegSetValueEx_(hKey,keyset,0,#REG_SZ,@keyvalue,datasize)=0
      result=2
    EndIf 
    RegCloseKey_(hKey)
  EndIf
  ProcedureReturn result 
;returns 0 if error / could not open or create SubKey
;returns 1 if error / could not write new value
;returns 2 if Success!!

EndProcedure
julien
Messages : 846
Inscription : ven. 30/janv./2004 15:06
Contact :

Message par julien »

Il y'a une librairie qui fait tout ça (lire, ecrire, détruire registre et ini)
http://www.reelmedia.org/pp/archive411/ ... NI_Lib.zip

:)
Répondre