supercapture3.0的版注册机!

标 题:自动注册功能已经完成了,现在贴出来这部分！！！ (3千字)
发信人:cdlover
时 间:2002-4-23 18:53:42
详细信息:

Private Sub Auto_reg(RegNum As String)

    Const ERROR_SUCCESS = 0&
    Const REG_SZ = 1&
   
    Const HKEY_LOCAL_MACHINE = &H80000002
   
    Const READ_CONTROL = &H20000
    Const STANDARD_RIGHTS_READ = READ_CONTROL
    Const KEY_QUERY_VALUE = &H1&
    Const KEY_ENUMERATE_SUB_KEYS = &H8&
    Const KEY_NOTIFY = &H10&
    Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY

    Dim hKey As Long
    Dim SubKey, strPath As String
    Dim lBufferSize As Long
    Dim rtn As Long, lBuffer As Long, sBuffer As String
   
    Dim FileNo As Integer
   
    '利用添加与删除程序的信息，来找到SuperCapture的安装目录
    SubKey = "Software\Microsoft\Windows\CurrentVersion\Uninstall\SuperCapture 3.02_is1"
    rtn = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, KEY_READ, hKey) '打开一个主键
    If rtn = ERROR_SUCCESS Then 'if the key could be opened then
      sBuffer = Space(255)    'make a buffer
      lBufferSize = Len(sBuffer)
      rtn = RegQueryValueEx(hKey, "Inno Setup: App Path", 0, REG_SZ, sBuffer, lBufferSize) 'get the value from the registry
      If rtn = ERROR_SUCCESS Then 'if the value could be retreived then

上一页 [1] [2] [3] [4] [5] [6] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:键盘鼠标发声器算法分析

下一篇:松试卷 V4.5 单机版的算法分析