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
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