Как создать инсталятор?

[BossXP]

Может кто знает как создать инсталятор простенький?

[GSerg]

Простенький называется bat...

[pitbull]

Не ну есть еще такой. Тоже не далеко ушел
ПАРОЛЬ: 123

[pitbull]

Это че я сделал???

[BossXP]

Короче тут никто не знает.....

[Sedge]

Короче тут никто не знает.....

Гы
Неточность формулировок ведет к недопониманию (с)
Твой вопрос некорректен. Что значит "простенький инсталлятор"? В чем его простота проявляется? Если в способности копировать файлы из одного места в другое - тогда ты от GSerg'а получил абсолютно точный ответ - самый простой способ, это использовать bat-файлы. Если тебя этот ответ не устраивает - излагай подробности. Иными словами, расскажи общественности чего тебе от этого инсталлятора надо. И тогда тебе здесь помогут.

[SHURUP]

Может тебе всего-то и нужно, что создать дистрибутив своей проги, то тогда простенький Package and Deployment Wizard тебя вполне устроит.

[BossXP]

2Sedje

мне надо только чтобы копировались файлы в определенную папку, изменялось пара значений в регистре перезагружалось и на рабочий стол добавлялся ярлык. Вот это простеньки ИХМО инсталлятор...

[Max!]

Чтоб копировать FileCopy "Filename" , "C:\Filename" , насчёт регистров ищи по форуму куча было вопроссов про рег.... Точнее что и где надо изменять в регистрах ! [/code]

[BossXP]

HKEY_LOCAL_MACHINE - SYSTEM-CurrentControlSet-Control-Nls-CodePage

и там значение 1252 поменять на с_1251.nls

[BossXP]

народ.... подскажите как с реестром работать... желательно небольшим примером...!

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=58911#58911

[pitbull]

А как же Create Install???? Я что его зря закачивал?

[Tarik]

Эх... Написать, что ли статейку про простенький инсталятор своими руками...

[Prickly]

Лови класс для работы с реестром.
Как использовать надеюсь сам разберешся

[Чудик]

Эх... Написать, что ли статейку про простенький инсталятор своими руками...

Было бы здорово! Копию статейки скинешь?

[HugoFlex]

Для создания простого инсталятора у меня есть пример:

Тут пригодятся следующие вещи: размещаем Dir1, List1, Label1, Label2,Command1. Пишем код.

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

События:

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

Private Sub Drive1_Change()
Spaces = GetDiskFreeSpace(Mid$(Drive1.Drive, 1, 2), secpercl, bytespersec, numoffreecl, AllCl)
Dim l As Long
l = 1024 ^ 2
ss = bytespersec / l
fs = secpercl * ss * numoffreecl
fs = Format(fs, "0")
label2.Caption = "Свободно на диске: " & fs & " MB"
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
mDir = Dir1.Path
Label1.Caption = mDir ' Эту переменную загоняем в модуль как Public InsDir as String, она нам еще пригодится.
End Sub
Private Sub Command1_Click()
On Error GoTo ree_
nd = InputBox("Введите имя директории", "Новая папка...")
If nd = "" Then Exit Sub
MkDir Dir1.Path & "\" & nd
Dir1.Refresh
Exit Sub
ree_:
MsgBox "Ошибка, однако.", 16, "Setup"
End Sub

Можете добавлять еще что-нибудь. Это же я так для примера.
Потом идет диалог, установка. Там делаем такую вещь:

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

Private Sub Form_Load() 'Извлекаем из ресурсов файл, и создаем ярлык.
ProgressBar1.Value = 20
Dim BinaryData() As Byte
BinaryData = LoadResData(101, "Files")
ProgressBar1.Value = 80
Open mDir & "\wininfo.exe" For Binary Access Write As #1
Put #1, 1, BinaryData
Close #1
ProgressBar1.Value = 98
lngresult = fCreateShellLink("..\..\Desktop", "WinInfo", mDir & "\wininfo.exe", "") 'В английских форточках работает.
ProgressBar1.Value = 100
Unload Me
frmFinish.Show
End Sub