7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
qjzrd 2006-02-11
- 打赏
- 举报
'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'返回值: =0,表示成功；≠0,表示失败。[注意这一点与别的API函数不太一样]
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Sub Command1_Click()
Dim ret As Long, typeData As Long, lenData As Long, hKey As Long
Dim sValue As String, name As String, pathstr() As String
sValue = Space(255)
Const REG_SZ = 1& '字符串值
lenData = 255
name = "path"
ret = 1
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE", hKey)
If ret = 0 Then
ret = RegQueryValueEx(hKey, name, 0, REG_SZ, ByVal sValue, lenData) '注意ByVal千万别忘了
pathstr = Split(sValue, ";")
Text1.Text = pathstr(0)
End If
ret = RegCloseKey(hKey)
End Sub
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'返回值: =0,表示成功；≠0,表示失败。[注意这一点与别的API函数不太一样]
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Sub Command1_Click()
Dim ret As Long, typeData As Long, lenData As Long, hKey As Long
Dim sValue As String, name As String, pathstr() As String
sValue = Space(255)
Const REG_SZ = 1& '字符串值
lenData = 255
name = "path"
ret = 1
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE", hKey)
If ret = 0 Then
ret = RegQueryValueEx(hKey, name, 0, REG_SZ, ByVal sValue, lenData) '注意ByVal千万别忘了
pathstr = Split(sValue, ";")
Text1.Text = pathstr(0)
End If
ret = RegCloseKey(hKey)
End Sub
qjzrd 2006-02-11
- 打赏
- 举报
谢谢，问题解决
northwolves 2006-02-10
- 打赏
- 举报
读取注册表
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE
PATH子项的键值
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE
PATH子项的键值
qjzrd 2006-02-10
- 打赏
- 举报
怎么没有人告诉我呀
