SET CLASSLIB TO "c:\program files\microsoft visual Foxpro 7\ffc\Registry.vcx" ADDITIVE oReg = CREATEOBJECT("Registry") RELEASE CLASSLIB "c:\program files\microsoft visual Foxpro 7\ffc\Registry" IF oReg.IsKey("Visual.Foxpro.Application.7") IF oReg.OpenKey("Visual.Foxpro.Application.7") = 0 && No Error lcbuffer = SPACE(260) oReg.GetKeyValue("", @lcbuffer) oReg.CloseKey ENDIF ENDIF ? lcbuffer oReg = NULL