PureBasic

Bonjour à tous, je ne comprend pas pourquoi quand j'appelle cette procédure dans un autre programme, il me renvoie une chaine vide.

Code : Tout sélectionner

Procedure GetRegistryValue(hKey, lpSubKey.s, lpValueName.s)
  #KEY_WOW64_64KEY = $100
  
  If RegOpenKeyEx_(hKey, lpSubKey, ulOptions, #KEY_QUERY_VALUE | #KEY_WOW64_64KEY, @phkResult) = #ERROR_SUCCESS
    If RegQueryValueEx_(phkResult, lpValueName, lpReserved, @lpType, #Null, @lpcbData) = #ERROR_SUCCESS
      If lpcbData
        *lpData = AllocateMemory(lpcbData)
        RegQueryValueEx_(phkResult, lpValueName, lpReserved, @lpType, *lpData, @lpcbData)
      EndIf
    EndIf
    RegCloseKey_(phkResult)
  EndIf
  ProcedureReturn *lpData
EndProcedure

Procedure.s CarteGraphique() ;Détermine la carte graphique installée
  Global CarteGraphique.s
  lpSubKey.s = "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\WinSAT"
  *lpData = GetRegistryValue(#HKEY_LOCAL_MACHINE, lpSubKey, "PrimaryAdapterString")
  CarteGraphique = PeekS(*lpData) : FreeMemory(*lpData)
  ProcedureReturn CarteGraphique
EndProcedure

Debug CarteGraphique()

Salut Micoute,
Tu peux être plus explicite ?
En lançant le code j'ai bien la bonne CG qui apparaît. Tu entends quoi par :

quand j'appelle cette procédure dans un autre programme

Peut être que la clé PrimaryAdapterString n'existe pas dans sa base de registre. Windows 10 peut etre ?

Elle existe bien sur le pc que j'utilise en ce moment. Elle est bien dans

Code : Tout sélectionner

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinSAT

Cheztoi oui Ar-s. Aprés une longue recherche (Ctrl+F) de la clé PrimaryAdapterString sur un de mes pc sous Windows 10, la clé PrimaryAdapterString n'existe pas. D'ou cette erreur.

As tu une clé indiquant le nom de ta CG dans WinSAT ?
Peut-être que c'est lié aux cartes ATI ?

Ar-S a écrit :As tu une clé indiquant le nom de ta CG dans WinSAT ?
Peut-être que c'est lié aux cartes ATI ?

WinSAT existe bien dans ma base de registre mais je n'ai pas d'information sur le nom de ma carte vidéo qui est une nvidia.

Mon hypothèse ATI se confirme, faudrait d'autres retours.

Ma carte est aussi une NVIDIA et j'ai retrouvé son nom dans le registre HKEY_LOCALE_MACHINE\SOFTWARE\MICROSOFT\WINDOW NT\\CurrentVersion\WinSAT\PrimaryAdapterString

Quand je teste ma procédure dans mon fichier à inclure, le résultat est bon, mais si j'appelle ma procédure à partir d'un IncludeFile, ça me renvoie une chaine vide.

Si je teste ton code tel quel, j'ai une IMA. ça veut dire que ta procédure pour obtenir un nom de carte vidéo n'est pas universelle en tout cas.

Quand à la façon de l'utiliser depuis un include je ne vois pas pourquoi ça ne fonctionnerait pas.

Micoute tu devrais regarder du coté des WMI

Merci à tous pour votre aide qui m'a été très précieuse et effectivement avec les WMi, tous prêts mâchés par falsam, ce fut du gâteau !

PureBasic

Chaine vide dans un programme extérieur

Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur

Re: Chaine vide dans un programme extérieur