Imports Microsoft.Win32
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim regVersion As RegistryKey
Dim keyValue As String
keyValue = "Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\OutLook.exe" '所有已安裝程序
regVersion = Registry.LocalMachine.OpenSubKey(keyValue, False)
Dim intVersion As String
If Not regVersion Is Nothing Then
intVersion = regVersion.GetValue("path", 0) '讀路徑
MessageBox.Show(intVersion)
regVersion.Close()
End If
End Sub