PureBasic

bonjours, j'aimerais savoir comment on modifit un registre, merki

Fortix a écrit :bonjours, j'aimerais savoir comment on modifit un registre, merki

sur ce forum il y a un bouton "recherche" !!

tu devrai trouver facilement
la on a l'impression que tu passe commande d'un sandwiche dans une brasserie

Pas du tous, mais j'avoue que pendant mes vacances j'ais fais une petite liste de questions où j'étais certains de ne pas trouver les réponses vue mon petit niveau et je ne sais pas encore me servir de ce forum, en faite, ton PureGolo est trop bien réussit!

Fortix a écrit :en faite, ton PureGolo est trop bien réussit!

Merci

Un code de Dobro trouvé sur le forum (pas testé avec la V4)

Code : Tout sélectionner

; Lire une chaine dans le registre 
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 

; ecrire une chaine dans le registre 
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 

; ecrire un long dans le registre 
Procedure.l WritebinaryRegKey(OpenKey.l,SubKey.s,keyset.s,keyvalue.l) ; ------------------------ 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=4 ; nombre d'octets ecrit !! 
                 If RegSetValueEx_ (hKey,keyset,0, #REG_BINARY ,@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

Merci Beaucoup @Cpl.Bator, grace à toi j'ai déjas apris beaucoups de choses, c'est comme un cour, actuellement je suis sur un petit projet du style msn (que j'ais pas encore fini car j'apprends encore en parallèle), j'aimerais savoir si t'es interessé ou préfères tu attendre la finalisation?, parcontre tu veras très souvent des "InputRequester()" en guise de fenêtre

parce que je n'arrive pas à me servir très bien des Gadgets

, et si tu peux, fais des retouches car ça pourrais que m'interesser

, encore mercix pour ton cour

PureBasic

Programme dans le Registre?

Programme dans le Registre?

Re: Programme dans le Registre?