Modif base de registre

[brossden]

Bonjour

Je voudrais savoir s'il est possible de modifier ou de recuperer des éléments de la base de registre sans utiliser de librairie ou autre extérieur à PureBasic

[brossden]

Désolé j'avais mal utilisé recherche, dans un post j'ai trouvé ceci :

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 

Cela correspond exactement à mon désir !

[KiWin]

PureBasic fait appel à une API pour modifier le registre, il ya donc bien utilisation d'une librairie...