خوب این که کد قرار دادن برنامه در استارت آپ
این تابع رو هر جا که فراخوانی کنی برنامه در استارت آپ قرار میگیره !
اینا رو تو یه ماژول کپی کن
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public 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 ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Const REG_SZ = 1 ' Unicode nul terminated String
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Sub StartUp()
Dim AppPath 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
برای کپی کردن برنامه در دایرکتوری مورد نظر به کمک این دستور ها میتونی این کارو انجام بدی
App.Path
App.EXEName
FileCopy
Replace
به این صورت که اول مسیری که برنامه از اون جا اجرا میشه رو پیدا میکنی بعد اسم برنامه با پسوند exe. رو به آخرش اضافه میکنی بعد اگه یه وقت تو مسیر دو علامت "\" پشت سر هم افتاد یعنی این "\\" با Replace پیداش میکنی و با "\" جاگزینش میکنی بعد با FileCopy کپیش کن هر جا که خواستی !
کسی میدونه چطور تو ویژوال میشه تو رجستری دستکاری کرد؟؟؟؟؟
پاسخ با نقل قول
