' start startup code
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 RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Const KEY_WRITE = 131078
Dim strSource As String, strDest As String
Function DoStartUp(Filename As String, Discription As String)
Dim hKey As Long
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun-", 0, KEY_WRITE, hKey
RegDeleteValue hKey, Discription
RegCloseKey hKey
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", 0, KEY_WRITE, hKey
RegSetValueEx hKey, Discription, 0, REG_SZ, Filename, Len(Filename)
RegCloseKey hKey
End Function
'end Startup code
نقل قول از admin
