model, fabricant, numéro de serie

Question

Bonjour à tous,

Bonjour les Delphi men,


Je cherche un moyen de recupérer dans des variables le model (ex D630)
, le fabricant (ex : Dell),   le serial number,  de l'ordinateur . 
(sur XP)

Sur un Dell on trouve l'info sur HKEYLOCAL.....Software ...dell
corporation.... mais  cela sera different si c'est un IBM, HP ou autre.


Voici le code sur Vista mais sur XP les clé de registre n'exisitent pas.


  reg:=tregistry.Create ;

  Reg.RootKey := HKEY_LOCAL_MACHINE;

  reg.openkeyreadonly('SYSTEM\currentControlSet\Control\SystemInformation') ;

  Vendor:= Reg.ReadString('SystemManufacturer') ;

  model:=reg.ReadString('systemproductname') ;

  Reg.CloseKey;

  label1.Caption:='Why are your imaging this '+ vendor+' '+model+' ?' ;

  date_now.caption:=datetostr(date()) ;


Merci

delaio · Answer

bonjour,

as tu regardé du côté des JV. il existe le TJvComputerInfoEx qui donne pas mal d'infos sur le pc. je ne suis pas sûr qu'il donne les infos très spécifiques que tu demandes mais ça peut, peut être, être une piste...

del.

Bacterius · Answer

Non n'utilise pas les JV pour une tâche aussi futile : pour récupérer les infos sur un PC, utilise les API qui sont faites pour ça : regarde dans la MSDN pour ces fonctions :

SystemParametersInfo
GetComputerName
GetUserName
GetSystemInfo
GetSystemMetrics
IsProcessorFeaturePresent

... et cherche les fonctions associées. Tu trouveras tout ce dont tu as besoin :) Et également les fonctions associées à GetDriveType.
Voilà ...

Cordialement, Bacterius !

fbalien · Answer

Bonjour

autre solution utiliser les requêtes WMI
au niveau de la classe Win32_ComputerSystemProduct
pour le N° de serie Rechercher la propriété IdentifyingNumber
pour le model Rechercher  la propriété  Name
pour le constructeur  Rechercher  la propriété  Vendor

A+

Bacterius · Answer

Les requêtes WMI sont lourdes et chères en temps CPU, et puis il faut que WMI soit installé (enfin en principe il l'est partout).
Moi je pense que l'utilisation des API citées plus haut constitue un moyen intéressant de glaner des informations sur l'ordinateur et sur le système.

Cordialement, Bacterius !

delaio · Answer

merci pour l'info bacterius. ton idée va m'être utile pour l'un de mes projets.

del.

Model, fabricant, numéro de serie

5 réponses

Votre réponse

Discussions similaires