www.pudn.com > 列出计算机中所有安装的软件.zip > FormInstalledSoftware.frm

VERSION 5.00 
Object = "{82EDD4D3-7E49-11D2-8D41-444553540000}#1.0#0"; "SOFTLIST.OCX" 
Begin VB.Form FormInstalledSoftware  
   Caption         =   "SofList  ActiveX Control  Demo" 
   ClientHeight    =   6525 
   ClientLeft      =   60 
   ClientTop       =   375 
   ClientWidth     =   7230 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   6525 
   ScaleWidth      =   7230 
   StartUpPosition =   3  'Windows Default 
   Begin VB.ListBox List  
      BackColor       =   &H00000000& 
      BeginProperty Font  
         Name            =   "MS Sans Serif" 
         Size            =   9.75 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FFFFFF& 
      Height          =   5820 
      Left            =   120 
      TabIndex        =   0 
      Top             =   600 
      Width           =   7095 
   End 
   Begin InstalledSoftware.SoftList SoftList1  
      Left            =   360 
      Top             =   5880 
      _ExtentX        =   1296 
      _ExtentY        =   1085 
   End 
   Begin VB.Label Label1  
      Alignment       =   2  'Center 
      BackColor       =   &H00800000& 
      BorderStyle     =   1  'Fixed Single 
      Caption         =   "Software that already installed :" 
      BeginProperty Font  
         Name            =   "MS Sans Serif" 
         Size            =   9.75 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H0000FFFF& 
      Height          =   375 
      Left            =   120 
      TabIndex        =   1 
      Top             =   120 
      Width           =   6975 
   End 
End 
Attribute VB_Name = "FormInstalledSoftware" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Form_Load() 
    Dim counter As Integer 
    SoftList1.Get_Info = True 
    For counter = 1 To SoftList1.Installed_Software 
        SoftList1.Number = counter 
        List.AddItem SoftList1.Software_Name 
    Next 
End Sub