model, fabricant, numéro de serie

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

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.

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 !

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+

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 !

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


del.