Автозагрузка

[юрка]

Здравствуйте
Подскажите как лучше прогу в автозагрузку занести. Операционная система ХР
С уважением,
Юрка

[badDRAGON]

Автозагрузка вашей программы со стартом Windows
А также удаление программы из автозагрузки.
Еще один полезный совет, как можно загружать вашу программу вместе с загрузкой Windows. Все просто: вы должны указать "Имя твоей проги" и "Путь к твоей проге", то есть имя вашей программы для загрузки, а также ПОЛНЫЙ путь к ней на жестком диске, если она не лежит в директории Windows.

Пример гораздо проще для использования, чем возможность работы с реестром через API_функции. >>>

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

Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги", "Путь к твоей проге"
End Sub

Private Sub Command2_Click() 'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги"
End Sub

[badDRAGON]

а вообще,вот на будущее,если там не найдешь,то только тогда пиши:
http://vbnet.ru/faq/showall.asp

[юрка]

Спасибо. Сейчас пойду пробовать.

[юрка]

Здраствуйте. Я попробовал. Но если поменять директорию то она же не будет работать. А как сделать так чтоб не зависимо куда её запихать, переместить она всёравно бы работала.

[neic]

FileCopy App.Path & "\<название твоей проги>.exe", "C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка\<название твоей проги>.exe"

P.S. Всё написано одной строчкой!

[badDRAGON]

FileCopy App.Path & "\<название твоей проги>.exe", "C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка\<название твоей проги>.exe"

P.S. Всё написано одной строчкой!

все так,но... если это 95 винда,и англоязычная,и при том,что сам экзешник копировать не надо....

[badDRAGON]

Здраствуйте. Я попробовал. Но если поменять директорию то она же не будет работать. А как сделать так чтоб не зависимо куда её запихать, переместить она всёравно бы работала.

вот:

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

Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" & App.EXEName & ".exe",app.path & ""
End Sub

Private Sub Command2_Click() 'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" & App.EXEName & ".exe"
End Sub


вот...

[kirrun]

Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" & App.EXEName & ".exe",app.path & ""

Ага... ну запишет он тебе в реестр путь к папке с программой. А дальше что? [/quote]

[badDRAGON]

Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" & App.EXEName & ".exe",app.path & ""

Ага... ну запишет он тебе в реестр путь к папке с программой. А дальше что?

[/quote]

ничего...а что еще что-то надо?

[kirrun]

Надо чтобы было имя екзешника

Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe", app.path & "\" & app.EXEName & ".exe"

[badDRAGON]

кстати,он запишет полное имя проги еще

[kirrun]

он это кто?
и запишет куда?
от того, что он в имя параметра напишет имя проги толку не будет =) Записывать-то надо в путь =)

[badDRAGON]

а это что?:
(выделенно стрелками "=>" "<=" )

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

Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & =>App.EXEName & ".exe" <= ,app.path & "\"
End Sub

больше ничего не надо,все работает....

[badDRAGON]

вот 100% правильный оригинал...

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

Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги", "Путь к твоей проге"
End Sub

[kirrun]

Это тебе кажется.

1) Имя - это имя, путь - это путь. не путать
2) туда, хде стрелками выделено пихать можно (вообще-то и нужно) все, что угодно.
3)Дописывать в путь название приложения из имени параметра (если такового нету в самом пути) умеют винды тока начиная с 2к

[badDRAGON]

незнаю...у меня с 98 все работает...но спасибо,коли так....

[kirrun]

хм... или наоборот до 2к... Короче, вывод: в имени параметра пишем что угодно, а в пути полный путь включае ехе

[GM]

а это что?:
(выделенно стрелками "=>" "<=" )

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

Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" & =>App.EXEName & ".exe" <= ,app.path & ""
End Sub

больше ничего не надо,все работает....

А вот и неправильно, app.path & "" , а если app.path = "C:", то что получается "C:" ?
А папку автозагрузки можна узнать вот так:

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

Const CSIDL_STARTUP = &H7
Const MAX_PATH = 260
Private Type SHITEMID
    cb As Long
    abID As Byte
End Type
Private Type ITEMIDLIST
    mkid As SHITEMID
End Type
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Function GetStartUpFolder() As String
    Dim r As Long
    Dim IDL As ITEMIDLIST
    'Get the special folder
    r = SHGetSpecialFolderLocation(100, &H7, IDL)
    If r = NOERROR Then
        'Create a buffer
        Path$ = Space$(512)
        'Get the path from the IDList
        r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
        'Remove the unnecessary chr$(0)'s
        GetStartupfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
        Exit Function
    End If
    GetStartupfolder = ""
End Function