ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Test for installed application? (https://www.excelbanter.com/excel-programming/446377-test-installed-application.html)

Charlotte E.[_3_]

Test for installed application?
 
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__

Test for installed application?
 
Charlotte E. wrote:

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.)

--
Fear is the penalty of consciousness.
There's no weakness in fear... only in showing it.

GS[_2_]

Test for installed application?
 
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[_2_]

Test for installed application?
 
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.[_3_]

Test for installed application?
 
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:
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



All times are GMT +1. The time now is 12:06 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com