Как сделать так, чтобы программа создавла свои копии

[HugoFlex]

Ответье пожалуйста на такой вопрос. Вот я делаю программу чтобы блокировала все окна WINDOWS (хочу сделать своему другу прикол ), как мне сделать так чтобы эта программа создавала свои копии в определенном месте, так же я хочу к этой копии создать ярлык в автозагрузке через реестер

[GM]

Вот так:

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

Dim src As String
Dim dest As String
If App.Path <> Environ("windir") Then
src = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & App.EXEName & ".exe"
dest = Environ("windir") & "\" & App.EXEName & ".exe"
FileCopy src, dest
'FileCopy src, "определенное место"
Call fCreateShellLink("Startup" & vbNullChar, "Program", dest, vbNullString & vbNullChar, True, "$(Programs)")
End If


[Oxygen]

А вообще, для создания ключа в реестре есть такая функция UpdateKey.

[HugoFlex]

Мне не нравится как ведет себя fCreatShellLink, он создает ярлык но когда программу заново запускаю он удаляется.
Я его обьявлял в API так:

Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Вызвал я его следующим образом:

Ret=fCreateShellLink("..\..\Главное меню\Программы\Автозагрузка", App.EXEName, dest, "")

Так что вызвать процедуру как описал GM:

fCreateShellLink("Startup" & vbNullChar, "Program", dest, vbNullString

я не стал (не знаю как он обьявил).


А как UpdateKey в коде реализовать

[HugoFlex]

Ответьте пожалуйста, почему fCreatShellLink иногда сробатывает, а иногда нет.
Или нет ли другой способ создания ярлыка?

[GSerg]

http://www.vbstreets.ru/VB/Articles/65974.aspx

[HugoFlex]

Я что то не понял. Зачем мне эта ссылка там говорится совсем о другом ShellLink. А мне надо именно тот, который работает c иконками.

[Sedge]

Автозагрузку можно сделать проще. Создаешь из кода файл с именем, допустим, autorun.reg, содержащий (для XP/2000):

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

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"MyProg"="C:\Winnt\myprog.exe"


Потом в коде скармливаешь ShellExecute строку

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

regedit /s autorun.reg

Ключ /s - для того, чтобы не выводился запрос на подтверждение импорта данных в реестр.

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
  lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


[HugoFlex]

Я уже нашел ответ к своему вопросу.

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

If App.Path <> Environ("windir") Then

        src = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & App.EXEName & ".exe"
        dest = Environ("windir") & "\" & App.EXEName & ".exe"
        FileCopy src, dest
 
        Set Reg = CreateObject("WScript.Shell")
        Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Project1", Environ("windir") & "\" & dest
  End If

И не надо никаких autorun.reg, либо UpdateKey. Все быстро и просто