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

هل برنامجك EXE؟ اذا كان كذلك يمكنك ان تشغله من خواص الويندوز ام اذا

اردت برمجته فيمكنك ذلك عن طريق دوال API

مشكوووووووووووووووور

الكود

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 = "norton"

Response = MsgBox(Msg, Style, Title)

Dim hregkey As Long

Dim SubKey As String

Dim stringbuffer As String

SubKey = "SoftwareMicrosoftWindowsCurrentVersionRun"

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, "norton", 0, REG_SZ, _

ByVal stringbuffer, Len(stringbuffer))

RegCloseKey hregkey

End Sub

Private Sub Form_Load()

End Sub