Check Registry Setting For Your App Startup

I know how to add my app to the registry so it will startup when the users computer starts, but I am a little confused on how to retrieve that value to check if its already been saved. I know in the sub it shows you how to get a saved registry setting, but again im still confused on how to get the start up registry setting.

I am using this method to save the entry:
------------------------------------------------------------------------

Code:
Call MakeStartUp(AddFile(App.Path, (App.EXEName & ".exe")))
------------------------------------------------------------------------
and this is the sub for it:
-------------------------------------------------------------------------

Code:
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public 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
Public 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


Public Const REG_SZ = 1 ' Unicode nul terminated String
Public Const REG_DWORD = 4 ' 32-bit number
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const ERROR_SUCCESS = 0&


'Option Explicit
Const UNIT_NAME = "UTILITY"


Public Sub MakeStartUp(FileName As String)
Dim Counter As Integer
Dim MarkPos As Integer
Dim Application As String

Application = GetFileName(FileName)
Application = Left(Application, (Len(Application) - 4)) 'Replace(Application, ".exe", "", , , vbTextCompare) & "~@#"
Call SaveString(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindowsCurrentVersionRun", Application, FileName)
End Sub

Public Sub SaveKey(hKey As Long, strPath As String)
Dim KeyHand&
Dim r As Long

r = RegCreateKey(hKey, strPath, KeyHand&)
r = RegCloseKey(KeyHand&)
End Sub

Public Function GetString(hKey As Long, strPath As String, strValue As String)
'EXAMPLE:
'
'text1.text = getstring(HKEY_CURRENT_USE
'
' R, "SoftwareVBWRegistry", "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 r As Long
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 Long, strPath As String, strValue As String, strdata As String)
'EXAMPLE:
'
'Call savestring(HKEY_CURRENT_USER, "Sof
'
' twareVBWRegistry", "String", text1.t
' ex
' 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


Function GetDWord(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
'EXAMPLE:
'
'text1.text = getdword(HKEY_CURRENT_USER
'
' , "SoftwareVBWRegistry", "Dword")
'
Dim lResult As Long
Dim lValueType As Long
Dim lBuf As Long
Dim lDataBufSize As Long
Dim r As Long
Dim KeyHand As Long

r = RegOpenKey(hKey, strPath, KeyHand)
' Get length/data type
lDataBufSize = 4
lResult = RegQueryValueEx(KeyHand, strValueName, 0&, lValueType, lBuf, lDataBufSize)


If lResult = ERROR_SUCCESS Then


If lValueType = REG_DWORD Then
GetDWord = lBuf
End If
'Else
'Call errlog("GetDWORD-" & strPath, Fals
'
' e)
End If
r = RegCloseKey(KeyHand)
End Function


Function SaveDword(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String, ByVal lData As Long)
'EXAMPLE"
'
'Call SaveDword(HKEY_CURRENT_USER, "Soft
'
' wareVBWRegistry", "Dword", text1.tex
' t)
'
'
Dim lResult As Long
Dim KeyHand As Long
Dim r As Long

r = RegCreateKey(hKey, strPath, KeyHand)
lResult = RegSetValueEx(KeyHand, strValueName, 0&, REG_DWORD, lData, 4)
'If lResult <> error_success Then
' Call errlog("SetDWORD", False)
r = RegCloseKey(KeyHand)
End Function


Public Function DeleteKey(ByVal hKey As Long, ByVal strKey As String)
'EXAMPLE:
'
'Call DeleteKey(HKEY_CURRENT_USER, "Soft
'
' wareVBW")
'
Dim r As Long

r = RegDeleteKey(hKey, strKey)
End Function


Public Function DeleteValue(ByVal hKey As Long, ByVal strPath As String, ByVal strValue As String)
'EXAMPLE:
'
'Call DeleteValue(HKEY_CURRENT_USER, "So
'
' ftwareVBWRegistry", "Dword")
'
Dim KeyHand As Long
Dim r As Long

r = RegOpenKey(hKey, strPath, KeyHand)
r = RegDeleteValue(KeyHand, strValue)
r = RegCloseKey(KeyHand)
End Function

Public Sub DeleteFromStartup(FileName As String)
Dim Counter As Integer
Dim MarkPos As Integer
Dim Application As String

Application = GetFileName(FileName)
Application = Left(Application, (Len(Application) - 4)) 'Replace(Application, ".exe", "", , , vbTextCompare) & "~@#"
Call DeleteValue(HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindowsCurrentVersionRun", Application)
End Sub

Public Function GetFileName(Path As String) As String
'returnes the filename from a path.

Dim Counter As Integer
Dim LastPos As Integer

LastPos = 1
For Counter = 1 To Len(Path)
If Mid(Path, Counter, 1) = "" Then
LastPos = Counter
End If
Next Counter

GetFileName = Mid(Path, (LastPos + 1), Len(Path))

End Function

Public Function AddFile(Path As String, File As String) As String
'This procedure adds a file name to a path.
If Right(Path, 2) = ":" Then
Path = Path & File
Else
Path = Path & "" & File
End If

AddFile = Path
End Function

• Setting Startup Properties In VBA
• Setting Startup Module
• Windows Startup Setting
• Setting Startup Form???
• Setting Startup Form?
• Add To Startup In Registry.
• Registry Startup Key
• Registry Startup With XP
• Registry To 'On StartUp'?!
• Registry And Startup
• Startup Registry
• Registry Startup
• Startup With Registry
• Help On Run-at-startup In Registry
• Add To Registry-Startup
• Setting Label Caption During Startup
• Help Setting Webcam Resolution At Startup
• How Do I Add A Startup Item To The Registry?
• Startup Registry Key Problem
• How Can U Put A Program In Startup Via Registry?
• Registry Startup Question
• Startup Registry Code
• Registry Startup Flags
• App As Startup Registry Problem.
• Add File To Startup-registry
• Registry Startup Error
• API Find Startup Registry
• Run On Startup / Code For Registry ???
• Adding To Startup Registry
• Registry And Windows Startup.
• Registry Keys To Start An App At Win Startup
• Registry Application Like Startup In Msconfig
• Running From Registry On Startup/Shutdown
• Remove Startup Application From Registry!
• *RESOLVED* Windows Registry - Startup
• Editing The Registry To Launch My Program At Startup?
• Adding My File To The System Startup In The Registry
• Unable To Read From Registry At Startup Everytime
• RegOpenKeyEx Reads Registry Erratically In Startup
• Keypress Check On Startup
• Screen Resolution Check At Startup
• Get Setting From Registry?
• Registry Setting
• Get Registry Setting
• Registry Setting?
• Setting The Registry
• Add Setting To Run Registry Key?
• Registry Setting?
• Registry VALUE Setting