####VB打开文见问题#####
来源:百度知道 编辑:UC知道 时间:2024/05/30 01:03:17
在注册表
HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ
可知QQ的路径。
vb代码如下(一个按钮command1):
Option Explicit
Const REG_SZ = 1
Const KEY_QUERY_VALUE = &H1
Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
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 Sub Command1_Click()
Dim lrc As Long
Dim hKey As Long
Dim rtValue As String
Dim lenData As Long
lenData = 128
rtValue = String(lenData, Chr(0))