|
|
|
новичок
участник
Last Login: 07.03.2000 3:35
Сообщ.: 5,
Visits: 56
|
|
| хочу чтоб программа прописала ссылку на себя в автозагрузку в разных операционках win98 winnt win2k я подозреваю что есть возможно API функция типа определение каталога винды, подскажите наверняка кто то сталкивался с необходимостью автозагрузки.
|
|
|
|
|
Forum Guru
участник
Last Login: 25.02.2000 8:07
Сообщ.: 59,
Visits: 661
|
|
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, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002Private Sub AddToStartup(ByVal sDesc As String, ByVal sFile As String)
Dim lRegKey As Long
RegOpenKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", lRegKey
If lRegKey Then
RegSetValueEx lRegKey, sDesc, 0, 1, ByVal sFile, Len(sApp)
RegCloseKey lRegKey
End If
End Sub
Usage: AddToStartup "My App Description", "C:\MyApp\MyApp.exe"
|
|
|
|
|
Forum Guru
участник
Last Login: 25.02.2000 8:07
Сообщ.: 59,
Visits: 661
|
|
| Извини, чуть сбилось. Проверь - должно работать.
|
|
|
|
|
новичок
участник
Last Login: 07.03.2000 3:35
Сообщ.: 5,
Visits: 56
|
|
| 2Lexa - Огромное спасибо, работает!
|
|
|
|
|
Forum Guru
участник
Last Login: 25.02.2000 8:07
Сообщ.: 59,
Visits: 661
|
|
|
|
|