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

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 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 Const HKEY_LOCAL_MACHINE = &H80000002

Private Const KEY_WRITE = &H20006
Private Const REG_SZ = 1


Private Sub Command1_Click()


Dim Msg, Style, Title, Response
Msg = "ÓíÊã ÊÔÛíá ÇáÈÑäÇãÌ ÇáãÑÉ ÇáÞÇÏãÉ" & Chr(13) & Chr(10) + "ãÚ ÈÏÇíÉ ÊÔÛíá ÇáÌåÇÒ ¿"
Style = vbOKOnly + vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading
Title = "ÇáßÇÈæÓ"

Response = MsgBox(Msg, Style, Title)

Dim hregkey As Long
Dim SubKey As String
Dim stringbuffer As String

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

retval = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, _
KEY_WRITE, hregkey)
If retval <> 0 Then
Exit Sub
End If
stringbuffer = App.Path & "\" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, "ÇáßÇÈæÓ ", 0, REG_SZ, _
ByVal stringbuffer, Len(stringbuffer))

RegCloseKey hregkey


End Sub