用Visual Basic修改Windows98注册表

80酷酷网    80kuku.com

  visual|window|注册表Windows98系统注册表中包含关于系统配置及运行的重要信息。本文以修改KEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run子键分支中的键值信息为例,介绍如何在Visual Basic中,利用Win32 API函数修改注册表。

声明Win32 API函数’该函数用于打开系统注册表中已存在的键。

函数的返回值:键打开成功返回0,否则返回非0,

phkResult被设置为该键的句柄。

Declare Function RegSetValueEx Lib “advapi32”

Alias “RegSetValueExA” (ByVal hkey As

Long,ByVal lpszValueName As String,ByVal

dwReserved As Long,ByVal fdwType As Long,

lpbData As Any,ByVal cbData As Long) As Long

’该函数用于向系统注册表中指定的键添加键名和键值。

函数的返回值: 添加键名、键值成功返回0,否则返回非0。

Declare Function RegCloseKey Lib “advapi32”

Alias “RegCloseKey” (ByVal hkey As Long) As Long

’该函数用于关闭系统注册表中打开的键。

函数的返回值:键关闭成功返回0,否则返回非0。

’StrConv是Visual Basic提供的函数,

返回按指定类型转换的Variant(String)。

’vbFromUicode是Visual Basic的系统常数。在上面程序中,StrConv(strData,vbFromUnicode)的作用是:根据系统的默认码将字符串转换成Unicode。

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: