Binaryworld - GetApplicationPath - Retrieve the path of a Windows application from t ... [ VB -> Windows ]

Const HKEY_LOCAL_MACHINE = &H80000002

' Get the path of a Windows application
' or an empty string if the application isn't registered
'
' this routine only works for those applications that register
' themselves under the registry key
' HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths
'
' You can use it to retrieve the path of all MSOffice apps,
' MS Access, SQl Server, Windows Dialer, and more, for example
'   ' Run Excel in a maximized window
'   Shell GetApplicationPath("EXCEL.EXE"), vbMaximizedFocus
'
' requires the GetRegistryValue function

Function GetApplicationPath(ByVal ExeName As String) As String
  GetApplicationPath = GetRegistryValue(HKEY_LOCAL_MACHINE, _
    "Software\Microsoft\Windows\CurrentVersion\App Paths\" & ExeName, "")
End Function