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.