获取本机已安装的软件列表C#/VB.NET（Get the l

    

      
      
      
        Code
      
      
        

                
            
        
        
          //
        
        
          c#   
        
        
          

        
        
            
        
        
          private
        
        
           
        
        
          void
        
        
           getSoftwareList()   
          

             {   
          

             Microsoft.Win32.RegistryKey rk 
        
        
          =
        
        
           Microsoft.Win32.Registry.LocalMachine.OpenSubKey(
        
        
          @"
        
        
          SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
        
        
          "
        
        
          );   
          

               
          

             String[] names 
        
        
          =
        
        
           rk.GetSubKeyNames();   
          

               
          

             
        
        
          foreach
        
        
          (String s 
        
        
          in
        
        
           names)     
          

             {   
          

                 textbox1.Text
        
        
          +=
        
        
          (s
        
        
          +
        
        
          "
        
        
          \r\n
        
        
          "
        
        
          );
          

             }   
          

             }
        
      
    
  

Code
' vb.net   
   Private   Sub  getSoftwareList()
     Dim  rk  As  Microsoft.Win32.RegistryKey  =  Microsoft.Win32.Registry.LocalMachine.OpenSubKey( " SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall " )     
     Dim  names  As   String ()  =  rk.GetSubKeyNames     
     For   Each  s  As   String   In  names     
      textbox1.Text &= s + vbCtrf;  
     Next      
   End     Sub

http://forums.asp.net/t/1306676.aspx

获取本机已安装的软件列表C#/VB.NET（Get the list of installed software in local pc）