func write_reg_pw
para new_password,isManage
*開(kāi)啟機(jī)碼
DECLARE INTEGER RegOpenKey IN Win32API INTEGER nHKey,STRING cSubKey, INTEGER @nHandle
*建立機(jī)碼
DECLARE INTEGER RegCreateKey  IN Win32API  INTEGER nHKey,STRING cSubKey, INTEGER @nHandle
*關(guān)閉開(kāi)啟的機(jī)碼
DECLARE INTEGER RegCloseKey  IN Win32API  INTEGER nHKey
*刪除機(jī)碼
DECLARE INTEGER RegDeleteKey IN Win32API  INTEGER nHKEY,STRING cSubkey
*刪除某一機(jī)碼下的值
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

if isManage
	retu WriteRegistryString(HKEY_LOCAL_MACHINE,"SOFTWARE\紅虎工作室\yzkh","sapw",new_password)
else
	retu WriteRegistryString(HKEY_LOCAL_MACHINE,"SOFTWARE\紅虎工作室\yzkh","khpw",new_password)
endif
*************************************************************** 
*寫(xiě)入字串值 WriteRegistryString *** 傳回值：.T.成功,.NULL.失敗 
*************************************************************** 
FUNCTION WriteRegistryString
LPARAMETERS HKey, Subkey, Entry, Value 
LOCAL nHandle, nResult, nSize, cDataBuffer, nType 
nHandle=0
nResult=RegOpenKey(HKey,SubKey,@nHandle)

IF nResult#ERROR_SUCCESS 
   RETURN .NULL. 
ENDIF 

DECLARE INTEGER RegSetValueEx IN Win32API ;
INTEGER nHKey, STRING lpszEntry,INTEGER dwReserved, INTEGER fdwType, STRING lpbData, INTEGER cbData 
* fdwType 鍵類(lèi)型 ： 
*         0 - 二進(jìn)制類(lèi)型
*         1 - 字符型
nSize=LEN(Value)
nResult=RegSetValueEx(nHandle,Entry,0,0,Value,nSize)
=RegCloseKey(nHandle)

IF nResult#ERROR_SUCCESS
   RETURN .NULL. 
ENDIF 

RETURN .T.