func Create_reg_rts
para cValue

*開啟機碼
DECLARE INTEGER RegOpenKey IN Win32API INTEGER nHKey,STRING cSubKey, INTEGER @nHandle
*建立機碼
DECLARE INTEGER RegCreateKey  IN Win32API  INTEGER nHKey,STRING cSubKey, INTEGER @nHandle
*關閉開啟的機碼
DECLARE INTEGER RegCloseKey  IN Win32API  INTEGER nHKey
*刪除機碼
DECLARE INTEGER RegDeleteKey IN Win32API  INTEGER nHKEY,STRING cSubkey
*刪除某一機碼下的值
DECLARE INTEGER RegDeleteValue IN Win32API INTEGER nHKEY,STRING cEntry

#DEFINE HKEY_CLASSES_ROOT       -2147483648
#DEFINE HKEY_CURRENT_USER       -2147483647
#DEFINE HKEY_LOCAL_MACHINE      -2147483646
#DEFINE HKEY_USERS              -2147483645
#DEFINE ERROR_SUCCESS            0

=RegCreateKey(HKEY_LOCAL_MACHINE,"SOFTWARE\燎原工作室\"+cValue,0)
**************************************************
***  新建機碼 RegCreateKey
***  傳回值：.T.表成功，.NULL.表無此機碼
**************************************************
FUNCTION RegCreateKey
LPARAMETERS HKEY,SubKey,nHandle
LOCAL nResult
nResult=RegOpenKey(HKey,SubKey,@nHandle)
IF nResult#ERROR_SUCCESS
   *機碼不存在或無法開啟
   RETURN .NULL.
ENDIF   

nResult=RegCreateKey(HKey,SubKey)
=RegCloseKey(nHandle)

IF nResult#ERROR_SUCCESS
   RETURN .NULL.
ENDIF

RETURN .T.