资源描述:
《用api修改注册表的完整模块》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、用API修改注册表的完整模块'**************************************************************************************************************'*本模块提供了一些对注册表进行操作的函数'*警告:操作注册表是非常危险的,使用本模块中的任何函数都要慎重!!!'*'*版权:LPP软件工作室'*作者:卢培培'*********************************************************************************************
2、*****************OptionExplicitOptionCompareText'---------------------------------------------------------------'-注册表API声明...'---------------------------------------------------------------PrivateDeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLongPrivateDeclareFunctionRegCreateKeyEx
3、Lib"advapi32.dll"Alias"RegCreateKeyExA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValReservedAsLong,ByVallpClassAsString,ByValdwOptionsAsLong,ByValsamDesiredAsLong,lpSecurityAttributesAsSECURITY_ATTRIBUTES,phkResultAsLong,lpdwDispositionAsLong)AsLongPrivateDeclareFunctionRegDeleteKeyLib"advapi32.dll
4、"Alias"RegDeleteKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString)AsLongPrivateDeclareFunctionRegDeleteValueLib"advapi32.dll"Alias"RegDeleteValueA"(ByValhKeyAsLong,ByVallpValueNameAsString)AsLongPrivateDeclareFunctionRegOpenKeyExLib"advapi32.dll"Alias"RegOpenKeyExA"(ByValhKeyAsLong,ByVallpSubKeyAsString
5、,ByValulOptionsAsLong,ByValsamDesiredAsLong,phkResultAsLong)AsLongPrivateDeclareFunctionRegQueryValueExLib"advapi32.dll"Alias"RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,lpTypeAsLong,lpDataAsAny,lpcbDataAsLong)AsLongPrivateDeclareFunctionRegRestoreKeyLib"advapi
6、32.dll"Alias"RegRestoreKeyA"(ByValhKeyAsLong,ByVallpFileAsString,ByValdwFlagsAsLong)AsLongPrivateDeclareFunctionRegSaveKeyLib"advapi32.dll"Alias"RegSaveKeyA"(ByValhKeyAsLong,ByVallpFileAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)AsLongPrivateDeclareFunctionRegSetValueExLib"advapi32.dll"Alia
7、s"RegSetValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByValReservedAsLong,ByValdwTypeAsLong,lpDataAsAny,ByValcbDataAsLong)AsLongPrivateDeclareFunctionRegQueryInfoKeyLib"advapi32.dll"Alias"RegQueryInfoKeyA"(B