精华区文章阅读

发信人: zxfsnow (江南的雪), 信区: VB
标  题: 求教：vb中如何找到word并启动？
发信站: 哈工大紫丁香 (2000年06月18日12:22:07 星期天), 转信

发信人: cedar (seek), 信区: VisualBasic
标  题: Re: 求教：vb中如何找到word并启动？
发信站: BBS 水木清华站 (Thu Mar 25 21:01:42 1999)

【在 ababa (飒) 的大作中提到: 】
: 【在 cedar (seek) 的大作中提到: 】
: 我想问的就是怎么查注册表，得到word的安装路径？

我好象已经贴过怎么读取注册表的例子了吧，那就再贴一次。

警告，该例仅提供用于学习目的，任何其他用途均是禁止的，而且转载或再次散发均
需得到书面许可，否则即视为侵权。

在使用一个注册表关键字前，需要先用RegCreateKeyEx创建该关键字。如果关键字不
存在，则 RegCreateKeyEx 将创建一个新的关键字，而如果关键字已经存在，则将只
简单地将它打开。例如调用 RegCreateKeyEx 创建关键字:
CreateRegKey = (RegCreateKeyEx(hKey ， SubKey & NewSubKey ， 0 ， "" ，_
REG_OPTION_NON_VOLATILE ， KEY_ALL_ACCESS ，SA ， _
phkResult ， Create) = ERROR_SUCCESS)

下面给出一个操作注册表的模块：
Option Explicit

Public Const READ_CONTROL = &H20000
Public Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Public Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_CREATE_LINK = &H20
Public Const SYNCHRONIZE = &H100000
Public Const STANDARD_RIGHTS_ALL = &H1F0000
Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
   KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) _
   And (Not SYNCHRONIZE))
Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or _
   KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _
   KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY _
   Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) _
   And (Not SYNCHRONIZE))
Public Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE))

Public Const ERROR_SUCCESS = 0&

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
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
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Function sdaGetRegEntry(strKey As String, strSubKeys As String, strValName _�
As String,    lngType As Long) As String
' Demonstration of win32 API's to query the system registry

On Error GoTo sdaGetRegEntry_Err

  Dim lngResult As Long, lngKey As Long
  Dim lngHandle As Long, lngcbData As Long
  Dim strRet As String

  Select Case strKey
    Case "HKEY_CLASSES_ROOT": lngKey = &H80000000
    Case "HKEY_CURRENT_CONFIG": lngKey = &H80000005
    Case "HKEY_CURRENT_USER": lngKey = &H80000001
    Case "HKEY_DYN_DATA": lngKey = &H80000006
    Case "HKEY_LOCAL_MACHINE": lngKey = &H80000002
    Case "HKEY_PERFORMANCE_DATA": lngKey = &H80000004
    Case "HKEY_USERS": lngKey = &H80000003
    Case Else: Exit Function
  End Select

  If Not ERROR_SUCCESS = RegOpenKeyEx(lngKey, strSubKeys, 0&, KEY_READ, _
     lngHandle) Then Exit Function

  lngResult = RegQueryValueEx(lngHandle, strValName, _
     0&, lngType, ByVal strRet, lngcbData)
  strRet = Space(lngcbData)
  lngResult = RegQueryValueEx(lngHandle, strValName, _
     0&, lngType, ByVal strRet, lngcbData)

  If Not ERROR_SUCCESS = RegCloseKey(lngHandle) Then lngType = -1&
  sdaGetRegEntry = strRet

sdaGetRegEntry_Exit:
  On Error GoTo 0
  Exit Function

sdaGetRegEntry_Err:
  lngType = -1&
  MsgBox Err & ">  " & Error$, 16, "GenUtils/sdaGetRegEntry"
  Resume sdaGetRegEntry_Exit

End Function

--

    独立云山长风满袖

--

以科计为本,以产业报国!
  超越自我,飞跃无限!


※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]

VB 版 (精华区)