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

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

أخي الكريم لم أجرّب هذا الكود لذلك لست متأكدا منه ..

إحتراماتي

كود :

Public Function Start()
Dim HKey As Long, DataSize As Long
Dim Data As String
If RegOpenKeyEx(&H80000001, "Software\Microsoft\Windows\CurrentVersion\Explorer\shelll 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