编程代码如下
#DEFINE KEY_ALL_ACCESS 0xF003F
#DEFINE HKEY_CURRENT_USER 0x80000001
DECLARE INTEGER RegCloseKey IN advapi32 INTEGER hKey
DECLARE INTEGER RegOpenKeyEx IN advapi32;
                    INTEGER   hKey,;
                    STRING    lpSubKey,;
                    INTEGER   ulOptions,;
                    INTEGER samDesired,;
                   INTEGER @ phkResult
DECLARE INTEGER RegEnumValue IN advapi32;
                    INTEGER hKey,;
                  INTEGER   dwIndex,;
                    STRING @ lpValueName,;
                    INTEGER @ lpcValueName,;
                    INTEGER   lpReserved,;
                   INTEGER @ lpType,;
                    STRING @ lpData,;
                    INTEGER @ lpcbData
******************************************************
***       VFP应用程式算法群 QQ群号：12787940      ***
******************************************************
hKey=0
lcKey = "Software\Microsoft\Windows\ShellNoRoam\MUICache"
lcTargetFile = "regdata.txt"
ret=RegOpenKeyEx (HKEY_CURRENT_USER,lcKey,0,KEY_ALL_ACCESS, @hKey)
IF ret>0
RETURN
ENDI
CREATE CURSOR cs (程序运行 C(80),信息描述 C(100))
hBaseKey=0
dwIndex = 0
DO WHILE .T.
    lnValueLen = 250
    lcValueName = Repli(0h00, lnValueLen)
    lnType = 0
    lnDataLen = 250
    lcData = Repli(0h00, lnDataLen)
    lnResult = RegEnumValue(hKey, dwIndex,@lcValueName, @lnValueLen, 0, @lnType, @lcData, @lnDataLen)
    IF lnResult <> 0
        EXIT
    ENDIF
    lcValueName = Left(lcValueName, lnValueLen)
    lcData = Left(lcData, lnDataLen-1)
    INSERT INTO cs VALUES (lcValueName, lcData)
    dwIndex = dwIndex + 1
ENDDO
RegCloseKey (hKey)
GO 1
BROWSE
就是想得到这个代码的可执行程序，我不会玩这个高级东西，谁帮我弄好发到我邮箱里975810593@里。。我不胜感激。。