'//随机启动
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPublic 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 LongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPublic Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPublic Const REG_SZ = 1Public Const HKEY_LOCAL_MACHINE = &H80000002'*************************************************************************
'**函 数 名: SetAutoRun
'**输 入: ByVal Autorun(Boolean) -
'**输 出: 无
'**功能描述: 随WINDOWS自动启动/取消启动模块
'**全局变量:
'**调用方法: Call SetAutoRun(True/False)
'**作 者: Mr.David
'**日 期: 2006-09-05 09:07:25
'**修 改 人:
'**日 期:
'**版 本: V1.0.0
'*************************************************************************Public Sub SetAutoRun(ByVal Autorun As Boolean) Dim KeyId As Long
Dim MyexePath As String
Dim regkey As String
MyexePath = Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34) & " /start" '获取程序位置 regkey = "Software\Microsoft\Windows\CurrentVersion\Run" '键值位置变量
'MsgBox RegQueryValueEx(KeyId, "MySoftware", 0&, REG_SZ, MyexePath, LenB(MyexePath))
'判断注册是否存在键值
If RegQueryValueEx(KeyId, "MySoftware", 0&, REG_SZ, MyexePath, LenB(MyexePath)) <> 0 Then
Call RegCreateKey(HKEY_LOCAL_MACHINE, regkey, KeyId) '建立
If Autorun Then
RegSetValueEx KeyId, "MySoftware", 0&, REG_SZ, ByVal MyexePath, LenB(MyexePath)
Else
RegDeleteValue KeyId, "MySoftware"
End If
'End If
RegCloseKey KeyIdEnd Sub请问我这个哪里有错误,总是无法判断,弹出查询值为6,是为什么?折腾我一天了,求救
解决方案 »
- 请问怎么在dbf文件里增加一个字符为20长度的字段
- 请问adode是个什么控件啊。
- ListView中如何给汉字排序?
- 可不可以在客户端组织数据到一个Recordset,然后一次性Update到另外一个数据源
- 请问如何判断集合中一个元素是否存在?
- 新手 求问 很急
- vb6.0 打印在win98和win2000下的有什么区别吗?
- 急,《VB课程作业》 操纵文本文件,分数不够,在加!
- installshield Professional 7.0哪里有下?
- 高效率的图像90"旋转代码!100分来换
- 求硬盘物理序列号ACTIVX
- 如何从form1中call用户控件(叫textH8)中的UserControl_MouseMove过程??急求~~!
去掉单引号以后测试没问题。