استخراج مسار برنامج تم تنصيبة على الجهاز

السلام عليكم ورحمة الله وبركاته

محتاج كود يتم من خلاله استخراج مسار واسم البرنامج 

اضافت هذا الكود 

Dim OpenFileDialog1 As New OpenFileDialog
        OpenFileDialog1.Title = "open file"
        OpenFileDialog1.Multiselect = False
        OpenFileDialog1.Filter = "All Files|*.*"
        OpenFileDialog1.ShowDialog()
        Me.lblBrowse.Text = OpenFileDialog1.FileName

ولكنه بعض البرامج لا يظهر مسارها 

تظهر كما في الصورة