Discussion :

[FOCUS77]

Bonjour à tous

J'ai récupéré cette valeur depuis 'Informations système':

Code :

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

Version du BIOS/Date      LENOVO CCCN12ww(1.01),23-03-15

Je veux récupérer cette même valeur à l'aide d'un code Lazarus si c'est possible.

merci pour votre aide.

[nouanda]

Sous Windows, la version et la date du BIOS sont stockés dans le registre (HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System, clés SystemBiosVersion et SystemBiosDate).
Exemple de code:

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
uses ... registry...
 
var
  SystemBiosDate: string='';
  SystemBiosVersion: string='';
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    // Navigate to proper "directory":
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    if Registry.OpenKeyReadOnly('\HARDWARE\DESCRIPTION\System') then
      SystemBiosDate:=Registry.ReadString('SystemBiosDate'); //read the value of the default name
      SystemBiosVersion:=Registry.ReadString('SystemBiosVersion'); //read the value of the default name
  finally
    Registry.Free;
  end;
end;

Si tu es sous un Windows 64 bits, il faut remplacer

Code :

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

Registry := TRegistry.Create;

par

Code :

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

Registry := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);

Trouvés dans la doc de fcl (http://wiki.freepascal.org/fcl-registry)

sous Linux, je ne sais...

[FOCUS77]

Bonjour

Merci pour la réponse
J'ai un W7 32 et un Laz1.6

Pour le champ 'SystemBiosDate' il est récupéré sans aucun problème, mais pour le champ 'SystemBiosVersion' un message d'erreur est affiché:

Invalid registry data type: "SystemBiosVersion"

à l'adresse 544B7D

Merci

[Jipété]

Salut,

mais pour le champ 'SystemBiosVersion' un message d'erreur est affiché:

Code :

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

Invalid registry data type: "SystemBionVersion"

Si la ligne de code postée ici vient de ton code par simple copier/coller, c'est sûr que ton code contenant une faute, l'erreur est inévitable...

[FOCUS77]

Bonjour

Le code suivant s'exécute sans erreurs mais le ShowMessage(SystemBiosVersion) est affiché à blanc.

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
procedure TForm1.Button1Click(Sender: TObject);
var
  SystemBiosDate: string;
  SystemBiosVersion: Ansistring;
  Registry: TRegistry;
begin
  Registry := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
  try
    // Navigate to proper "directory":
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    if Registry.OpenKeyReadOnly('\HARDWARE\DESCRIPTION\System') then
      SystemBiosDate:=Registry.ReadString('SystemBiosDate'); //read the value of the default name
      SystemBiosVersion:=Registry.ReadString(SystemBiosVersion); //read the value of the default name
  finally
    showmessage(SystemBiosVersion);
    Registry.Free;
  end;
end;

[Jipété]

Le code suivant s'exécute sans erreurs mais le ShowMessage(SystemBiosVersion) est affiché à blanc.

Code :

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

1
2
3
    if Registry.OpenKeyReadOnly('\HARDWARE\DESCRIPTION\System') then
      SystemBiosDate:=Registry.ReadString('SystemBiosDate'); //read the value of the default name
      SystemBiosVersion:=Registry.ReadString(SystemBiosVersion); //read the value of the default name

T'as pas l'impression qu'il manque un begin... end; quelque part pour que les deux ReadString soient pris en compte ?
Plus peut-être des simples quotes (ReadString sans simplequoter la string à la seconde ligne je trouve ça bizarre alors que la première ligne est simplequotée... Suis d'ailleurs étonné qu'il n'y ait pas de message d'erreur, mais je réponds sans faire aucun test, j'ai autre chose sur le gaz...)