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

@Илюха)) · Регистрация: 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, учту

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

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

	При первом запуске программы автоматическая установка необходимых библиотек 05.06.2014, 17:01. Показов 3054. Ответов 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

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

Решение