INICIAR APLICATIVO AO CARREGAR O WIN?

  
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Public Sub SalvarRegistro(ByVal NomReg As String, ByVal NomKey As String, ByVal Dado As String)
    SaveStringLong HKEY_CURRENT_USER, NomReg, NomKey, Dado
End Sub

Private Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
    Dim Ret As Long
    'Create a new key
    RegCreateKey hKey, strPath, Ret
    'Set the key's value
    RegSetValueEx Ret, strValue, 0, 1, ByVal strData, Len(strData)
    'close the key
    RegCloseKey Ret
End Sub

Public Function LeRegistro(ByVal NomReg As String, ByVal NomKey As String) As String
    'Get a string from the registry
    LeRegistro = GetString(HKEY_CURRENT_USER, NomReg, NomKey)

End Function

Private Function GetString(hKey As Long, strPath As String, strValue As String)
    Dim Ret As Long
    'Open the key
    RegOpenKey hKey, strPath, Ret
    'Get the key's content
    GetString = RegQueryStringValue(Ret, strValue)
    'Close the key
    RegCloseKey Ret
End Function

Private Sub DelSetting(hKey As Long, strPath As String, Optional strValue As String = "")
    Dim Ret As Long
    'Create a new key
    RegCreateKey hKey, strPath, Ret

    If strValue = "" Then
        RegDeleteKey Ret, ""
    Else
        RegDeleteValue Ret, strValue
    End If
    
    'close the handle
    RegCloseKey Ret
End Sub

Public Sub ApagarRegistro(ByVal NomReg As String, Optional NomKey As String)
    'Delete the setting from the registry
    DelSetting HKEY_CURRENT_USER, NomReg, NomKey

End Sub
Private Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String
    Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long
    'retrieve nformation about the key
    lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
    If lResult = 0 Then
        strBuf = String(lDataBufSize, Chr$(0))
        'retrieve the key's content
        lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)
        If lResult = 0 Then
            'Remove the unnecessary chr$(0)'s
            RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
        End If
    End If
End Function