| Вопрос: Автозагрузка | Добавлено: 16.03.07 20:24 |
Автор вопроса:  20vek
|
| Ответы | Всего ответов: 27 |
|
Номер ответа: 16 Автор ответа:  20vek Вопросов: 10 Ответов: 71 |
Профиль | | #16 | Добавлено: 16.03.07 21:56 |
|
Анотация к коду
'Используя приведенный ниже код, Вы можете создавать ярлыки где угодно,
'с любыми иконками и параметрами командной строки. 'Для того, чтобы создать ярлык, вызовите процедуру m_CreateShortcut 'с соответствующими параметрами. |
||
|
Номер ответа: 17 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #17 | Добавлено: 16.03.07 22:19 |
|
на те нормальную ф-цию создания ярлыка...
Enum ShortCutDest  eskTop
Programs StartMenu StartUp End Enum Public Function CreateLink(dest As ShortCutDest, ByVal sName As String, ByVal sPath As String, Optional sHotKey As String = "", Optional sIcon As String = "", Optional sWorkingDirectory As String = "", Optional sSubFolder As String = "", Optional WinStyle As Integer = vbNormalFocus) On Error Resume Next Dim WshShell As Object Dim oShellLink As Object Dim sLinkPath As String Set WshShell = CreateObject("WScript.Shell" 
Select Case dest Case DeskTop sLinkPath = WshShell.SpecialFolders(" esktop"
Case StartMenu sLinkPath = WshShell.SpecialFolders("StartMenu"
Case StartUp sLinkPath = WshShell.SpecialFolders("StartUp"
Case Programs sLinkPath = WshShell.SpecialFolders("Programs"
End Select On Error Resume Next If sSubFolder <> "" Then sLinkPath = sLinkPath & "\" & sSubFolder If Dir(sLinkPath) = "" Then MkDir sLinkPath End If On Error GoTo 0 Set oShellLink = WshShell.CreateShortCut(sLinkPath & "\" & sName & ".lnk"
oShellLink.WindowStyle = WinStyle oShellLink.HotKey = sHotKey oShellLink.TargetPath = sPath oShellLink.IconLocation = sIcon oShellLink.Description = sName oShellLink.WorkingDirectory = sWorkingDirectory oShellLink.Save Set oShellLink = Nothing Set WshShell = Nothing End Function |
||
|
Номер ответа: 18 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #18 | Добавлено: 16.03.07 22:25 |
|
Так тебе чисто как ярлык в Автозагрузку?
'****************начало модуля******************
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Public 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 Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Public 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(sFile) RegCloseKey lRegKey End If End Sub '****************конец модуля****************** Private Sub Command1_Click() AddToStartup "Моя Прогa", App.Path & "\" & App.EXEName & ".exe" End Sub |
||
|
Номер ответа: 19 Автор ответа: D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #19 | Добавлено: 16.03.07 22:27 |
|
Де ти урвав таке чудо длине. на сразу создасть в автозагрузку на робочий стол ...
Enum ShortCutDest
eskTop
Programs StartMenu StartUp End Enum Public Function CreateLink(dest As ShortCutDest, ByVal sName As String, ByVal sPath As String, Optional HotKey As String = "", Optional sIcon As String = "", Optional sWorkingDirectory As String = "", Optional sSubFolder As String = "", Optional WinStyle As Integer = vbNormalFocus) Dim WshShell As Object Dim oShellLink As Object Dim sLinkPath As String Set WshShell = CreateObject("WScript.Shell"
Select Case dest Case DeskTop sLinkPath = WshShell.SpecialFolders(" esktop"
Case StartMenu sLinkPath = WshShell.SpecialFolders("StartMenu"
Case StartUp sLinkPath = WshShell.SpecialFolders("StartUp"
Case Programs sLinkPath = WshShell.SpecialFolders("Programs"
End Select On Error Resume Next If sSubFolder <> "" Then sLinkPath = sLinkPath & "\" & sSubFolder If Dir(sLinkPath) = "" Then MkDir sLinkPath End If On Error GoTo 0 Set oShellLink = WshShell.CreateShortCut(sLinkPath & "\" & sName & ".lnk"
oShellLink.WindowStyle = WinStyle oShellLink.HotKey = sHotKey oShellLink.TargetPath = sPath oShellLink.IconLocation = sIcon oShellLink.Description = sName oShellLink.WorkingDirectory = sWorkingDirectory oShellLink.Save Set oShellLink = Nothing Set WshShell = Nothing End Function Private Sub Command1_Click() CreateLink DeskTop, "Calculator", "c:\windows\calc.exe", "CTRL+SHIFT+C", "calc.exe,0", "c:\windows" CreateLink StartMenu, "Calculator", "c:\windows\calc.exe", "CTRL+SHIFT+C", "calc.exe,0", "c:\windows" CreateLink StartUp, "Calculator", "c:\windows\calc.exe", "CTRL+SHIFT+C", "calc.exe,0", "c:\windows" CreateLink Programs, "Calculator", "c:\windows\calc.exe", "CTRL+SHIFT+C", "calc.exe,0", "c:\windows", "WinCalc" CreateLink Programs, "Calculator Help", "c:\windows\help\calc.hlp", "", "winhlp32.exe,0", "c:\windows\help", "WinCalc" CreateLink Programs, "Visit our web site", "http://vbcity.com", , "shdocvw.dll,0", , "WinCalc", vbMaximizedFocus End Sub Private Sub Form_Load() End Sub |
||
|
Номер ответа: 20 Автор ответа: 20vekВопросов: 10 Ответов: 71 |
Профиль | | #20 | Добавлено: 16.03.07 22:29 |
|
Спасибо всем за ликбез, по пункту вопроса №3.
Удачи в жизни! |
||
|
Номер ответа: 21 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #21 | Добавлено: 16.03.07 22:30 |
| arseny он нехочет в реестр записиватса | ||
|
Номер ответа: 22 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #22 | Добавлено: 16.03.07 22:31 |
| От какой щедрий 20vek вимучил што хотел | ||
|
Номер ответа: 23 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #23 | Добавлено: 16.03.07 22:31 |
|
arseny он нехочет в реестр записиватса
А у меня пишется. Права поди адинские нужны. |
||
|
Номер ответа: 24 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #24 | Добавлено: 16.03.07 22:38 |
|
Извините, я из старой проги выдирал, проглядел
константу. Надо в модуль добавить: Public Const HKEY_LOCAL_MACHINE = &H80000002
|
||
|
Номер ответа: 25 Автор ответа: 20vekВопросов: 10 Ответов: 71 |
Профиль | | #25 | Добавлено: 16.03.07 22:42 |
|
Еще раз спасибо. Не знаю кто отвечает за бвблиотеку кодов, но там по этому пункту голяк.
Обратите внимеание ведь каждый кто приходит к вам это вам плюс. |
||
|
Номер ответа: 26 Автор ответа: 20vekВопросов: 10 Ответов: 71 |
Профиль | | #26 | Добавлено: 16.03.07 23:34 |
|
Насчет вымучил, есть китайская поговорка;
Хуа хуя де Дао муди.
Что в переводе означает шаг за шагом к намеченной цели. |
||
|
Номер ответа: 27 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #27 | Добавлено: 19.03.07 00:20 |
|
Хуа хуя де Дао муди.
Вобще-то эбу ебу де дао муди что означает, шаг за шагом на пути к цели. Хотя,... так то же красиво звучит. |
||