Как прогу поместить в авто старт???

[Мика]

Ну-у-у-у заголовком все зказанно
Заране спасибо!!!

[Urvin]

Если автостарт системный - рыщешь в статьях помещение ярлыка в "Автозагрузку" или копание в реестре.
Если сидюковый - рисуешь autorun.inf

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

[autorun]
open=myproga.exe

А смотря чего надо...

[Мика]

Да нет, мне нужно поместить мою прогу в автозапуск(Когда комп только загружается) при загрузки винда

[areh]

Для того чтобы добавить в автозагрузку для конкретного пользователя, то в HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run создай строковой параметр с именем твоей програмы, а в качестве значения путь к ней (полностью вместе с названием файла)


Для всех пользователей тоже самое только в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Это для ХР точно, но вроде и для других тоже самое


Удачи

[Mirus]

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

Option Explicit
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 Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
Private Sub Command1_Click()
Call WriteString(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Program", "c:\command.com")
End Sub
Private Sub WriteString(hKey As Long, strPath As String, strValue As String, strData As String)
Dim KeyHand As Long
Call RegCreateKey(hKey, strPath, KeyHand)
Call RegSetValueEx(KeyHand, strValue, 0, REG_SZ, ByVal strData, Len(strData))
Call RegCloseKey(KeyHand)
End Sub