[Drongo]

Вот я включал шрифт по такой инструкции: »

К сожалению, неполучилось... Хотя за попытку помочь, благодарю.
Вчера вечером почти весь вечер делал и почти пол ночи искал инфу, на Delphi\Pascal есть, на C++ практически ничего внятного не нашёл или пропустил по незнанию.
Консольный компилятор есть bcc32.exe. Создавал я файл MyFont.rc, но в MyFont.res такой командой ничего не скомпилилось.

Код:

bcc32.exe MyFont.rc

Возможно программисты на Cи помогут? Хотелось бы...

[ganselo]

Drongo »

Я так понял, что у вас не получилось добавить шрифт в *.res файл? Если так, то:
берёте какой нибуть редактор ресурсов и с помощью его добавляете ваш шрифт в *.res файл программы и дальше пишите код приведённый

Dmitrijan »

.

[Drongo]

берёте какой нибуть редактор ресурсов и с помощью его добавляете ваш шрифт в *.res файл программы »

Хорошо, у меня Restorator открыл в этой программе файл Project1.res. Создал ресурс "Шрифт", что выбирать дальше и как собственно добавлять сам шрифт? Хотелось бы подробное описание, а не общий совет...

[ganselo]

Drongo
Берёте текстовый файлик . Пишите туда "MY_FONT ANYOL1 "Bauhs93.ttf" " и сохраняете как 1.rc, например . Далее в Builder'e: Проект->Добавить к проекту->выбираете тип файла *.rc->находите файл 1.rc и компилите проект. Файл Bauhs93.ttf должен лежать вместе с 1.rc. Ну и пишите код приведённый Dmitrijan.

[Drongo]

ganselo, Вооот! Другое дело Что-то получается, только некоторые части не могу перевести с Delphi на C++.

Delphi

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
Res.SavetoFile('Bauhs93.ttf');
Res.Free;
AddFontResource(PChar('Bauhs93.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

C++ как и что у меня получилось (потом, когда и если всё получится, детально опишу последовательность действий). Не могу эту часть правильно перевести. Переменная TResourceStream Res; вроде бы создаю, а потом присвоить ей что-то я не пойму как? По ходу нужно использовать оператор new, но на простых типах умею, а вот на таких не приходилось. Думаю с кодом после begin разобрался бы, мне только правильно перевести эту строку - Res : TResourceStream;

Код:

// Для своего использования шрифта - Delphi
//   Res : TResourceStream; // Объявляем переменную
//   begin
//   Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
//   Res.SavetoFile('Bauhs93.ttf');
//   Res.Free; // освобождение ресурсов - деструктор.
   // Работает только эта часть-----------------------------
   AddFontResourceA("verdana.ttf");
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

Проект с включенным в него ресурсом для шрифта скомпилился, только без тех строк, что закоментированы. В FormCreate

[ganselo]

Drongo
Я с Dephi тоже мало знаком... кажись должно быть так:

Код:

TResourceStream *res = new TResourceStream(Application->Handle, "MY_FONT", "ANYOL1");
res->SaveToFile("Bauhs93.ttf");

AddFontResourceA("Bauhs93.ttf");
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

Но я не тестил...

[Drongo]

Немного не скомпилилось, ошибка в этой строке

Код: TResourceStream *res = new TResourceStream(Application->Handle, "MY_FONT", "ANYOL1"); »

[C++ Ошибка] Unit1.cpp(40): E2285 Could not find a match for 'TResourceStream::TResourceStream(void *,char *,char *)'

Но я тут поискал в гугле правильный синтаксис TResourceStream(void *,char *,char *). Нашёл в первых строках гугла ссылку 1 и ссылку 2. Изменил на такой вариант:

Код:

...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   TResourceStream *res = new TResourceStream((int)HInstance, "MY_FONT", "ANYOL1");
   res->SaveToFile("verdana.ttf");

   AddFontResourceA("verdana.ttf");
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
}...

Скомпилилось без проблем. Теперь нужно проверить на английской версии Windows. Как проверю, сразу же отпишусь, у меня правда знакомых нет с английской Windows, придётся диск у друга брать. Так что некоторое время займёт.

ganselo, Спасибо за помощь.

[Drongo]

Проверил на английской Windows, к сожалению с таким кодом ничего не получилось

Код:

...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   TResourceStream *res = new TResourceStream((int)HInstance, "MY_FONT", "ANYOL1");
   res->SaveToFile("verdana.ttf");

   AddFontResourceA("verdana.ttf");
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
}
...

всё равно русские символы выводит вопросительными знаками. Как же всё-таки включить русский шрифт в программу? Что я не так делаю или пропускаю?

[Admiral]

В ходе личной переписки выяснили, версия ОС не причём.
Автору был дал совет использовать Юникод в программе. Однако как выяснилось, мой пример оказался не до конца Юникодным, по этому, его корректное отображение зависело от того, что указанно в Контрольной панели в Региональных настройках. Как оказалось, мало использовать wchar_t вместо char, нужно и саму функцию входа в программу использовать соответственную: вместо WinMain - wWinMain.
К сожалению для консольных версий прог использование wmain вместо main не даёт независимость от того что установлено в Контрольной панели в Региональных настройках. Консоль не использует Юникод вывод.

P.S. Хотелось бы дать рекомендацию по самой программе.

Вместо того что б предлагать выбор по определению языковой версии, лучше её определять. Например считывая атрибуты файла kernel32.dll проверять что там написано: Корпорация Мискрософт или Microsoft Corporation.
Не исключаю, что патчи, которые сообщают что они "не предназначены для данной языковой версии", проверяют это как-то по-другому, в этом случаи APIMonitor поможет определить как именно.

[Drongo]

Admiral, Спасибо за помощь и проявленный интерес к проблеме.

нужно и саму функцию входа в программу использовать соответственную: вместо WinMain - wWinMain. »

Я сравнивал ваш исходник для MultiBoot Configurator'a, но как использовать эту функцию в своей, не имею представления, там ведь проект .bpr. Функции WinMain вроде как только в файле - Project1.cpp - коммент 15.

Я добавил перед функцией WinMain - символ - wWinMain. Попробовал откомпилировать, ошибка компоновщика. Что WinMain ссылается на COW32.OBJ

Код:

[Компоновщик Ошибка] Unresolved external 'WinMain' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\LIB\C0W32.OBJ

Код:

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI wWinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------

По wWinMain нашёл статью - Точка входа в программу, но мне ничего это не дало.

---

Вместо того что б предлагать выбор по определению языковой версии, лучше её определять. »

Я тоже об этом думал.

Например считывая атрибуты файла kernel32.dll проверять что там написано: Корпорация Мискрософт или Microsoft Corporation. »

Так?

Код:

FileGetAttr(C:\\windows\\system32\\kernel32.dll)

Установить атрибуты могу: Архивный, сктрытый и т.д.

Ещё поискал в гугле, подумал, может нужно эту функцию использовать - GetFileAttributesW ? Хотя никогда использовать её не приходилось.