List All Installed Applications (Including Path To Exe) On Local Machine

[Will Arrowsmith]

Hi all,

I am trying to create a small form much like the Windows Explorer 'open
with...' dialog box, which will contain a list of all applications installed
on the local machine and their associated icons.

I can display all installed applications by accessing the registry path:
"LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall",
however this does not give me the path to the applications executable file
(which I need to retrieve the icon and more importantly start the program).

Any help on retrieving all application names and the paths the their exe's
would be greatly appreciated.

Thanx

Will @ Multepos

[Ken Tucker [MVP]]

Hi,
Add a reference to system.management. Not all apps report the
installlocation.

Dim moReturn As Management.ManagementObjectCollection

Dim moSearch As Management.ManagementObjectSearcher

Dim mo As Management.ManagementObject

moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_Product")

moReturn = moSearch.Get

For Each mo In moReturn

Debug.WriteLine(String.Format("{0} Location {1} ", mo("Name"),
mo("InstallLocation")))

Next

Ken

-----------------------

"Will Arrowsmith" <wi**@multepos.co.uk> wrote in message
news:ee**************@TK2MSFTNGP10.phx.gbl...
Hi all,

I am trying to create a small form much like the Windows Explorer 'open
with...' dialog box, which will contain a list of all applications installed
on the local machine and their associated icons.

I can display all installed applications by accessing the registry path:
"LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentV ersion\Uninstall",
however this does not give me the path to the applications executable file
(which I need to retrieve the icon and more importantly start the program).

Any help on retrieving all application names and the paths the their exe's
would be greatly appreciated.

Thanx

Will @ Multepos