Вставить шрифт в прогу

← →
webpauk (2005-02-15 13:55) [0]

Господа!
Как вставить шрифт в *.res - это я знаю.
А вот как использовать этот шрифт?

← →
Коля (2005-02-15 22:41) [1]

Типо того
//использование шрифта
try
Res:=TResourceStream.Create(hInstance,"MY_FONT", Pchar("TNR"));
Res.SavetoFile(ExtractFilePath(ParamStr(0))+"times.ttf");
Res.Free;
AddFontResource(PChar(ExtractFilePath(ParamStr(0))+"times.ttf"));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
Fform.Font.Name := "Times New Roman";
except on exception do;end;

← →
webpauk (2005-02-16 14:08) [2]

TResourceStream!!!
Winapi!?

FindResource, LoadResource, LockResource, запись в файл, AddFontResource, SendMessage.

Вставить шрифт в прогу Найти похожие ветки