Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: реестр Добавлено: 09.01.10 20:12  

Автор вопроса:  ηikolaŠ~rus | ICQ: 604058327 

Ответить

  Ответы Всего ответов: 17  

Номер ответа: 16
Автор ответа:
 Саня



ICQ: 553816426 

Вопросов: 10
Ответов: 99
  Профиль | | #16 Добавлено: 11.01.10 01:56
Вот Код "Ничего лишнего":
  1. 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
  2. Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
  3. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  4. Private Sub Command1_Click()
  5. AvtoStart "Имя программы", "Путь к исполняемому файлу"
  6. End Sub
  7. Sub AvtoStart(NameProg As String, Adres As String)
  8. Dim lRetVal As Long
  9. Dim hKey As Long
  10. lRetVal = RegOpenKeyEx(&H80000002, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", 0, &H3F, hKey)
  11. lRetVal = RegSetValueExString(hKey, NameProg, 0&, 1, Adres, Len(Adres))
  12. RegCloseKey (hKey)
  13. End Sub

разместить на форме кнопку вставить этот код и всё, никаких модулей.

Ответить

Номер ответа: 17
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #17 Добавлено: 11.01.10 10:45
 
nikolas-rus, я не поленившись нашел пример, который, ты привел в самом начале.
Сначала надо было прочитать это http://vbbook.ru/book/75/
А потом уже это http://vbbook.ru/book/76/

Я это все прочитал сделал и нифига не пашет(как и половина кодов из этой книги), а код который дал Саня пашет даже очень хорошо пашет
Саня спасибо!

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам