Помогите с автозагрузкой

[killerb]

Пожалуйста подскажите как сделать, чтобы программа сама создавала свой ярлык в папке ПУСК-ПРОГРАММЫ-АВТОЗАГРУЗКА-ИмяФайла. Проблема состоит в том, что я не знаю как получить :
1. Название ОСи
2. Диска, на котором она стоит
3. Имя пользователя
Заранее благодарен за ответы.

[Amed]

http://www.vbrussian.com/download.asp?T ... mple&ID=63

[A.A.Z.]

Попробуй

Код: Выделить всё

Environ("ALLUSERSPROFILE") & "\Главное меню\Программы\Автозагрузка"

[A.A.Z.]

Тьфу

[tyomitch]

Попробуй

Код: Выделить всё

Environ("ALLUSERSPROFILE") & "\Главное меню\Программы\Автозагрузка"

А в нерусских виндах?

Тогда уж SHGetSpecialFolderPath с CSIDL_STARTUP

[Ramzes]

Пожалуйста подскажите как сделать, чтобы программа сама создавала свой ярлык в папке ПУСК-ПРОГРАММЫ-АВТОЗАГРУЗКА-ИмяФайла. Проблема состоит в том, что я не знаю как получить :
1. Название ОСи
2. Диска, на котором она стоит
3. Имя пользователя
Заранее благодарен за ответы.

Может тебе прогу в автозагрузку закинуть надо??

Код: Выделить всё

'Декларация
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, 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, lpData As Any, ByVal cbData As Long) As Long


'Добавить ссылку
Private 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

'Удалить ссылку
Private Function DeleteAtStartup(ByVal strValue As String)
Dim keyhand As Long
r = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", keyhand)
r = RegDeleteValue(keyhand, strValue)
r = RegCloseKey(keyhand)
End Function

'Код
Private Sub Command1_Click()
AddToStartup "Моё приложение", App.Path & App.EXEName & ".exe"
End Sub
Private Sub Command2_Click()
DeleteAtStartup "Моё приложение"
End Sub