?? create_reg_rts.prg
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -