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

@Илюха)) · Регистрация: 04.12.2010

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

Подскажите. Как можно реализовать на VB автоматическую установку библиотек которые используются в проекте , непосредственно при первом запуске программы (программа без установки setup, просто exe'шный файл).
Либо может отдельное приложение которое зарегистрирует в системе библиотеки. А то через командную строку и regsvr32 это все долго) Подскажите вариант и возможное решение данной проблемы пожалуйста)

@Илюха)) · 06.06.2014, 22:23 **[ТС]**

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

@The trick · 06.06.2014, 22:33

Сообщение от Илюха))

Нашел код, вроде как бы рабочий , но у меня шрифт в форме все равно не меняется

Ну ты знаешь чем отличается имя шрифта от имени файла шрифта? Нужно писать так

Visual Basic
1
Me.Font.Name = "a_Albionic"

Сообщение от Илюха))

Или может только при работе программы этот шрифт как то подгружался.

Для этого я тебе написал

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

AddFontResourceEx

@Илюха)) · 06.06.2014, 22:46 **[ТС]**

Все, отлично The trick, спасибо)

Выкладываю правильный вариант если кому пригодится

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Function AddFontResourceEx Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResourceEx Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Dim AppPath As String
 
Private Sub Form_Load()
     AppPath = App.Path
    If Right$(AppPath, 1) <> "\" Then AppPath = AppPath + "\"
    AddFontResourceEx AppPath + "ALBI.ttf"
    Me.AutoRedraw = True
    Me.Font.Name = "a_Albionic"
    Me.Print "бла бла бла"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    RemoveFontResourceEx AppPath + "ALBI.ttf"
End Sub

@Антихакер32 · 06.06.2014, 23:04

Сообщение от Илюха))

AddFontResourceEx AppPath + "ALBI.ttf"

лучше напиши так, если хочеш чтоб было еще правильнее:
... AppPath & "ALBI.ttf

Не по теме:

Сообщение от Илюха))

если кому пригодится

..меня Castail както тоже поправил, надо писать пригодитЬся :)

ну вообщето
смотря какое предложение наприер он мне пригодится, а другое мне это может пригодиться

@Илюха)) · 07.06.2014, 00:27 **[ТС]**

Антихакер32, учту

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Илюха)) 1 / 1 / 1 Регистрация: 04.12.2010 Сообщений: 56

	При первом запуске программы автоматическая установка необходимых библиотек 05.06.2014, 17:01. Показов 3404. Ответов 24 Метки нет (Все метки) Подскажите. Как можно реализовать на VB автоматическую установку библиотек которые используются в проекте , непосредственно при первом запуске программы (программа без установки setup, просто exe'шный файл). Либо может отдельное приложение которое зарегистрирует в системе библиотеки. А то через командную строку и regsvr32 это все долго) Подскажите вариант и возможное решение данной проблемы пожалуйста) 0

@Илюха)) 1 / 1 / 1 Регистрация: 04.12.2010 Сообщений: 56
	06.06.2014, 22:23 [ТС]
	блин, не то значит , я то думал как то можно без этого обойтись , просто допустим на другом компе где этого шрифта нету я запускаю свою прогу , в которой используется этот шрифт. И сделать так что бы , при первом запуске программы или так же отдельным приложением установить (зарегать) соответствующие шрифты в эту систему. Или может только при работе программы этот шрифт как то подгружался. Хотелось бы обойтись без перекидывания этого фала самому в папку шрифты. 0

@Илюха)) 1 / 1 / 1 Регистрация: 04.12.2010 Сообщений: 56
	07.06.2014, 00:27 [ТС]
	Антихакер32, учту 0

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

Решение