SET CLASSLIB TO Registry.vcx ADDITIVE oReg = CREATEOBJECT("Registry") RELEASE CLASSLIB Registry IF oReg.IsKey("wrifile") IF oReg.OpenKey("wrifile\Shell\Open\Command") = 0 lcbuffer = SPACE(260) oReg.GetKeyValue("", @lcbuffer) oReg.CloseKey ENDIF ENDIF oReg = NULLlcbuffer will contain something like this: C:\Program Files\Windows NT\Accessories\WORDPAD.EXE "%1".