xiaozuo(小卓)在吗？

Question

越俎代庖，代码：Private Declare Function SHGetValueStr Lib "Shlwapi.dll" Alias "SHGetValueA" (ByVal hkey As Long, ByVal pszSubKey As String, ByVal pszValue As String, pdwType As Long, ByVal pvData As String, pcbData As Long) As Long
Private Declare Function SHGetValueLng Lib "Shlwapi.dll" Alias "SHGetValueA" (ByVal hkey As Long, ByVal pszSubKey As String, ByVal pszValue As String, pdwType As Long, pvData As Any, pcbData As Long) As LongConst REG_SZ = 1                         ' Unicode nul terminated string
Const HKEY_CURRENT_USER = &H80000001Private Sub Command1_Click()
    Dim astr As String * 256
    
    SHGetValueStr HKEY_CURRENT_USER, "Environment", "TEMP", REG_SZ, astr, 256
    Debug.Print astr
End Sub上面的代码是获得字符串类型数据的。代码是获得HKEY_CURRENT_USER\Environment
下TEMP键值的值。

Answer 1

我主要是想访问HKEY_CLESSES\txtfile\shell\open\command下的哪个默认键值，其实就是得到用什么程序打开文本文件的！

Answer 2

很谢谢TechnoFantasy(www.applevb.com）我的几个问题您都给了我很满意的回答，谢谢您的帮助！

Answer 3

稍微改一下就可以了：
SHGetValueStr HKEY_CURRENT_USER, "Environment", "", REG_SZ, astr, 256
上面的语句获得HKEY_CURRENT_USER\Environment的默认键值