В базовых классах есть такой класс. Ты просто не искал. Там все подробненько описано.

У, не подскажу. У меня свой и совсем не на фоксе. Но точно знаю что есть.

Вот не поленился, нашел
"c:\Program Files\Microsoft Visual FoxPro 8\Ffc\registry.vct"
к нему
"c:\Program Files\Microsoft Visual FoxPro 8\Ffc\registry.h"
нужен.
Во всех версиях. У меня в 8-ке валяеться по этому пути.

Выдираешь код из класса и вотыкаешь в свою процедуру.

Лень - двигатель прогресса.
Как доберусь до дома, вышлю тебе FLL с описанием, только на этой неделе врядли.

Ну а что далеко ходить:)
Вот тебе :
Только не забудь вотыкнуть в старте

# include registry.h
SET CLASSLIB TO c:\Program Files\Microsoft Visual FoxPro 8\Ffc\registry.vcx
и
Set path to Set("Path")+addbs(c:\Program Files\Microsoft Visual FoxPro 8\Ffc)

Public oReg
oReg = newobject("registry","registry")
Пишем:
Lparameter cKey,cValue,cExpression
* cKey - Куда писать
* cValue - свойство
* eExpression - значение

Local ll_Ok
ll_Ok = .T.
IF !oReg.IsKey(cKey,HKEY_LOCAL_MACHINE)
oReg.OpenKey(cKey,HKEY_LOCAL_MACHINE,.T.)
ENDIF
ll_Ok = ll_Ok .and.;
(oReg.SetRegKey(cValue,@cExpression,cKey,HKEY_LOCAL_MACHINE) = ERROR_SUCCESS)
Return ll_Ok

Пишем
Lparameter cKey,cValue,c_default
Local n_parm
n_parm = PARAMETERS()
Local ll_Ok,eExpress ,C_PARAMS
eExpress = cValue
ll_Ok = .T.
ll_Ok = (oReg.GetRegKey(cValue,@&cValue,cKey,HKEY_LOCAL_MACHINE) = ERROR_SUCCESS)
if !ll_ok
C_PARAMS = IIF(n_parm=3,c_default,"0")
oReg.RegSave(cKey,cValue,.SetDefault(C_PARAMS) )
endif
ll_Ok = .T.
ll_Ok = (oReg.GetRegKey(cValue,@&eExpress,cKey,HKEY_LOCAL_MACHINE) = ERROR_SUCCESS)

return IIF(empty(&cValue) or !ll_Ok,' ',&cValue)

Ну и + не завываем
# include registry.h

Вообщем примерно так. На скорую руку. Мож и ошибся где, в лом вспоминать :)