How to detect if word,excel and outlook have been installed?

[Johnweida]

experts,

Is there a way to detect if Microsoft Word,Excel and Outlook have been installed in the computer ? Thanks.

John Satellite

 

[Mike Lewis]

John,

The 'official' method is to check for certain Registry entries. I can give you more information on how to do that if you wish, but it is a little complicated, and relies on knowing the CLSIDs of the application (and version) in question.

A simpler approach is as follows:

lcOldError = ON("Error&quot
ON ERROR llFailed = .T.
loWord = CREATEOBJECT("word.application&quot
ON ERROR &lcOldError
IF llFailed
* Word not instantiated
ELSE
* Word instantiated OK
ENDIF

Or, in VFP 8.0, you can use the new-style error-trapping to achieve the same goal.

The problem is that this is not completely reliable, as there are other reasons for the CREATEOBJECT() to fail. Nevertheless, I have often adopted this approach, without too much trouble.

Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk

 

[Johnweida]

Mike,

I've tried your code and vfp8 told me that 'Variable llFailed is not found'. Please give me a further instruction. Thanks.

John Satellite

 

[DSummZZZ]

If there is no error, llFailed won't be initialized. Just add this line:

STORE .F. TO llFailed

lcOldError = ON("Error")
ON ERROR llFailed = .T.
loWord = CREATEOBJECT("word.application")
ON ERROR &lcOldError
IF llFailed 
  * Word not instantiated
ELSE
  * Word instantiated OK
ENDIF

-Dave S.-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[Johnweida]

Mike,

It has running well. Thank you very much !

John Satellite

 

[Mike Lewis]

John,

Sorry. When I pasted the code, I lost that line.

Dave,

Thanks for putting it right.

Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk

 

[Johnweida]

Dear Mike,

Maybe this thread is not related with the topic.
I call Word in my application with the code below.

loWord = CREATEOBJECT("word.application&quot
loWord.visible = .T.

How to start Word with a new Doc file ?
Waiting for your help. Thanks.

John Satellite

 

[Mike Gagnon]

John

loWord = CREATEOBJECT("word.application&quot
loDocumnent = loWord.documents.add()
loWord.Visible = .t.



Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Johnweida]

Mike,

Your code is very good. You are great ! Thank you very much.

John Satellite