cAppKey = ""
cAppName = ""
nErrNum = oReg.GetAppPath(m.cExtn,@cAppKey,@cAppName)
......
......
......

*|-- FOR VFP 5.0
SET PATH TO "C:\VFP\samples\classes\registry.prg"
oReg = CREATEOBJECT("FileReg")
cAppKey = ""
cAppName = ""
m.cExtn = "PDF"
nErrNum = oReg.GetAppPath(m.cExtn,@cAppKey,@cAppName)

*|-- VFP 6.0
SET PATH TO "C:\Program Files\Microsoft Visual Studio\Common\Samples\VFP98Samples\classes\registry.prg"
oReg = CREATEOBJECT("FileReg")
cAppKey = ""
cAppName = ""
m.cExtn = "PDF"
nErrNum = oReg.GetAppPath(m.cExtn,@cAppKey,@cAppName)

And so on...