VBNet - Форум - Скопировать прогу

Вопрос: Скопировать прогу Добавлено: 04.02.03 19:24

Автор вопроса: Silent Bob | Web-сайт: podelyakin.narod.ru

Как мне при первом запуске на каком либо компе скопировать свою прогу в какую-либо папку и оттуда её запустить? Ответте пожалуйста.

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Zeus

ICQ: 161801353

Вопросов: 63
Ответов: 220

Web-сайт: apirussia.by.ru
Профиль | | #1

Добавлено: 04.02.03 19:36

А что именно ты не можешь?! Всё элементарно.! Поясни подробнее проблему.

Ответить

Номер ответа: 2
Автор ответа:

Silent Bob

Вопросов: 36
Ответов: 65

Web-сайт: podelyakin.narod.ru
Профиль | | #2

Добавлено: 04.02.03 23:20

Суть в том что для меня это не очевидно. Прога добавляется в автозапуск. Я хочу чтобы она сама себя переписывала куда-нибудь(только при первом запуске на данном компе)и запускалась оттуда.

Ответить

Номер ответа: 3
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #3

Добавлено: 05.02.03 01:47

Привожу кусок кода:

'допустим тебе надо сделать так, что-бы про-га копировалась 'в windows и оттуда запускалась

Private Sub Form_Load()
Dim mypatch As String
mypatch = Environ("windir") 'поиск каталога windows
If App.Path = mypatch Then 'запуск проги. Т.е. она уже скопирована туда, куда тебе надо

'твой код

ElseIf App.Path <> mypatch Then 'про-га не там где надо, копируем...

FileCopy App.Path + "\proga.exe", mypatch + "\proga.exe"

'запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\proga", mypatch & "\proga.exe"
'запускаем
Shell mypatch & "\proga.exe"

'пишем батник для убиения 1_ой копии про-ги

Open App.Path + "\111.bat" For Append As #1
    Print #1, "@echo off"
    Print #1, ":try"
    Print #1, "del " + App.EXEName + ".exe"
    Print #1, "if exist " + App.EXEName + ".exe goto try"
    Print #1, "del 111.bat"
    Close
    'запущаем батник (он сам себя удалит)
    Shell App.Path + "\111.bat", vbHide
    End

End if

End Sub

Удачи!

Ответить

Страница: 1 |