亚洲国产午夜精品理论片在线播放,亚洲国产精品久久久久,精品日韩亚洲AV无码一区二区三区

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 閱讀(134) 評論(0) 編輯收藏所屬分類: 05 微軟編程

Samuel Learning

文章分類(203)

新聞分類(52)

.NET資源

Ajax

Java開源

Mobile

WEB資源

Workflow

其他連接

大牛人

開源軟件

敏捷

數據庫

未歸類

經典框架

網絡教程

著名站點

項目管理

最新評論

View Post

開機啟動程序模塊示例