frmmain.frm

高级卸载工具

      ButtonHeight    =   1349
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList3"
      DisabledImageList=   "ImageList3"
      HotImageList    =   "ImageList3"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   18
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "卸载"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除列表"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "支持信息"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "改变图标"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "报表"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "新建"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "卸载日志"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
      EndProperty
      Begin VB.PictureBox picSoftLarge 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   512
         Left            =   1320
         Picture         =   "FrmMain.frx":5008
         ScaleHeight     =   510
         ScaleWidth      =   510
         TabIndex        =   9
         Top             =   0
         Visible         =   0   'False
         Width           =   512
      End
      Begin VB.PictureBox picSoftSmall 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   256
         Left            =   960
         Picture         =   "FrmMain.frx":58D2
         ScaleHeight     =   255
         ScaleWidth      =   255
         TabIndex        =   10
         Top             =   120
         Visible         =   0   'False
         Width           =   256
      End
   End
   Begin VB.Label lblAddKey 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "ADD KEY"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00404040&
      Height          =   315
      Left            =   30
      MouseIcon       =   "FrmMain.frx":5E5C
      MousePointer    =   99  'Custom
      TabIndex        =   8
      Top             =   45
      Width           =   1665
   End
   Begin VB.Menu mnu_File 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnu_PrntNSaveAudit 
         Caption         =   "打印和保存报表(&P)..."
      End
      Begin VB.Menu Sep06 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_Exit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnu_Uninstall 
      Caption         =   "卸载(&U)"
      Begin VB.Menu mnu_UninstallProg 
         Caption         =   "卸载(&I)..."
      End
      Begin VB.Menu mnu_DelFrmLst 
         Caption         =   "删除清单(&D)..."
      End
      Begin VB.Menu Sep02 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_prgdtls 
         Caption         =   "支持信息(&P)"
      End
      Begin VB.Menu mnu_EditPrgDtls 
         Caption         =   "编辑支持信息(&E)"
      End
      Begin VB.Menu mnu_ChangeIcon 
         Caption         =   "改变图标(&C)"
      End
      Begin VB.Menu Sep03 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_NewPrg 
         Caption         =   "新建(&N)"
      End
      Begin VB.Menu mnu_UninstLog 
         Caption         =   "卸载日志(&L)..."
      End
   End
   Begin VB.Menu mnu_View 
      Caption         =   "视图(&V)"
      Begin VB.Menu mnu_LargeIcons 
         Caption         =   "大图标(&L)"
      End
      Begin VB.Menu mnu_SmllIcons 
         Caption         =   "小图标(&S)"
      End
      Begin VB.Menu mnu_list 
         Caption         =   "列表(&S)"
      End
      Begin VB.Menu mnu_details 
         Caption         =   "详细资料(&D)"
      End
      Begin VB.Menu Sep04 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_refresh 
         Caption         =   "刷新(&R)"
      End
   End
   Begin VB.Menu mnu_help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnu_hlptopics 
         Caption         =   "帮助主题(&T)"
      End
      Begin VB.Menu mnu_about 
         Caption         =   "关于(&A)..."
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'★★★★★****************************★★★★★**********************★★★★★
'金诺VB园-收藏整理
'本站是专注于VB和VBNET编程的源码下载站
'发布日期：2008-3-14 22:00:47
'网    站：http://www.vbget.com/          (金诺VB园)
'网    站：http://www.vbget.com/daohan/   (VB编程网址导航)
'E-Mail  ：[e-mail]
'QQ      ：158676144
'源码作者：如果您有VB商业源码需要获得收益，本站将有VIP收费下载频道可供你发布!
'         您有权定价;改价;删除;及即时查看下载量(即收益)，所有收益全部归您！
'         本站将在双方协商的一个金额周期内打款到作者帐户中，您只需负责打款费用！
'         本站只作为一个平台提供最新VB源码咨讯和源码下载！
'本注释由<站长工具之智能注释>软件自动添加！金诺VB园有此软件下载！
'★★★★★****************************★★★★★**********************★★★★★


Option Explicit

Private Declare Function PathFileExists Lib "shlwapi" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Type PicBmp
    Size As Long
    tType As Long
    hBmp As Long
    hPal As Long
    Reserved As Long
End Type

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type

'*****************************************************
' Size, Last Used On and frequency related Start
'*****************************************************

Private Const OFFSET_4 = 4294967296#
Private Const MAXINT_4 = 2147483647#

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Private Type SYSTEMTIME
       wYear As Integer
       wMonth As Integer
       wDayOfWeek As Integer
       wDay As Integer
       wHour As Integer
       wMinute As Integer
       wSecond As Integer
       wMilliseconds As Integer
End Type

Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
'*****************************************************
'Size, Last Used On and frequency related Start
'*****************************************************

' Declarations

' For executing the uninstall string
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

' Store the text of last searched string
Private LastSearch As String

' Checks if the search has reached at the bottom - end
Private Exhausted As Boolean

' This is the main routine which takes the value from regitry and shows it in List View
' To path in registry are used
' UninstallPath - From here we take the keys of all installed applications
' ARPCache - From here we take the value of SlowInfoCache to retrieve Size,Last Used On, Frequency and if no DisplayIcon in Application key then icon also
Private Sub showUnInstallList()
On Error Resume Next
    Dim strDisplayName As String, strUninstallCommand As String, lngCount As Long
    Dim lstvItem As ListItem, sBuffer() As Byte, strEXEName As String, i As Integer
    Dim lngCounterLarge As Long, lngCounterSmall As Long, strSize As String, strFrequency As String
    Dim strDisplayIcon As String, strIconIndex As String, strLastUsedOn As String
    Dim blnARPFound As Boolean, lngPrevView As Long, colKeys As Collection
    
    ' For 98 we cannot retirve size, last used on and frequency so hide these columns
    If InStr(gstrOS, "98") <> 0 Then
        lstview.ColumnHeaders(2).Width = 0
        lstview.ColumnHeaders(3).Width = 0
        lstview.ColumnHeaders(4).Width = 0
    End If
    
    ' A little tweak to work around the position of icons shown. otherwise a space will be created when refreshed
    lstview.Visible = False
    lngPrevView = lstview.View
    If lngPrevView = lvwIcon Then
        lstview.View = lvwReport
    ElseIf lngPrevView = lvwSmallIcon Then
        lstview.View = lvwIcon
    End If
    
    ' Clear all the data in listview and image list
    lstview.ListItems.Clear
    Set lstview.Icons = Nothing
    Set lstview.SmallIcons = Nothing
    ImgSmall.ListImages.Clear
    ImgLarge.ListImages.Clear
    
    ' Add the default icons to imagelist in case app does not have icon it will be shown
    ImgSmall.ListImages.Add , , picSoftSmall.Picture
    ImgLarge.ListImages.Add , , picSoftLarge.Picture
    
    ' Set the image list for list view
    Set lstview.Icons = ImgLarge
    Set lstview.SmallIcons = ImgSmall
    
     Set colKeys = New Collection
    
    ' Get the all the uninstall keys  for application
    ModRegistry.GetKeyNames HKEY_LOCAL_MACHINE, UnInstallPath, colKeys
    
    ' If count is > 1 then in loop retrieve the information for that key
    For lngCount = 1 To colKeys.Count
        ' If the key has a value No Remove then do not show this application. Mostly used for windows components