Information: bit, framework et antivirus

[ChaudEf]

Bonjour, j'espere ne reveiller personne de sa sieste..
Je cherche une fonction qui me permet de savoir si le framework microsoft est installe sur l'ordi et si oui lequel.
quel est la version de windows (32 bit ou 64).
et quel antivirus est actif (avast, eset, defender etc).

C'est possible de recuperer ca? existe-il une fonction toute prete?

merci

[venom]

Salut,

pour récupérer les framework, tu peux facilement scruter le dossier

C:\Windows\Microsoft.NET\Framework\

Toutes les versions y sont.

Pour ce qui est de l'architecture 32 ou 64 bits, tu peux par exemple récupérer via le registre.

voici un code de falsam il me semble, qui récupere une clé registre. Il est adapter a ta demande.

Code : Tout sélectionner

; Lire une chaine dans le registre
Procedure.s RegReadKey(TopKey.l, KeyName.s, ValueName.s, Type.l, ComputerName.s)
  Protected Error.l, hKey.l, lReturnCode.l, lhRemoteRegistry.l, BufferSize, Value.q, Result.s
 
  If ComputerName = ""
    Error = RegOpenKeyEx_(TopKey, KeyName, 0, #KEY_READ, @hKey)
  Else
    lReturnCode = RegConnectRegistry_(ComputerName, topKey, @lhRemoteRegistry)
    Error = RegOpenKeyEx_(lhRemoteRegistry, KeyName, 0, #KEY_READ, @hKey)
  EndIf
 
  If Error = #ERROR_SUCCESS 
    RegQueryValueEx_(hKey, ValueName, 0, @type, 0, @BufferSize)
   
    Select Type
      Case #REG_SZ,#REG_EXPAND_SZ
       
        If bufferSize
          value = AllocateMemory(buffersize)
          If value
            Error = RegQueryValueEx_(hKey, ValueName, 0, 0, Value, @BufferSize)
             
            If Error = #ERROR_SUCCESS
              Result = PeekS(value) 
            EndIf
            FreeMemory(value)
          Else
            Error = #ERROR_NOT_ENOUGH_MEMORY
          EndIf 
        EndIf       
       
      Case #REG_DWORD, #REG_QWORD
        Error = RegQueryValueEx_ (hKey, ValueName, 0, 0 , @Value, @BufferSize)
        If Error = #ERROR_SUCCESS
          Result = Str(Value)
        EndIf
 
    EndSelect
     
    RegCloseKey_(hkey)
  EndIf
 
  ProcedureReturn Result
   
EndProcedure

Debug RegReadKey(#HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "PROCESSOR_ARCHITECTURE", #REG_SZ, "")

Et pour l'antivirus, je pense qu'aussi via le registre sa doit etre faisable.






@++

[ChaudEf]

Grand merci, c'est super.
comment je trouve les antivirus actifs dans le registre?