[R] Lister logiciels registre dans tableau

[jcaspar]

B onjour à tous !

Je souhaiterais récupérer la liste des logiciels installés ..puis afficher la liste dans un tableau...
mon code ne fonctionne pas correctement car seul le dernier élément de la liste s'inscrit dans la dernière ligne du tableau

Pourriez vous svp m'expliquer comment je devrais procéder pour que chaque élément soit inséré ?

En vous remerciant pour vos conseils:mrgreen:


Jean-Marc

Code : Tout sélectionner

#include <MsgBoxConstants.au3>
#include <Array.au3>


global $sSubKey = ""
For $i = 1 To 100
    $sSubKey = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
    global $avArray[100]
    _ArrayInsert($avArray,$sSubKey,$i)

    If @error Then ExitLoop
    MsgBox($MB_SYSTEMMODAL, "SubKey #" & $i & " under HKLM\SOFTWARE: ", $sSubKey)

Next
_ArrayDisplay($avArray,"logiciels")
 

Bonjour à tous !

[jguinch]

salut JM.
Juste une petite remarque par rapport à ton code : la boucle For $i = 1 To 100 n'est qu'un exemple de la fonction RegEnumKey, mais il est préférable (plus sûr) de passer par une boucle infinie :

► Afficher le texte

Code : Tout sélectionner

#include <MsgBoxConstants.au3>
#include <Array.au3>

global $avArray[1], $sSubKey, $i = 0
While 1
    $i += 1
    $sSubKey = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
    If @error Then ExitLoop

    Redim $avArray[ UBound($avArray) + 1]
    $avArray[ UBound($avArray) - 1] = $sSubKey
    $avArray[0] = UBound($avArray) - 1
WEnd
_ArrayDisplay($avArray,"logiciels")

Par contre, je ne pense pas que les sous-clés présentes à cet endroit te donneront la liste des applications installées. Perso, j'aurais plutôt listé (HKLM et HKLM64)\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall (valeurs DisplayName de chaque clé) - après, je ne connais pas ton besoin...

[jchd]

Si le tableau n'était pas réinitialisé à chaqur tour de boucle ...