DECLARE Integer RegOpenKeyEx IN Win32API ; Integer nHKey, String @cSubKey, Integer nReserved, ; Integer nReservedA, Integer @nResult DECLARE Integer RegCreateKey IN Win32API ; Integer nHKey, String @cSubKey, Integer @nResult DECLARE Integer RegCloseKey IN Win32API Integer nHKey DECLARE Integer RegSetValueEx IN Win32API ; Integer hKey, String lpszValueName, Integer dwReserved,; Integer fdwType, String lpbData, Integer cbData DECLARE Integer RegQueryValueEx IN Win32API ; Integer nHKey, String lpszValueName, Integer dwReserved,; Integer @lpdwType, String @lpbData, Integer @lpcbData * Registry roots fox style #DEFINE HKEY_CLASSES_ROOT -2147483648 && BITSET(0,31) #DEFINE HKEY_CURRENT_USER -2147483647 && BITSET(0,31)+1 #DEFINE HKEY_LOCAL_MACHINE -2147483646 && BITSET(0,31)+2 #DEFINE HKEY_USERS -2147483645 && BITSET(0,31)+3 * Data types for keys #DEFINE REG_SZ 1 && Data string #DEFINE REG_BINARY 3 && Binary data in any form. #DEFINE REG_DWORD 4 && A 32-bit number. * Data types labels #DEFINE REG_BINARY_LOC "*Binary*" && Binary data in any form. #DEFINE REG_DWORD_LOC "*Dword*" && A 32-bit number. #DEFINE REG_UNKNOWN_LOC "*Unknown type*" && unknown type retval = 0 lphKey = 0 x = RegCreateKey(HKEY_CURRENT_USER, "\Software\Cyberjet\TestApp", @retval) sKeyName = "Software\CyberJet\TestApp" sDataName = "OurTest" sDataValue = "CyberJet" lLen = Len(sDataValue) ret = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, 0, @lphKey) ret = RegSetValueEx(@lphKey, sDataName, 0, 1, sDataValue, lLen) **--------------------------------------------------------------** **--------------------------------------------------------------**Everything above here works as advertised.
**--------------------------------------------------------------** **--------------------------------------------------------------** cValueName = sDataName cKeyValue = "" nCurrentKey = HKEY_CURRENT_USER LOCAL lpdwReserved,lpdwType,lpbData,lpcbData,nErrCode STORE 0 TO lpdwReserved,lpdwType STORE SPACE(256) TO lpbData STORE LEN(m.lpbData) TO m.lpcbData nErrCode=RegQueryValueEx(nCurrentKey,cValueName,; lpdwReserved,@lpdwType,@lpbData,@lpcbData) cKeyValue = LEFT(lpbData,lpcbData-1)
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams