小女子求助 vfp 编程问题
编程代码如下#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@里。。我不胜感激。。
