[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بارك الله فيك و لك أخي الفاضل " عبد الله الصّافي "

في الواقع لم أجرّب هذا النّوع من الأكواد .. و هذا كود إضافي تكملة للسّابق إن لم يفد فأرجو المعذرة

بالموديل :

كود :

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 RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal HKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal HKey As Long) As Long
Private Declare Function CopyFile Lib "Kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Function Start()
Dim HKey As Long, DataSize As Long
Dim Data As String
If RegOpenKeyEx(&H80000001, "Software\Microsoft\Windows\CurrentVersion\Explorer\****************l Folders", 0, &H1, HKey) = 0 Then
Data = String(256, Chr(0))
DataSize = 255
If RegQueryValueEx(HKey, "Startup", 0, 0, ByVal Data, DataSize) = 0 Then
Data = Left$(Data, DataSize - 1)
CopyFile App.Path & "\" & App.EXEName & ".exe", Data & "\" & App.EXEName & ".exe", 0
End If
End If
RegCloseKey HKey
End Function

للإستدعاء من خلال الفورم :

كود :

Private Sub Form_Load()
Call Start
End Sub

إحتراماتي