Описание: вопросы о том, как автоматизировать загрузку новых шрифтов и новой раскладки клавиатуры |
Поиск в теме | Версия для печати |
Леголегс ![Администратор Администратор](./templates/InvisionExBB/im/team.gif) |
Отправлено: 19 Декабря, 2005 - 11:38:23
|
![](./im/avatars/personal/140-avatar.gif)
JS-маньяк
![](./im/images/pips6.gif)
Покинул форум
Сообщений всего: 2109
Дата рег-ции: Июль 2004
Откуда: Липецк
Карма 17
![](./templates/InvisionExBB/im/spacer.gif)
|
Жанызак пишет: винХР файл kbdinall.dll должен быть в папке system32 Исправил.
Жанызак пишет:Какова функция файла "Choice.com"? Обычно команда choice используется для того, чтобы стребовать с пользователя ответ на вопрос типа "да/нет". В данном случае я применил её нестандартно для определения типа ОС.
Жанызак пишет:можно ли добавить строчку касательно вин98 - Можно, добавил.
Жанызак пишет:Спасибо за Ваш труд Всегда пожалуйста и спасибо вам за интересную задачку!
Жанызак пишет:чтобы Вы могли предложить эту работу башкирам, татарам и другим Ну если попросят, то конечно. Надеюсь, там найдутся такие-же люди, как вы ![Здорово Здорово](./im/emoticons/respect.gif)
Чуть не забыл: обновлённый архив лежит там-же, т.е. через одно сообщение выше. |
|
|
Жанызак |
Отправлено: 08 Февраля, 2006 - 19:30:15
|
Newbie
![](./im/images/pips1.gif)
Покинул форум
Сообщений всего: 34
Дата рег-ции: Сент. 2005
Карма 0
![](./templates/InvisionExBB/im/spacer.gif)
|
Уважаемый Леголес, здравствуйте.
Заработало!
Но вот какой момент:
Private Sub Command6_Click()
Shell ("inst_fnt.bat"![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
End Sub
Я убрал слеш, и Ваш файл заработал!
Я до сих пор находил в интернете примеры лишь со слешем:
Shell ("\inst_fnt.bat"![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
Я потерял почти полмесяца, к сожалению.
А надо было экспериментировать..
Теперь вопрос другого характера:
не бат-файлом, но через VB вот этим товарищем тоже можно, оказывается:
AddFontResource
У меня была тема по этому поводу, но куда его направили, не найду, а посему задам его здесь, если можно:
Я не ламер по программированию, а полное НИЧТО пока. Эта моя первая программа по установке шрифтов и клавиатуры, кончательный вариант которого я Вам вышлю как соавтору.
Но что касается
AddFontResource,
везде даются ответы академического характера, нет бы по примеру, по полочкам, что ли.
Пожалуйста, разъясните установку шрифта НЕ по бат'у, а по VB.
Мой вопрос, конечно, решен с Вашей помощью и с бат'ом.
Но хотелось бы знать, как это решается в VB программно.
---------------------------
Уважаемый Леголес, в качестве аванса на будущую работу -
с Вашей помощью хотелось бы создать кыргызско-русский словарь.
Матчасть у меня имеется, с Вас лишь указания программного порядка.
Опять же соавторство и права Вам обещаю.
Спасибо еще раз.
Спасибо этому форуму и спасибо за то, что некогда меня чуть не исключили.
Всем вам по валентинке!
С уважением
Жанызак.
. |
|
|
Леголегс ![Администратор Администратор](./templates/InvisionExBB/im/team.gif) |
Отправлено: 09 Февраля, 2006 - 06:37:27
|
![](./im/avatars/personal/140-avatar.gif)
JS-маньяк
![](./im/images/pips6.gif)
Покинул форум
Сообщений всего: 2109
Дата рег-ции: Июль 2004
Откуда: Липецк
Карма 17
![](./templates/InvisionExBB/im/spacer.gif)
|
Жанызак пишет:Я до сих пор находил в интернете примеры лишь со слешем: Слеш означает в данном случае, что путь будет отсчитываться от корневой папки диска. Т.е. если команда shell("\file.bat" будет выполнена в программе находящейся хоть в E:\abc\123\xyz\bla-bla\program.exe, то будет сделана попытка запустить E:\file.bat а не E:\abc\123\xyz\bla-bla\file.bat
Жанызак пишет:AddFontResource
Это отличная идея! Действительно, Windows API предоставляет программистам отличные инструменты и пользоваться ими можно и нужно!
Win32 Developer's References пишет:The AddFontResource function adds the font resource from the specified file to the Windows font table. The font can subsequently be used for text output by any Windows-based application.
CODE:int AddFontResource(
LPCTSTR lpszFilename // pointer to font-resource filename
);
Parameters
lpszFilename
Pointer to a null-terminated character string that contains a valid font file filename. The filename may specify either a .FON font resource file, a .FNT raw bitmap font file, a .TTF raw TrueType file, or a .FOT TrueType resource file.
Return Values
If the function succeeds, the return value specifies the number of fonts added.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Remarks
...почикано...
When an application no longer needs a font resource that it loaded by calling the AddFontResource function, it must remove the resource by calling the RemoveFontResource function.
Для использования в VB нужно добавить в код следующие объявления (второе нужно только если необходимо удалять шрифты). Обычно это делают в самом начале модуля.
CODE:Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long А далее всё просто.
CODE:AddFontResource "new_font.ttf" Для большого количества файлов можно сделать так:
CODE:Private Sub AddFonts()
Dim fname as String
fname = Dir$("*.ttf") 'Начинаем перебор всех ttf-файлов в папке
do while (len(fname)<>0) 'пока файлы не кончились
AddFontResource fname 'Регистрируем шрифт
fname = Dir$ 'берём следующий файл
loop
End Sub |
|
|
|
Поиск в теме | Версия для печати |
Страниц (6): « 1 2 [3] 4 5 6 » |
Сейчас эту тему просматривают: 2 (гостей: 2, зарегистрированных: 0, скрытых: 0) |
« Ваш компьютер » |
Все гости форума могут просматривать этот раздел. Только администраторы и модераторы могут создавать новые темы в этом разделе. Только администраторы и модераторы могут отвечать на сообщения в этом разделе.
|
![](./templates/InvisionExBB/im/russian/newpoll.gif) ![](./templates/InvisionExBB/im/russian/newthread.gif) |
|