'**************************************

' Name: Add and Remove your program to t

'     he Add/Remove Programs and Run at Startu

'     p lists!! (SMALL CLASS FILE)

' Description:Allows you to easily add y

'     our program to the Add/Remove programs l

'     ist, and also add your program to the Ru

'     n registry key so it starts every time W

'     indows starts!

I didn't see code that adds To the Add/Remove Programs bit here, so I made it myself! Though I find the basic registry routines here, I did Enum one of the arguments to make calling them faster!

Please Vote!

' By: Herb Riede

'

' Inputs:ProgramName and EXE file Paths 

'     are needed to set the Uninstall File or 

'     File to run at startup

'

' Returns:Returns Nothing.

'

' Assumes:You need to have a 

Dim VarAddRemove as New AddRemove

In the Declarations area, and a

Set VarAddRemove = New AddRemove

In the Form_Load Event or Sub Main()

'

' Side Effects:Dangerous to mess with re

'     gistry keys!

'

'This code is copyrighted and has

' limited warranties.Please see http://w

'     ww.Planet-Source-Code.com/xq/ASP/txtCode

'     Id.12990/lngWId.1/qx/vb/scripts/ShowCode

'     .htm

'for details.

'**************************************

Public Sub AddToList(ProgramName As String, UninstallCommand As String)

    'Add a program to the 'Add/Remove Progra

    '     ms' registry keys

    Call SaveString(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Uninstall\" + ProgramName, "DisplayName", ProgramName)

    Call SaveString(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Uninstall\" + ProgramName, "UninstallString", UninstallCommand)

End Sub

Public Sub RemoveFromList(ProgramName As String)

    'Remove a program from the 'Add/Remove P

    '     rograms' registry keys

    Call DeleteKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Uninstall\" + ProgramName)

End Sub

Public Sub AddToRun(ProgramName As String, FileToRun As String)

    'Add a program to the 'Run at Startup' r

    '     egistry keys

    Call SaveString(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", ProgramName, FileToRun)

End Sub

Public Sub RemoveFromRun(ProgramName As String)

    'Remove a program from the 'Run at Start

    '     up' registry keys

    Call DeleteValue(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", ProgramName)

End Sub

Public Sub SaveKey(Hkey As HKeyTypes, strPath As String)

    Dim keyhand&

    r = RegCreateKey(Hkey, strPath, keyhand&)

    r = RegCloseKey(keyhand&)

End Sub

Public Function GetString(Hkey As HKeyTypes, strPath As String, strValue As String)

    'EXAMPLE:

    '

    'text1.text = getstring(HKEY_CURRENT_USE

    '     R, "Software\VBW\Registry", "String")

    '

    Dim keyhand As Long

    Dim datatype As Long

    Dim lResult As Long

    Dim strBuf As String

    Dim lDataBufSize As Long

    Dim intZeroPos As Integer

    Dim lValueType As Long

    r = RegOpenKey(Hkey, strPath, keyhand)

    lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)

    If lValueType = REG_SZ Then

        strBuf = String(lDataBufSize, " ")

        lResult = RegQueryValueEx(keyhand, strValue, 0&, 0&, ByVal strBuf, lDataBufSize)

        If lResult = ERROR_SUCCESS Then

            intZeroPos = InStr(strBuf, Chr$(0))

            If intZeroPos > 0 Then

                GetString = Left$(strBuf, intZeroPos - 1)

            Else

                GetString = strBuf

            End If

        End If

    End If

End Function

Public Sub SaveString(Hkey As HKeyTypes, strPath As String, strValue As String, strdata As String)

    'EXAMPLE:

    '

    'Call savestring(HKEY_CURRENT_USER, "Sof

    '     tware\VBW\Registry", "String", text1.tex

    '     t)

    '

    Dim keyhand As Long

    Dim r As Long

    r = RegCreateKey(Hkey, strPath, keyhand)

    r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))

    r = RegCloseKey(keyhand)

End Sub

Public Function DeleteValue(ByVal Hkey As HKeyTypes, ByVal strPath As String, ByVal strValue As String)

    'EXAMPLE:

    '

    'Call DeleteValue(HKEY_CURRENT_USER, "So

    '     ftware\VBW\Registry", "Dword")

    '

    Dim keyhand As Long

    r = RegOpenKey(Hkey, strPath, keyhand)

    r = RegDeleteValue(keyhand, strValue)

    r = RegCloseKey(keyhand)

End Function

Public Function DeleteKey(ByVal Hkey As HKeyTypes, ByVal strPath As String)

    'EXAMPLE:

    '

    'Call DeleteKey(HKEY_CURRENT_USER, "Soft

    '     ware\VBW\Registry")

    '

    Dim keyhand As Long

    r = RegDeleteKey(Hkey, strPath)

End Function