Discussion :

[Speed41]

Bonjour,

je voudrais lire des données dans la base de registre, voici le code que j'utilise

Code :

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

1
2
3
4
5
6
7
8
Var Registre : TRegistry;
begin
  Registre:=TRegistry.Create; //Crée un objet TRegistry
  Registre.RootKey:=HKEY_LOCAL_MACHINE; //Définit la clé principale
  Registre.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation',true); {"OpenKey" ouvre une clé particulière (False signifie que la clé n'est pas crée si elle n'existe pas}
  nb_serie.Text:=Registre.ReadString('Manufacturer'); //Renvoie un string à partir du nom de la valeur
  Registre.CloseKey; //Ferme la clé
  Registre.Free; //Détruit l'objet

Et rien n'est lu. J'ai cherché et j'ai trouvé qu'il pouvais y avoir une question de droit. Pour écrire Ok mais pour lire ?

J'ai réussit à écrire dans la base de registre via Regedit (ajout de "Manufacturer"). Est ce que les droits ne sont pas les mêmes ?

Voici le code que j'ai utilisé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Uses Registry;
 
procedure TForm1.Button1Click(Sender: TObject);
Var Registre : TRegistry;
begin 
//Récupère l'url de la page de démarrage
Registre:=TRegistry.Create; //Crée un objet TRegistry
Registre.RootKey:=HKEY_CURRENT_USER; //Définit la clé principale
Registre.OpenKey('\Software\Microsoft\Internet Explorer\Main',False); {"OpenKey" ouvre une clé particulière (False signifie que la clé n'est pas crée si elle n'existe pas} 
Edit1.Text:=Registre.ReadString('Start Page'); //Renvoie un string à partir du nom de la valeur
Registre.CloseKey; //Ferme la clé
Registre.Free; //Détruit l'objet
end;

Et ce code fonctionne mais la clé n'est pas la même

http://delphipage.free.fr/registre.html


Merci de vos lumières

[Andnotor]

OpenKey ouvre la clé en lecture/écriture ce qui peut provoquer un Access denied. Utilise OpenKeyReadOnly pour de la lecture seule.

ps: pas besoin d'un CloseKey avant le Free

[Speed41]

Ca marche pas non plus avec OpenKeyReadOnly

Si j'ai pu ecrire avec Regedit c'est bien que j'ai les droits ?

[Andnotor]

Si j'ai pu ecrire avec Regedit c'est bien que j'ai les droits ?

En effet

Sur ma station, je n'ai pas de Manufacturer dans la BdR. Es-tu sûr d'en avoir un ? Sinon tu ferais mieux de passer par WMI.

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
27
28
29
30
31
32
33
34
uses
  SysUtils, Variants, ActiveX, WbemScripting_TLB;
 
function GetWMIString(wmiClass, wmiProperty : string):string;
var
  Locator:  ISWbemLocator;
  Services: ISWbemServices;
  SObject:  ISWbemObject;
  ObjSet:   ISWbemObjectSet;
  SProp:    ISWbemProperty;
  Enum:     IEnumVariant;
  Value:    Cardinal;
  TempObj:  OleVariant;
begin
  try
    Locator  := CoSWbemLocator.Create;
    Services := Locator.ConnectServer('', 'root\cimv2', '', '', '','', 0, nil);
    ObjSet   := Services.ExecQuery('SELECT * FROM '+wmiClass, 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
    Enum     := ObjSet._NewEnum as IEnumVariant;
 
    while Enum.Next(1, TempObj, Value) = S_OK do
    begin
      SObject := IUnknown(tempObj) as ISWBemObject;
      SProp   := SObject.Properties_.Item(wmiProperty, 0);
 
      if VarIsNull(SProp.Get_Value)
      then Result := ''
      else Result := SProp.Get_Value;
    end;
 
  except
    result := '';
  end;
end;

et l'appel

Code :

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

Manufacturer := getWMIString('Win32_ComputerSystem', 'Manufacturer');

FAQ WMI

[Speed41]

Pour répondre à la question "Sur ma station, je n'ai pas de Manufacturer dans la BdR. Es-tu sûr d'en avoir un ?"

Non j'en avais pas, je l'ai ajouté, il apparait bien dans la fenêtre Informations système général

Voici ce que j'ai déjà recherché http://www.developpez.net/forums/d14...iquant-modele/

Pour le reste je regarde

Merci

[Andnotor]

Attention à la redirection (Wow6432Node) si tu es sur un système 64 bits.

[Speed41]

oh la la je suis perdu heu non totalement perdu
c'est quoi le "Wow6432Node" ???

Et heu je n'ai pas bien compris comment installé le WMI, comment fait-on pour importer une librairie ?

Désolé mais je n'ai pas un très grand niveau et ça devient super flou

[Andnotor]

Lorsque tu lis HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation depuis ton soft et puisqu'il est compilé en 32 bits, l'OS 64 bits va automatiquement rediriger les accès sous HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\OEMInformation. Par Regedit, c'est là que tu dois effectivement écrire ta clé.

Pour installer une bibliothèque de types, menu Composants -> Importer un composant -> Importer un bibliothèque de types puis sélectionner Microsoft WMI Scipting.

[Speed41]

Bonjour,

Merci pour ton aide. Après discutions nous avons décide de ne pas mettre ces infos dans la base de registre.

Nota : HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\OEMInformation marche pas non plus

Par contre je ne laisse pas tombé l'installation d'une bibliothèque.

J'ai regardé et je n'ai pas "Importé un composant" (juste "importé un contrôle active X"). Et en cherchant dans tous les menus Composants je n'ai pas " Importer un bibliothèque de types". Ai-je loupé quelque chose ?

Merci de ton aide

[Papy214]

un outil bien pratique pour WMI

et un lien correspondant avec exemple pour le manufacturer

[Speed41]

Super Merci