اجرای برنامه هنگام شروع به کار ویندوز

[sonofsun]

سلام دوستان
چی کار کنم تا برنامم هر بار که کامپیوتر روشن میشه اجرا بشه.

[hessam2003]

سلام.
shortcut برنامتون رو درون startup ویندوز بذارید تا اجرا بشه.
موفق باشید.

[مهران چمنی]

سلام.
shortcut برنامتون رو درون startup ویندوز بذارید تا اجرا بشه.
موفق باشید.

ممنون
میشه آدرس پوشه استارت آپ اصلی برای کپی کردن فرم رو بدین ؟
آخه پیداش نمیکنم کجاست !

[VB.2000]

استارت آپ ینی اونجای کنار ساعت که مسنجرا معمولا اونجا هستن
کد هاشم توی تالار هست اگه جستجو کنید

[darknes666]

تو ویندوز xp:C:\Documents and Settings\All Users\Start Menu\Programs\Startup

تو 7:C:\Users\<user name>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup.

[sonofsun]

دوستان میشه نمونه ای از کد ها بذارین.

[AghaMohsen]

دوستان میشه نمونه ای از کد ها بذارین.


Imports System.IO
System.IO.File.Copy("C:\Control.exe", System.Environment.GetFolderPath(Environment.Speci alFolder.Startup & "\Control.exe"))

الن تو این کد اسم برنامه من Control هست و در درایو C قرار داره :لبخند:

[h_a_m_i_d]

بهتره از رجیستری استفاده بشه با یک جستجو ساده مسیرش هم پیدا میکنی این روش یکذره ساده و مبتدیانه است چون باز باید چند خط برنامه بنویسی که پوشه ای که ویندوز توش نصب شده کجاست و ...........
به نظرم رجیستری بزنی بهتره

[maxvel]

بلی h_a_m_i_d جان درست میفرمایند بهترین راه Path کردن در start up هستش

بفرمایید


Imports Microsoft.Win32
Imports System.IO
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rkApp As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
rkApp.SetValue("esme barname", Application.ExecutablePath)
End Sub

تشکر فراموش نشه

نمیدئنم چرا تو کد بین بعضی از کلمات فاصله میفته موقع پست دادن

Imports Microsoft.Win32
Imports System.IO
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rkApp As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
rkApp.SetValue("esme barname", Application.ExecutablePath)
End Sub