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;