كيف يمكن تحميل البرنامج مع بداية تحميل الويندوز...... مثل "messenger"

جرب الكود التالي

---------------------------------------------------------------------------------------------------------------------------

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Private Declare Function RegCreateKeyEx& Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition 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)

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

Private Const HKEY_CURRENT_USER = &H80000001

Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Const REG_OPTION_NON_VOLATILE = 0

Private Const SYNCHRONIZE = &H100000

Private Const STANDARD_RIGHTS_ALL = &H1F0000

Private Const KEY_QUERY_VALUE = &H1

Private Const KEY_SET_VALUE = &H2

Private Const KEY_CREATE_SUB_KEY = &H4

Private Const KEY_ENUMERATE_SUB_KEYS = &H8

Private Const KEY_NOTIFY = &H10

Private Const KEY_CREATE_LINK = &H20

Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

Private Const ERROR_SUCCESS = 0&

Private Const REG_SZ = 1

Public Function RunNextBoot(ByVal AppName As String, ByVal CmdLine As String, Optional RunEveryBoot As Boolean = False)

'cmdline تكتب فيه مسار الملف

'Appname اسم الملف

'RunEveryBoot للتحكم بتشغيله مع بداية النظام أو عدمه

Dim TopKey As Long

Dim SubKey As String

Dim nRet As Long

Dim hKey As Long

Dim nResult As Long

SubKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"

TopKey = HKEY_LOCAL_MACHINE

If RunEveryBoot = True Then

nRet = RegCreateKeyEx(TopKey, SubKey, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, ByVal 0&, hKey, nResult)

If nRet = ERROR_SUCCESS Then

nRet = RegSetValueEx(hKey, AppName, 0&, REG_SZ, ByVal CmdLine, Len(CmdLine))

Call RegCloseKey(hKey)

End If

Else

nRet = RegOpenKey(TopKey, SubKey, hKey)

If nRet = ERROR_SUCCESS Then

nRet = RegDeleteValue(hKey, AppName)

Call RegCloseKey(hKey)

End If

End If

RunNextBoot = (nRet = ERROR_SUCCESS)

End Function

-----------------------------------------------------------------------------------------------------------------

حقيقى مش عارف أقول اية انت عبقرينو يا باشاشكرا جدا لتعبك معايا

;)

-waf