Ярлык на свою прогу

[neic]

Как создать ярлык на своб прогу и поместить ярлык в авто загрузку?

[GSerg]

Есть в FAQ.

[neic]

GSerg ну тогде где FAQ? У меня нет MSDN

[TY]

ПРОСТО ЗАЙДИ В СВОЙСТВА И СОЗДАЙ ЯРЛЫК

[Шурик]

ПРОСТО ЗАЙДИ В СВОЙСТВА И СОЗДАЙ ЯРЛЫК

иш какоуй шустрый ему программно нужно...

не совсем то, что нужно, но эффект тот же:
http://vbnet.ru/faq/showtopic.asp?id=355

[Шурик]

Есть в FAQ.

ради интереса поискал, не нашел

[Igor_123]

Ребята, Вы чего?

А гугль уже не работает???

http://www.codenet.ru/progr/other/wsh.php

[Шурик]

а ты чего раскричался?? это к афтару, это у него не рабоатет, а мне искать ему не очень хоца...

[GSerg]

GSerg ну тогде где FAQ?

http://bbs.vbstreets.ru/viewforum.php?f=24

ради интереса поискал, не нашел

http://bbs.vbstreets.ru/viewtopic.php?t=12156

[Дмитрий_pro]

Как создать ярлык на своб прогу и поместить ярлык в авто загрузку?

Для автозапуска воспользуйся реесторм:

Private Sub Command1_Click()
Set ws = CreateObject("WScript.Shell")
ws.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Prog", "c:\prog.exe"
End Sub

[Igor_123]

А я не кричал, я - баянил

[Kovu]

А как создать просто ярлык не используя VB5STKIT ?

[Igor_123]

Kovu
Прочти ещё раз:
http://www.codenet.ru/progr/other/wsh.php
и вот это:

Private Sub Command1_Click()
Set ws = CreateObject("WScript.Shell")
ws.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Prog", "c:\prog.exe"
End Sub

Ничего не наводит на размышление?

[Шурик]

GSerg ну тогде где FAQ?

http://bbs.vbstreets.ru/viewforum.php?f=24

ради интереса поискал, не нашел

http://bbs.vbstreets.ru/viewtopic.php?t=12156

а я думал FAQ который на сайте выложен из трех частей...

[neic]

Всё ответ на вопрос дан! Все спасибо!

[tyomitch]

и вот это:

Private Sub Command1_Click()
Set ws = CreateObject("WScript.Shell")
ws.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Prog", "c:\prog.exe"
End Sub

Ничего не наводит на размышление?

"вот это" никакого отношения к ярлыкам не имеет.

[Шурик]

имеет, потому что в автозагрузку...
тем более это куда лучше, чем ярлык в автозагрузке

[tyomitch]

И чем это, интересно, лучше?

[GSerg]

Видать тем, что типа не видно.

MSConfig всех найдёт...

[Igor_123]

"вот это" никакого отношения к ярлыкам не имеет.

Согласен

[Шурик]

Видать тем, что типа не видно.

MSConfig всех найдёт...

какой-нить бухгалтер может это ярлык похереть случайно, а вот в msconfig не каждый залезет

[tyomitch]

какой-нить бухалтер может диск себе отформатировать случайно, ты его от этого тоже страховать будешь?

[-=TsA=-]

Как создать ярлык на своб прогу и поместить ярлык в авто загрузку?

Для автозапуска воспользуйся реесторм:

Private Sub Command1_Click()
Set ws = CreateObject("WScript.Shell")
ws.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Prog", "c:\prog.exe"
End Sub

Раз уж добрались до WScript почему бы не попробовать так?

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


Private Function CreateLink(ByVal LinkFullName As String, ByVal LinkTargetPath As String, _
    Optional ByVal LinkArguments As String = "", Optional ByVal LinkWorkingDirectory As String = "", _
    Optional ByVal LinkIconLocation As String = ",0", Optional ByVal LinkHotkey As String = "", _
    Optional ByVal LinkWindowStyle As Long = WshNormalFocus, Optional ByVal LinkDescription As String = "")
    Dim oShellLink As Object
    'Создание Объекта WshShortcut
    Set oShellLink = WshShell.CreateShortcut(LinkFullName)
    With oShellLink
        'Передаем аргументы командной строки
        .Arguments = LinkArguments
        'Устанавливаем
        .Description = LinkDescription
        'Устанавливаем клавиши быстрого вызова
        .Hotkey = LinkHotkey
        'Устанавливаем значек
        .IconLocation = LinkIconLocation
        'Устанавливаем путь к файлу
        .TargetPath = LinkTargetPath
        'Устанавливаем стиль запуска
        .WindowStyle = LinkWindowStyle
        'Устанавливаем рабочий каталог
        .WorkingDirectory = LinkWorkingDirectory
    End With
    'Сохраняем ярлык
    oShellLink.Save
    'Освобождаем объект WshShortcut
    Set oShellLink = Nothing
End Function