Discussion :

[xenoali]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[jambonstar]

Salut,

RootKey demande un entier : une constante HKEY

ces constantes sont dans l'unité Windows.pas

Voici la liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[xenoali]

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