create_reg_rts.prg

来自「功能模块:报关操作,运输操作,报关查询,运输查询」· PRG 代码 · 共 43 行

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.