Уважаемый Леголес, здравствуйте.
вот тут написано:
COPY kbdinall.dll %windir%\system\kbdinall.dll /y
В винХР файл kbdinall.dll должен быть в папке system32 - следует ли изменить данный текст?
2.
Какова функция файла "Choice.com"?
Это так - чтобы знать повехностно, хотябы.
И третий вопрос:
можно ли добавить строчку касательно вин98 -
там действет для раскладки файл kbdinall.kbd, и этот файл в вин98 должен находиться в папке system ..
Спасибо за Ваш труд заранее. Окончательный вариант я вышлю Вам с тем, чтобы Вы могли предложить эту работу башкирам, татарам и другим товарищам в составе России и в лоне кириллицы.
У себя же на родине я включу Вашу фамилию в качестве соавтора по данному делу, если не возражаете.
Ибо я евангелист и мне не подобает умалчивать работу автора.
Заранее благодарен Вам.
21. Жанызак - 18 Декабря, 2005 - 17:43:06 - перейти к сообщению
22. Леголегс - 19 Декабря, 2005 - 11:38:23 - перейти к сообщению
Жанызак пишет:
Исправил. винХР файл kbdinall.dll должен быть в папке system32
Жанызак пишет:
Обычно команда choice используется для того, чтобы стребовать с пользователя ответ на вопрос типа "да/нет". В данном случае я применил её нестандартно для определения типа ОС.Какова функция файла "Choice.com"?
Жанызак пишет:
Можно, добавил.можно ли добавить строчку касательно вин98 -
Жанызак пишет:
Всегда пожалуйста и спасибо вам за интересную задачку!Спасибо за Ваш труд
Жанызак пишет:
Ну если попросят, то конечно. Надеюсь, там найдутся такие-же люди, как вы чтобы Вы могли предложить эту работу башкирам, татарам и другим
Чуть не забыл: обновлённый архив лежит там-же, т.е. через одно сообщение выше.
23. Жанызак - 19 Декабря, 2005 - 15:57:34 - перейти к сообщению
Спасибо, получил.
Можно вопрос:
про bat_файлов где можно прочитать?
То есть, операционку как определить, и проч.
Можно вопрос:
про bat_файлов где можно прочитать?
То есть, операционку как определить, и проч.
24. Леголегс - 20 Декабря, 2005 - 12:19:07 - перейти к сообщению
Жанызак пишет:
А фиг его знает... Я уже давно по крупицам информацию собираю. Что-то почерпнул на antichat.ru
про bat_файлов где можно прочитать?
25. Greshnik - 21 Января, 2006 - 19:15:37 - перейти к сообщению
Народ короче у меня вот какая проблема.
Установил я прогу Adobe Type Manager Deluxe в месте с ней встала какаето другая помню только было слово СКРИПТ.
Кароче вот в чем вопрос я в какой то из них нахемичел и удалил эти проги теперь у меня не меняються руские шрифты (могу писать только одним стандартным)
С английскими все впорядке.
Посоветуйте мне что нит мож из рестра что удалить надо.
Установил я прогу Adobe Type Manager Deluxe в месте с ней встала какаето другая помню только было слово СКРИПТ.
Кароче вот в чем вопрос я в какой то из них нахемичел и удалил эти проги теперь у меня не меняються руские шрифты (могу писать только одним стандартным)
С английскими все впорядке.
Посоветуйте мне что нит мож из рестра что удалить надо.
26. Жанызак - 08 Февраля, 2006 - 05:16:38 - перейти к сообщению
Уважаемый Леголес, здравствуйте.
Опять вопрос:
я почти подготовил программу, но осталось маленькое "но":
как можно программно запустить bat-файл, что Вы написали ранее?
Я работаю в VB.
Вот так написал:
shell ("\адрес файла"
но программа лишь слегка шевелится, но не выполняет то, что прописано в файле..
При нажатии на сам файл все выполняется.
Вопрос:
как можно все это задействовать программно?
Заранее спасибо за ответ.
С уважением
Жанызак.
Тут я хотел отправить Вам проделанную работу, но размер не тот оказался - слишком тяжелый (около 1 мгб)
Опять вопрос:
я почти подготовил программу, но осталось маленькое "но":
как можно программно запустить bat-файл, что Вы написали ранее?
Я работаю в VB.
Вот так написал:
shell ("\адрес файла"
но программа лишь слегка шевелится, но не выполняет то, что прописано в файле..
При нажатии на сам файл все выполняется.
Вопрос:
как можно все это задействовать программно?
Заранее спасибо за ответ.
С уважением
Жанызак.
Тут я хотел отправить Вам проделанную работу, но размер не тот оказался - слишком тяжелый (около 1 мгб)
27. Леголегс - 08 Февраля, 2006 - 16:09:31 - перейти к сообщению
Жанызак
CODE:
не работает? Странно. У меня всё нормально. Попробуйте shell ("\file.bat")
CODE:
shell ("start \file.bat")
28. Жанызак - 08 Февраля, 2006 - 19:30:15 - перейти к сообщению
Уважаемый Леголес, здравствуйте.
Заработало!
Но вот какой момент:
Private Sub Command6_Click()
Shell ("inst_fnt.bat"
End Sub
Я убрал слеш, и Ваш файл заработал!
Я до сих пор находил в интернете примеры лишь со слешем:
Shell ("\inst_fnt.bat"
Я потерял почти полмесяца, к сожалению.
А надо было экспериментировать..
Теперь вопрос другого характера:
не бат-файлом, но через VB вот этим товарищем тоже можно, оказывается:
AddFontResource
У меня была тема по этому поводу, но куда его направили, не найду, а посему задам его здесь, если можно:
Я не ламер по программированию, а полное НИЧТО пока. Эта моя первая программа по установке шрифтов и клавиатуры, кончательный вариант которого я Вам вышлю как соавтору.
Но что касается
AddFontResource,
везде даются ответы академического характера, нет бы по примеру, по полочкам, что ли.
Пожалуйста, разъясните установку шрифта НЕ по бат'у, а по VB.
Мой вопрос, конечно, решен с Вашей помощью и с бат'ом.
Но хотелось бы знать, как это решается в VB программно.
---------------------------
Уважаемый Леголес, в качестве аванса на будущую работу -
с Вашей помощью хотелось бы создать кыргызско-русский словарь.
Матчасть у меня имеется, с Вас лишь указания программного порядка.
Опять же соавторство и права Вам обещаю.
Спасибо еще раз.
Спасибо этому форуму и спасибо за то, что некогда меня чуть не исключили.
Всем вам по валентинке!
С уважением
Жанызак.
.
Заработало!
Но вот какой момент:
Private Sub Command6_Click()
Shell ("inst_fnt.bat"
End Sub
Я убрал слеш, и Ваш файл заработал!
Я до сих пор находил в интернете примеры лишь со слешем:
Shell ("\inst_fnt.bat"
Я потерял почти полмесяца, к сожалению.
А надо было экспериментировать..
Теперь вопрос другого характера:
не бат-файлом, но через VB вот этим товарищем тоже можно, оказывается:
AddFontResource
У меня была тема по этому поводу, но куда его направили, не найду, а посему задам его здесь, если можно:
Я не ламер по программированию, а полное НИЧТО пока. Эта моя первая программа по установке шрифтов и клавиатуры, кончательный вариант которого я Вам вышлю как соавтору.
Но что касается
AddFontResource,
везде даются ответы академического характера, нет бы по примеру, по полочкам, что ли.
Пожалуйста, разъясните установку шрифта НЕ по бат'у, а по VB.
Мой вопрос, конечно, решен с Вашей помощью и с бат'ом.
Но хотелось бы знать, как это решается в VB программно.
---------------------------
Уважаемый Леголес, в качестве аванса на будущую работу -
с Вашей помощью хотелось бы создать кыргызско-русский словарь.
Матчасть у меня имеется, с Вас лишь указания программного порядка.
Опять же соавторство и права Вам обещаю.
Спасибо еще раз.
Спасибо этому форуму и спасибо за то, что некогда меня чуть не исключили.
Всем вам по валентинке!
С уважением
Жанызак.
.
29. Леголегс - 09 Февраля, 2006 - 06:37:27 - перейти к сообщению
Жанызак пишет:
Слеш означает в данном случае, что путь будет отсчитываться от корневой папки диска. Т.е. если команда 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.
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.
CODE:
int AddFontResource(
LPCTSTR lpszFilename // pointer to font-resource filename
);
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
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
Dim fname as String
fname = Dir$("*.ttf") 'Начинаем перебор всех ttf-файлов в папке
do while (len(fname)<>0) 'пока файлы не кончились
AddFontResource fname 'Регистрируем шрифт
fname = Dir$ 'берём следующий файл
loop
End Sub
30. Леголегс - 09 Февраля, 2006 - 06:41:57 - перейти к сообщению
Жанызак пишет:
Ну посоветовать могу что-нибудь, но словарь это, ИМХО, серьёзная работа. Она потребует времени, которого у меня очень немного.
Уважаемый Леголес, в качестве аванса на будущую работу -
с Вашей помощью хотелось бы создать кыргызско-русский словарь.
Матчасть у меня имеется, с Вас лишь указания программного порядка
с Вашей помощью хотелось бы создать кыргызско-русский словарь.
Матчасть у меня имеется, с Вас лишь указания программного порядка