ECRIRE DANS LA BASE DES REGISTRE SANS REGISTRY

Procedure EcritRegString(Root :HKey; Chemin, NomClee, ValeurClee :string);
 var HK :HKEY;
  begin
    RegOpenKey(Root,PChar(Chemin),HK); // on ouvre la clée

    if HK = 0 then // si la clée n'existe pas on la crée
         RegCreateKeyEx(Root,PChar(chemin),0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,nil,HK,@DW);
         //RegCreateKey(Root,PChar(chemin),HK); // pas pour win 3.1, ça existe encore ;-D


     RegSetValueEx(HK,PChar(NomClee),0, REG_SZ, Pchar(ValeurClee),Length(ValeurClee)); // on ecrit la valeur

     RegCloseKey(HK); // on referme la clée
  end;