Затеял свой инсталятор

@JoraVoenyjHaker · 29.10.2013, 14:50. **Показов** 17514. **Ответов** 181

Студворк — интернет-сервис помощи студентам

Главная его задача:
Создать один файл EXE
который одновременно будет и исполняемым файлом программы
и распаковщиком дополнительных библиотек если нужно
если произведен первый запуск добавление Uninstal в эту-же папку

Схема его работы примерно следующая:
1 указывается папка установки (по умолчанию Program files)
2 список найденных подключенных библиотек проекта
(сделать анализ на уровне проекта или группы не сложно)
3 текстовое поле лицензии

если есть конструктивные идеи или вопросы
Господа ! давайте будем рассматривыть их здесь

готов выложить исходники прямо сейчас !

Добавлено через 15 минут
...

@Крюгер · 29.10.2013, 14:53

JoraVoenyjHaker, вопрос действительно интересный, я раньше пробовал но ничего путевого не получилось к сожалению. Если у вас получится отпишите научите пжалсто

Добавлено через 1 минуту
и я вот думаю ведь всё что инсталятор распаковывает из себя, он же содержит в себе,, не так ли?

@JoraVoenyjHaker · 29.10.2013, 15:11 **[ТС]**

Да! он это содержит в ресурах проекта !

@The trick · 29.10.2013, 15:22

На чем писать собираешься?

@JoraVoenyjHaker · 29.10.2013, 15:27 **[ТС]**

на vb6 я зняю что это всё реально
только руки у некоторых ай-тишников не доходят сделать это....

@The trick · 29.10.2013, 15:35

Сообщение от JoraVoenyjHaker

на vb6 я зняю что это всё реально

Для работы VB6 нужен рантайм, если его не будет на машине, то и инсталлятор работать не будет

@JoraVoenyjHaker · 29.10.2013, 16:00 **[ТС]**

молодец The trick что предложиш, я знаю есть у тебя козыри в рукаве...

@JoraVoenyjHaker · 29.10.2013, 16:20 **[ТС]**

Давайте с рисунков начнем думать

@JoraVoenyjHaker · 29.10.2013, 16:37 **[ТС]**

можно сделать еще файл данных
тоесть любой файл, где бы было понятно зачем та или иная
инструкция была добавлена
.... чтоб деинстолятор понимал что удалять и отменять

Добавлено через 5 минут
Теперь вопрос !
как сделать быстрый алгоритм поиска
1 папки
2 файла
вот наработки:

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
DefLng F, H-I, L, N, U: DefDbl D, M: DefStr J, S: DefBool B: DefObj O: DefVar V
Option Explicit
Dim fso As New FileSystemObject
Dim shl As New Shell
 
Public Function FindFile$(Name$, Optional ByVal Rootf As Object)
 
    Dim o, o1, f&, s$
 
    If Rootf Is Nothing Then
        For Each o In fso.Drives
            If o.IsReady Then
                FindFile = FindFile(Name, shl.NameSpace(o.Path))
                Stop
            End If
        Next
        Stop
    Else
 
    Dim oi
    Set oi = Rootf.Items()
    oi.Filter 32, "*"
    s = oi.Count
        For Each o In oi
            DoEvents
            If o.IsFolder Then
                FindFile = FindFile(Name, shl.NameSpace(o.Path))
            Else
                FindFile = o.Name
            End If
            If StrComp(Name, o.Name) = 0 Then
                Stop 'Файл найден !
            Else: Debug.Print o.Name
            End If
        Next
    End If
End Function

@The trick · 29.10.2013, 16:53

Сообщение от JoraVoenyjHaker

молодец The trick что предложиш, я знаю есть у тебя козыри в рукаве...

Если нет рантайма, запуск программ на VB невозможен, значит писать на другом языке у которого нет привязки. Можно сделать через SFX установку рантайма, а потом запуск проги.

Добавлено через 55 секунд

Сообщение от JoraVoenyjHaker

как сделать быстрый алгоритм поиска

Через апи FindFirstFile, FindNextFile. Также через vb-шный Dir можно

@JoraVoenyjHaker · 29.10.2013, 17:16 **[ТС]**

Сообщение от The trick

vb-шный Dir

вы опять сажете что это оболочка...

теперь об API, что если к примеру у меня не отображаются
некоторые функции, первый такой глюк я заметил когда
искал одну из предложенных ваших функций, через текст WinApi.txt
и базу данных
потом когда я обновил базу скачав у SoftIse убедился что они есть ))

вы можете написать эту функцию в формате

FUNC ( Var1[ Принимающее... ]
вобщем... как это делаю я чтоб что-то обьяснить

@The trick · 29.10.2013, 17:19

Сообщение от JoraVoenyjHaker

вы опять сажете что это оболочка...

Да, но ее целесообразней использовать и удобнее, и по скорости практически не будет отличий, но она неправильно отображает имена файлов в которых юникодные символы. Другое дело если бы ты делал через CreateObject, тогда да скорость падает на создание объектов и т.п.

@JoraVoenyjHaker · 29.10.2013, 17:49 **[ТС]**

Понятно....
по возможности буду прямые посылки использовать...

Добавлено через 11 минут
Подчёркиваю, я очень жадный на расспостранение идей
но в этом случае я сделаю исключение, очень хочу сделать
удобный инсталятор, поэтому всё что будет высказанно мной здесь считайте
экслюзивом....

Добавлено через 7 минут
Меня Castail предостерегал о таком моменте:
если регистрация DLL не будет на правах админа то привет!
это я процетировал его слова....

Добавлено через 4 минуты
так вот я задам вопрос:
RegSrv.exe
UnRegServ.exe
это серверы регистрации мне их надо с собой таскать или они теперь будут всегда
в более поздних Windows

@The trick · 29.10.2013, 17:52

Сообщение от JoraVoenyjHaker

мне их надо с собой таскать

Я думаю не надо.

@JoraVoenyjHaker · 29.10.2013, 19:46 **[ТС]**

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

Visual Basic
1
2
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "explorer /e,/root,""C:\Program Files"""

Добавлено через 1 час 43 минуты
Куда проще сделать SFX опять-таки многое придёться писать вручную
я хочу сделать более удобную штуку...

Добавлено через 48 секунд
и пока не сделаю не успакоюсь

@NIOGSM · 29.10.2013, 20:52

Сообщение от Крюгер

и я вот думаю ведь всё что инсталятор распаковывает из себя

Прямой бан антивирусов.

@Крюгер · 29.10.2013, 21:03

NIOGSM, вообщето антивирь проверяет файлы по наличию сигнатур (то бишь "водяных знаков")
у вирей собсно их нету, хотя пишут для них всякие крипторы это 1, и 2. инсталятор - это 1 файл, который содержит программную часть и собсно наполнение, почему ж антивирь не лишает инсталку чего там можно лишить? правильно. там есть сигнатуры.

Добавлено через 1 минуту
и да, внутри файлы чем то еще и пожаты, потому как в инсталке вес программы существенно меньше чем установленые...

Добавлено через 48 секунд
это что-то типа winrar получается с автораспаковывающимся архивом

Добавлено через 23 секунды
и опять таки на винрар же никакой антивирь не ругается?

@JoraVoenyjHaker · 29.10.2013, 21:13 **[ТС]**

Ругается, оссобенно если запускать [не с диска C:\] к примеру
ну это пустяки я считаю, вопрос не стоит как бороться с антивирями
всегда можно вставить текст
....для начала установки отключите антивирус....

@chai_nick · 29.10.2013, 21:26

Актуально, тоже подумывал, но мне пока слабо, учимся. Буду за вас болеть

Äþêîâ Êîíñòàíòèí недавно выкладывал свой инсталлятор на VB. Не помню, тут ли или на каком другом форуме, но rar прилагаю. Сам еще не нашел время просмотреть.

Не по теме:

JoraVoenyjHaker, проздравляю, успехов и удач !
DimaCivilFucker. :)

@JoraVoenyjHaker · 29.10.2013, 21:37 **[ТС]**

Вот как можно доступ к ZIP- архиву получить
Работа с архивом
Вот как делать относительные пути:
Относительные пути
как это всё упаковать в ресурсный файл
я могу и показать и посоветовать...

предлогаю совместными усилиями сделать удобный
инсталятор не хуже InnoSetup для Delphy-аудитории

Добавлено через 4 минуты
The trick возможно поможет с API-технологиями....

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@JoraVoenyjHaker Заблокирован

	Затеял свой инсталятор 29.10.2013, 14:50. Показов 17514. Ответов 181 Метки generatorsetuplivevb, package vb, setup для vb, инсталятор vb (Все метки) Главная его задача: Создать один файл EXE который одновременно будет и исполняемым файлом программы и распаковщиком дополнительных библиотек если нужно если произведен первый запуск добавление Uninstal в эту-же папку Схема его работы примерно следующая: 1 указывается папка установки (по умолчанию Program files) 2 список найденных подключенных библиотек проекта (сделать анализ на уровне проекта или группы не сложно) 3 текстовое поле лицензии если есть конструктивные идеи или вопросы Господа ! давайте будем рассматривыть их здесь готов выложить исходники прямо сейчас ! Добавлено через 15 минут ... 0

@Крюгер 40 / 60 / 8 Регистрация: 16.11.2012 Сообщений: 460 Записей в блоге: 7
	29.10.2013, 14:53
	JoraVoenyjHaker, вопрос действительно интересный, я раньше пробовал но ничего путевого не получилось к сожалению. Если у вас получится отпишите научите пжалсто Добавлено через 1 минуту и я вот думаю ведь всё что инсталятор распаковывает из себя, он же содержит в себе,, не так ли? 0

@JoraVoenyjHaker Заблокирован
	29.10.2013, 15:11 [ТС]
	Да! он это содержит в ресурах проекта ! 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	29.10.2013, 15:22
	На чем писать собираешься? 0

@JoraVoenyjHaker Заблокирован
	29.10.2013, 15:27 [ТС]
	на vb6 я зняю что это всё реально только руки у некоторых ай-тишников не доходят сделать это.... 0

@JoraVoenyjHaker Заблокирован
	29.10.2013, 16:00 [ТС]
	молодец The trick что предложиш, я знаю есть у тебя козыри в рукаве... 0

@JoraVoenyjHaker Заблокирован
	29.10.2013, 16:20 [ТС]
	Давайте с рисунков начнем думать Миниатюры 0

@JoraVoenyjHaker Заблокирован
	29.10.2013, 17:49 [ТС]
	Понятно.... по возможности буду прямые посылки использовать... Добавлено через 11 минут Подчёркиваю, я очень жадный на расспостранение идей но в этом случае я сделаю исключение, очень хочу сделать удобный инсталятор, поэтому всё что будет высказанно мной здесь считайте экслюзивом.... Добавлено через 7 минут Меня Castail предостерегал о таком моменте: если регистрация DLL не будет на правах админа то привет! это я процетировал его слова.... Добавлено через 4 минуты так вот я задам вопрос: RegSrv.exe UnRegServ.exe это серверы регистрации мне их надо с собой таскать или они теперь будут всегда в более поздних Windows 0

@Крюгер 40 / 60 / 8 Регистрация: 16.11.2012 Сообщений: 460 Записей в блоге: 7
	29.10.2013, 21:03
	NIOGSM, вообщето антивирь проверяет файлы по наличию сигнатур (то бишь "водяных знаков") у вирей собсно их нету, хотя пишут для них всякие крипторы это 1, и 2. инсталятор - это 1 файл, который содержит программную часть и собсно наполнение, почему ж антивирь не лишает инсталку чего там можно лишить? правильно. там есть сигнатуры. Добавлено через 1 минуту и да, внутри файлы чем то еще и пожаты, потому как в инсталке вес программы существенно меньше чем установленые... Добавлено через 48 секунд это что-то типа winrar получается с автораспаковывающимся архивом Добавлено через 23 секунды и опять таки на винрар же никакой антивирь не ругается? 0

@JoraVoenyjHaker Заблокирован
	29.10.2013, 21:13 [ТС]
	Ругается, оссобенно если запускать [не с диска C:\] к примеру ну это пустяки я считаю, вопрос не стоит как бороться с антивирями всегда можно вставить текст ....для начала установки отключите антивирус.... 0

@JoraVoenyjHaker Заблокирован
	29.10.2013, 21:37 [ТС]
	Вот как можно доступ к ZIP- архиву получить Работа с архивом Вот как делать относительные пути: Относительные пути как это всё упаковать в ресурсный файл я могу и показать и посоветовать... предлогаю совместными усилиями сделать удобный инсталятор не хуже InnoSetup для Delphy-аудитории Добавлено через 4 минуты The trick возможно поможет с API-технологиями.... 0