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

[Decaz]

Как запихнуть файл, ну например ярлык one.lnk в автозагрузку Windows?

[RayShade]

Азбучный вопрос. Поиск по форуму. Это обсуждалось уже миллион раз. Ключевые слова- run, runonce.

[Александр80]

Можно так

Запись в реестр:

Private Sub Form_Load()
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\proga", "C:\Program Files\Myprogs\myprog.exe"
End Sub

Удаление из реестра:

Private Sub Command1_Click()
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\proga"
End Sub

[GM]

Отвечаю на вопрос как скопировать ярлык в автозагрузку, а не в реестр:

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

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 Type SHITEMID
    cb As Long
    abID As Byte
End Type
Private Type ITEMIDLIST
    mkid As SHITEMID
End Type
Const CSIDL_STARTUP = &H7
Private Function GetSpecialfolder(CSIDL As Long) As String
    Dim r As Long
    Dim IDL As ITEMIDLIST
    'Get the special folder
    r = SHGetSpecialFolderLocation(100, CSIDL, 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
        GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
        Exit Function
    End If
    GetSpecialfolder = ""
End Function
Sub AutoRun()
call FileCopy("one.lnk",getspecialfolder(CSIDL_STARTUP))
end sub


ЗЫ: Код не тестировал, возможно есть ошибки

[Decaz]

Во всяком случае, спасибо