Test for installed application?

[Charlotte E.]

Hi,


Is it possible to test, if the user has a certain application installed
on this computer?

Or, to be specific, is it possible to test, if the user has "Google
Earth" installed on his windows-PC?

VBA Code?


Thanks in advance...


CE

 

[Auric__]

Is it possible to test, if the user has a certain application installed
on this computer?

Or, to be specific, is it possible to test, if the user has "Google
Earth" installed on his windows-PC?

VBA Code?

Go to a computer that doesn't have Google Earth installed. Dump the registry.
(Yes, the whole thing.) Install Google Earth. Dump the registry again.
Compare. (There are tools that will do the dumping and comparing
automagically for you.)

Chances are, Google Earth sets something in the registry, even if it's
something as simple as the uninstaller's info. (I don't use it so I can't
tell you what.)

 

[Mike S]

Go to a computer that doesn't have Google Earth installed. Dump the registry.
(Yes, the whole thing.) Install Google Earth. Dump the registry again.
Compare. (There are tools that will do the dumping and comparing
automagically for you.)

Chances are, Google Earth sets something in the registry, even if it's
something as simple as the uninstaller's info. (I don't use it so I can't
tell you what.)

This approach might work:

"See if Google Earth is the handler for .kml files:"

http://stackoverflow.com/questions/1474493/determine-if-google-earth-is-installed-on-windows

There are some registry entries here, not sure if they will work for
you, the recommended testing is a good idea:

[HKEY_CURRENT_USER\Software\Google\Google Earth Plus]

http://offlinegoogleearth.blogspot.com/

 

[GS]

Perhaps...

Function bGoogleEarthAvailable() As Boolean
Dim x As Object
On Error Resume Next
Set x = CreateObject("Google Earth.Application") 'edit to suit
bGoogleEarthAvailable = (Err = 0)
x.Quit: Set x = Nothing
End Function

Usage example:

If bGoogleEarthAvailable Then DoSomething Else Do SomethingElse

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

 

[GS]

GS made a 'typo':

Function bGoogleEarthAvailable() As Boolean
Dim x As Object
On Error Resume Next
Set x = CreateObject("Google Earth.Application") 'edit to suit
bGoogleEarthAvailable = (Err = 0)
x.Quit: Set x = Nothing
End Function

Usage example:

If bGoogleEarthAvailable Then DoSomething Else DoSomethingElse

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

 

[Charlotte E.]

Thanks for your suggestions, guys...

However, I decided on a web-map based solution instead - but thanks for
your effort anyway.


CE

Den 19.06.2012 12:40, Charlotte E. skrev: