چگونگي قرار دادن برنامه در startup ويندوز

چه جوري مي شه يك برنامه نوشت كه هربار كه ويندوز رو روشن مي كني خودش اجرا بشه؟

آسون ترين راه استفاده از كد زيره:

کد:

---

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
Dim name As String
Dim windir As String
windir = Space(256)
GetWindowsDirectory windir, Len(windir)
name = Left(windir, 1)
FileCopy App.Path & "\" & App.EXEName & ".exe", name & ":\Documents and Settings\All Users\Start Menu\Programs\Startup\shamsoft.exe"
End Sub

---

از طريق رجيستري هم ميشه ولي اين آسون تره :46:

اينم يه تابع كه بوسيله ريجستري اين كارو ميكنه

کد:

---


Public Sub StartUp()
 Dim AppPath As String
Dim strAppName As String
strAppName = App.EXEName
 AppPath = App.Path & "\" & App.EXEName & ".exe"
 Dim keyhwnd As Long
 Dim r As Long
  r = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", keyhwnd)
  r = RegSetValueEx(keyhwnd, strAppName, 0, REG_SZ, ByVal AppPath, Len(AppPath))
  r = RegCloseKey(keyhwnd)
End Sub

---

دوتا راه داری: 1-از کد های رجيستری برنامتو وارد رجيستری کنی که حتی ميتونی قبل از بالا آمدن ويندوز اگر ويروس نوشتی برنامتو اجرا کنی. 2- فايل اجرايی برنامتو بريزی در پوشه :
Start-All Program-Startup

از راهنمايي شما خيلي ممنونم