开机启动程序模块示例

View Post

Option Explicit

Private 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

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

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const HKEY_CURRENT_USER = &H80000001

Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Const KEY_SET_VALUE = &H2

Private Const REG_SZ = 1

Public Sub SetStartUp(ByVal b_start As Boolean)

On Error GoTo ErrorHandle

Dim l_Ret As Long, l_Hnd As Long, l_Len As Long

Dim str_Key As String, str_Data As String

str_Key = "software\microsoft\windows\currentversion\run"

l_Ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, str_Key, 0&, KEY_SET_VALUE, l_Hnd)

If l_Ret = 0 Then

If b_start Then

str_Data = App.Path & "\OAPOP.exe"

Else

str_Data = ""

End If

l_Len = Len(str_Data)

l_Ret = RegSetValueEx(l_Hnd, "OAPOP", 0&, REG_SZ, ByVal str_Data, l_Len)

End If

l_Ret = RegCloseKey(l_Hnd)

Exit Sub

ErrorHandle:

If Err.Number <> 0 Then

g_str_ErrNumber = Err.Number

g_str_ErrSource = Err.Source

g_str_ErrDesc = Err.Description

g_WriteLog g_str_ErrDesc

Err.Clear

End If

End Sub

posted on 2006-01-13 17:00 MingIsMe 阅读(136) 评论(0) 编辑收藏所属分类: 05 微软编程

Samuel Learning

文章分类(203)

新闻分类(52)

.NET资源

Ajax

Java开源

Mobile

WEB资源

Workflow

其他连接

大牛人

开源软件

敏捷

数据库

未归类

经典框架

网络教程

著名站点

项目管理

最新评论

View Post

开机启动程序模块示例