PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2025 → Récup de la mémoire vidéo avec Windev en 64 bits
Récup de la mémoire vidéo avec Windev en 64 bits
Débuté par p.leclercq, 12 mai 2014 14:41 - 2 réponses
#1
Posté le 12 mai 2014 - 14:41
Bonjour
je cherche à récupérer les informations de la carte vidéo (mémoire vidéo dispo)
via Automation dynamique ("Shell.explorer")
ou via WMI mais en 64bits
ou via base de registre

Quelqu'un a une idée ?
- Avec la base de registre je 'arrive pas à récupérer la valeur
RegistreLit("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winsat","VideoMemorySize")


- Avec le WMI ca marche en 32bits mais pas en 64 bits

//sListe est une chaîne
oScript est un objet Automation "MSScriptControl.ScriptControl"

MonScriptVBS est une chaîne = [
FUNCTION ScanCartesVideos()
Dim objWMIService, colVideoAdapters, objVideoAdapter, sInfo

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colVideosAdapters = objWMIService.ExecQuery("Select * from Win32_VideoController")

FOR EACH objVideoAdapter IN colVideosAdapters
IF sInfo <> "" THEN sInfo = sInfo & Chr(13) & Chr(10)
sInfo = sInfo & "Nom : " & objVideoAdapter.Name & Chr(13) & Chr(10)
sInfo = sInfo & "Description : " & objVideoAdapter.Description & Chr(13) & Chr(10)
sInfo = sInfo & "Processeur Video : " & objVideoAdapter.VideoProcessor & Chr(13) & Chr(10)
sInfo = sInfo & "AdapterDACType : " & objVideoAdapter.AdapterDACType & Chr(13) & Chr(10)
sInfo = sInfo & "AdapterCompatibility : " & objVideoAdapter.AdapterCompatibility & Chr(13) & Chr(10)
sInfo = sInfo & "Taille mémoire vidéo : " & objVideoAdapter.AdapterRam & Chr(13) & Chr(10)
Next

ScanCartesVideos = sInfo
END FUNCTION
]

QUAND EXCEPTION DANS
oScript>>Language("VBScript")
oScript>>Reset
oScript>>AddCode(MonScriptVBS)
oScript>>Timeout(-1) //pas de timeout
sListe = oScript>>Run("ScanCartesVideos") //Appel
//// le résultat est dans sListe
//Info("Infos carte(s) Vidéo : " + RC + sListe)

RENVOYER sListe

FAIRE
Erreur("Erreur execution WMI",ExceptionInfo(errInfo))
ExceptionActive()
RENVOYER "Erreur WMI"
FIN
Signaler
0
0
#2
Membre enregistré
962 messages
Posté le 12 mai 2014 - 15:12
hello ,
il me semble que msscript n'existe qu'en 32 bits. Pour faire du wmi dans une application windev 64 bits tu peux essayer d'utiliser dotnet.

Ami calmant, J.P
Signaler
0
0
#3
Membre enregistré
1 311 messages
Posté le 12 mai 2014 - 18:40
Salut Philippe,

Il y a toute une série de fonction Windev qui te donne ces informations, mais je ne suis pas certains qu'il y en ai une pour la quantité de mémoire vidéo (à contrôler)

http://doc.pcsoft.fr/fr-FR/?3073010

A+
Daryl

--
http://www.concept4u2.com
Signaler
0
0
→ Revenir à WINDEV 2025