برنامج مع بدء التشغيل

لا اعلم ما الطريقة التي استخدمتها لكن يمكن هذا على جميع الانظمة بانشاء قيمة مفتاحية في Run وذلك في الريجستري

اخي هذا الكود الذي استخدمته

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 RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long

Private Declare Function RegSetValueEx_String Lib "advapi32.dll" Alias_

"RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved_

As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA"_

(ByVal hkey As Long, ByVal lpValueName As String) As Long

Const HKEY_LOCAL_MACHINE = &H80000002

Const sKey = "softwaremicrosoftwindowscurrentversionrun"

وهذا الكود في حدث تحميل النافذة

Dim KeyH As Long

Dim FN As String

FN = App.Path

If Right(FN, 1) <> "" Then FN = FN & ""

FN = FN & App.EXEName & ".exe"

RegOpenKeyEx HKEY_LOCAL_MACHINE, sKey, 0, &H1, KeyH

RegSetValueEx_String KeyH, "My_exe", 0, 1, FN, Len(FN) + 1

RegCloseKey KeyH