visual basic visual basic visual basic  
  Ozon.ru vb
Visual Basic Visual Basic Visual Basic
main Новости статьи download магазин помощь
 
vb

меню

vb
Новости
Основы VB
          Хитрости VB
          Алгоритмы
DirectX & VB
Разные статьи
Download
Магазин
Ссылки
Помощь
 
Озон
     
Как cделать чтобы программа заг...

   Для того чтобы программа загружалась при каждом запуске Windows всего навсего надо прописать название программы в реестре по следующему пути HKEY_LOCAL_MACHINE\Software\Microsoft\windows\CurrentVersion\Run\. Далее следует как это сделать на Visual Basic.

    1. Создайте новый проект.
    2. Присоедините к проекту стандартный модуль RegKeys.bas, находящийся на диск, если же у вас нет диска или вы не нашли этот модуль скачать пример к данной хитрости.
    3. Добавьте в модуль:

       Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

        Public Sub Write_Reg()'функция прописывает нас в реестре
            Dim FullPathAndFileName As String
            FullPathAndFileName = App.Path
            If Right(App.Path, 1) <> "\" Then FullPathAndFileName = FullPathAndFileName & "\"
            FullPathAndFileName = FullPathAndFileName & App.EXEName
           
'Прописываем себя в реестр (FullPathAndFileName As String)
            UpdateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\windows\CurrentVersion\Run", App.Title, FullPathAndFileName
        End Sub

        Public Sub Del_Reg()'
функция удаляет нас из реестре
            Dim rc As Long
            Dim hKey As Long
            rc = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, hKey)
            RegDeleteValue hKey, App.Title
        End Sub


    4. И теперь чтобы программа запускалась при запуске Windows достаточно вызвать функцию Write_Reg.

Для непонятливых смотрите более подробный пример: Trick_4(Скачать)

     
   
 
Copyright © 2005 Visual Basic Programmes
Максим "Genius" Малыгин

  Яндекс цитирования Rambler's Top100  
Сайт создан в системе uCoz