怎么写代码?用什么函数???+++++++++++++急

解决方案 »

  1.   

    比如:先检测HKEY_CURRENT_USER\Software\Valve\Steam存在不存在,不存在的话就调用一个其他的文件 !
      

  2.   

    Option ExplicitPrivate Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByRef phkResult As Long) As Long
    Private Const HKEY_CURRENT_USER As Long = &H80000001Private Sub Form_Load()
        Dim lResult As Long
        
        RegOpenKey HKEY_CURRENT_USER, "Software\Valve\Steam", lResult
        If lResult <> 0 Then MsgBox "存在"
    End Sub