How To Detect DCOM Installation Under VFP 6.0 (215362)


The information in this article applies to:

  • Microsoft Visual FoxPro for Windows 6.0
This article was previously published under Q215362

SUMMARY

This article illustrates how to detect whether DCOM is installed in a Windows 95/98 or a Windows NT 4.0 machine from within Visual FoxPro 6.0.

MORE INFORMATION

An application created with a Top-Level form needs DCOM installed in order to work properly when the Visual FoxPro main desktop is suppressed in the Config.fpw with SCREEN=OFF.

With the code below, you can detect that DCOM is present. Based on this information, you can shut down the application if necessary.

#DEFINE HKEY_LOCAL_MACHINE  -2147483646
#DEFINE DCOMKEYSTRING 'SOFTWARE\Microsoft\OLE'
#DEFINE ENABLEDCOMKEY 'EnableDCOM'

SET CLASSLIB TO HOME()+"ffc/REGISTRY.VCX"
oReg=CREATEOBJECT('registry')
LOCAL lFoundDCOM
lFoundDCOM = .F.
IF oReg.OpenKey(DCOMKEYSTRING,HKEY_LOCAL_MACHINE,.F.) = 0
   LOCAL cValue
   cValue = ''
   IF oReg.GetKeyValue(ENABLEDCOMKEY,@cValue) = 0
      lFoundDCOM = !EMPTY(cValue)
   ENDIF
ENDIF
IF !lFoundDCOM
   MESSAGEBOX('DCOM not install on system')
ELSE
   MESSAGEBOX('DCOM install on system')
ENDIF

REFERENCES

For additional information about exception errors terminating Top-Level form in Visual FoxPro applications, please see the following article in the Microsoft Knowledge Base:

193472 BUG: Exception Error Exiting Top-Level Form App in Windows 95
Modification Type:MinorLast Reviewed:7/1/2004
Keywords:kbDCOM kbFFC kbhowto KB215362
©2004 Microsoft Corporation. All rights reserved.