Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

Base de registre


Sujet :

Lazarus Pascal

  1. #1
    Membre du Club
    Base de registre
    Bonjour

    Pour convertir un string en HKEY j'utilise ceci
    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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
     
    function aRegistry(CleRoot:string):boolean;
    var
     cle : Cardinal;
    Reg : TRegistry;
    begin
      if CleRoot = 'HKEY_CLASSES_ROOT'
      then cle := HKEY_CLASSES_ROOT
        else
      if CleRoot = 'HKEY_CURRENT_USER'
      then cle := HKEY_CURRENT_USER
        else
      if CleRoot = 'HKEY_LOCAL_MACHINE'
      then cle := HKEY_LOCAL_MACHINE
        else
      if CleRoot = 'HKEY_USERS'
      then cle := HKEY_USERS
        else
      if CleRoot = 'HKEY_CURRENT_CONFIG'
      then cle := HKEY_CURRENT_CONFIG
     
      try
        Reg := TRegistry.Create;
        Reg.RootKey := cle;
    ...
    end;


    Existe-t-il une fonction pour convertir directement du style StrToHkey ?

  2. #2
    Membre expert
    Salut, non je ne crois pas, mais tu as déja ta fonction toute faite

    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
    16
    17
    function StrToHkey( CleRoot : String) : Cardinal;
    begin
      if CleRoot = 'HKEY_CLASSES_ROOT'
      then Result := HKEY_CLASSES_ROOT
        else
      if CleRoot = 'HKEY_CURRENT_USER'
      then Result := HKEY_CURRENT_USER
        else
      if CleRoot = 'HKEY_LOCAL_MACHINE'
      then Result := HKEY_LOCAL_MACHINE
        else
      if CleRoot = 'HKEY_USERS'
      then Result := HKEY_USERS
        else
      if CleRoot = 'HKEY_CURRENT_CONFIG'
      then Result := HKEY_CURRENT_CONFIG
    end;


    A+

    Jérôme
    • "L'Homme devrait mettre autant d'ardeur à simplifier sa vie qu'il met à la compliquer" - Henri Bergson
    • "Bien des livres auraient été plus clairs s'ils n'avaient pas voulu être si clairs" - Emmanuel Kant
    • "La simplicité est la sophistication suprême" - Léonard De Vinci
    • "Ce qui est facile à comprendre ou à faire pour toi, ne l'est pas forcément pour l'autre." - Mon pèrei

    Mes projets sur Github - Blog - Site DVP

###raw>template_hook.ano_emploi###