InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSat, 10 Jan 2009 07:31:03 GMT20http://www.relib.com/forums/Topic267-1-1.aspxПриходите еще! :)Sat, 08 Apr 2000 08:04:00 GMTlexahttp://www.relib.com/forums/Topic267-1-1.aspx2Lexa - Огромное спасибо, работает!Fri, 07 Apr 2000 11:46:00 GMTclerichttp://www.relib.com/forums/Topic267-1-1.aspxИзвини, чуть сбилось. Проверь - должно работать.Fri, 07 Apr 2000 10:32:00 GMTlexahttp://www.relib.com/forums/Topic267-1-1.aspxPrivate 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 LongPrivate Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPrivate Const HKEY_LOCAL_MACHINE = &H80000002Private Sub AddToStartup(ByVal sDesc As String, ByVal sFile As String) Dim lRegKey As Long RegOpenKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", lRegKey If lRegKey Then RegSetValueEx lRegKey, sDesc, 0, 1, ByVal sFile, Len(sApp)RegCloseKey lRegKey End IfEnd SubUsage: AddToStartup "My App Description", "C:\MyApp\MyApp.exe"Fri, 07 Apr 2000 10:30:00 GMTlexahttp://www.relib.com/forums/Topic267-1-1.aspxхочу чтоб программа прописала ссылку на себя в автозагрузку в разных операционках win98 winnt win2k я подозреваю что есть возможно API функция типа определение каталога винды, подскажите наверняка кто то сталкивался с необходимостью автозагрузки.Fri, 07 Apr 2000 09:26:00 GMTcleric