Discussion :

[cincap]

Bonjour à toutes et à tous,

Je dois lire la valeur d'une clé dans RegEdit et j'ai à mon avis tous les droits.

Seulement avec mon code, je ne récupère pas cette valeur.

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
 
procedure TFTest.BNameClick(Sender: TObject);
Var
  Reg : TRegistry;
  Key, keyname: string;
begin
 
  Reg:=TRegistry.Create ;//Crée un objet TRegistry
 
  try
    Reg.RootKey:= HKEY_LOCAL_MACHINE; //Définit la clé principale
    key := '\SOFTWARE\Microsoft\Windows\Windows NT\CurrentVersion';
    keyname := 'ProductName' ;
 
    if Reg.OpenKey(key,False) {"OpenKey" ouvre une clé particulière (False signifie que la clé n'est pas crée si elle n'existe pas}
    then
    begin
      EdName.Text:=Reg.ReadString(keyname); //Renvoie un string à partir du nom de la valeur
      Reg.CloseKey; //Ferme la clé
    end
  finally
    Reg.Free; //Détruit l'objet
  end;
end;

A mon avis c'est encore une histoire de droit, je suis sous Seven 64 bits.

Comme la clé existe pour d'autres OS, si quelqu'un avait le temps de tester le code telquel.

Peut être aussi une autre solution pour afficher le ProductName de son PC.

Merci d'une éventuelle aide.

@+,

Cincap

[Cl@udius]

Salut

Code :

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

1
2
// Crée un objet TRegistry restreint en lecture seule
Reg:=TRegistry.Create(KEY_EXECUTE);

Par défaut (sans paramètre transmis au constructeur) le mode d'accès est fixé à KEY_ALL_ACCESS.


@+

[cincap]

@ Cl@udius, merci de ta réponse, mais cela ne fonctionne pas avec mon code, j'avais aussi testé avec KEY_ALL_ACCESS.

Le chemin est correct, la clé aussi et pourtant impossible de lire sa valeur.

L'application de test est lancée en tant qu'Administrateur.

Ou alors mon code est erroné ?

@+,

Cincap

[Cl@udius]

Re.

Tu es sûr que ta clé est correcte ?

Code :

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

    key := '\SOFTWARE\Microsoft\Windows\Windows NT\CurrentVersion';

Windows ou Windows NT ?

[cincap]

@ Cl@udius,

Je l'avais précisé dans le topic de départ,

A mon avis c'est encore une histoire de droit, je suis sous Seven 64 bits.

Si je vais manuellement dans RegEdit, c'est bien cette clé, et ce chemin, quant à la valeur de "ProductName", je lis "Windows 7 Home Premium" et c'est cette info qui m'intéresse car elle ne se trouve qu'à cet endroit.

Tu penses que j'ai utilisé la doc à ce sujet, et ce n'est pas la 1ère fois que je lis ou même écrire dans RegEdit sous Seven 64Bits.

Mais cette clé me paraît inaccessible ou mon code comporte une erreur mais ou ?

@+,

Cincap

[Cl@udius]

Code :

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

    key := '\SOFTWARE\Microsoft\Windows\Windows NT\CurrentVersion';

J'insiste, cette clé n'est pas correcte.

Elle devrait être:

Code :

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

    key := '\SOFTWARE\Microsoft\Windows NT\CurrentVersion';

Non ??

[cincap]

@ Cl@udius, bien vu l'ami, dans tous mes tests et copy/coller sans vérifier cela mène à mon problème.

Décidément, les cachets que je prends me nuisent même dans la logique et la réflexion.

Un grand merci pour ta patience et ton oeil de lynx.

@+,

Cincap

[Cl@udius]

Un grand merci pour ta patience et ton oeil de lynx.

Pas de quoi.