comment convertir type string to Hkey ? :(

Bonjour, je suis un débutant et jais un problème de type incompatible jais chercher jais pas trouver de solution, la documentions sur la base de registre est un peut difficile a trouver..

Jais une table paradox ou jais stoquer les infos suivant :rootkey ,opeankey,type…
Pour activer la modification dans la base de registre jai une procédure dynamique ,qui a chaque fois ses valeurs change. Mais la jais le message Hkey type non compatible avec le string (logique) je cherche a convertir comment faire et merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.salut1Click(Sender: TObject); var s:string; Begin S := Form1.Table2.Fields[0].asstring; Begin Registre := TRegistry.Create; Registre.RootKey := S ; Registre.OpenKey ('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\', TRUE); Registre.WriteInteger ('NoRun',1); // Reg_Dword (integer) Registre.CloseKey; Registre.Free; End; end;

---

Salut,

RootKey demande un entier : une constante HKEY

ces constantes sont dans l'unité Windows.pas

Voici la liste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

{$EXTERNALSYM HKEY_CLASSES_ROOT} HKEY_CLASSES_ROOT = DWORD($80000000); {$EXTERNALSYM HKEY_CURRENT_USER} HKEY_CURRENT_USER = DWORD($80000001); {$EXTERNALSYM HKEY_LOCAL_MACHINE} HKEY_LOCAL_MACHINE = DWORD($80000002); {$EXTERNALSYM HKEY_USERS} HKEY_USERS = DWORD($80000003); {$EXTERNALSYM HKEY_PERFORMANCE_DATA} HKEY_PERFORMANCE_DATA = DWORD($80000004); {$EXTERNALSYM HKEY_CURRENT_CONFIG} HKEY_CURRENT_CONFIG = DWORD($80000005); {$EXTERNALSYM HKEY_DYN_DATA} HKEY_DYN_DATA = DWORD($80000006);

---

Tu dois donc affecter à ton champs :
Form1.Table2.Fields[0]

Une valeur entiere. Et t'amuser à faire la correspondance.

Ton erreur est que tu stoque : HKEY_CURRENT_USER comme étant une chaine.

Voilà
Bon courage

bonjour
merci jambonstar pour l'explication qui va me pérmétre d'avencer dans ma programmation. je vais exploiter ta repense 8-)