How to register Font Files
How to register Font Files
I have a software in which I bundle my own fonts that are not available otherwise in the system.
Now how can I get Enigma VB to register these fonts in the system?
Now how can I get Enigma VB to register these fonts in the system?
Re: How to register Font Files
This really have no ideas... Can you send me your test files, just to reproduce the problem when font files are not working?
YogiYang, please send us NON packed files.
YogiYang, please send us NON packed files.
Re: How to register Font Files
Sorry I have send a packed file long before you replied to this post. The non packed files about around 17MB in size so it would be impractical to send you all those files.Enigma wrote:YogiYang, please send us NON packed files.
But yet if you insist I will send all the files along with the main executable.
Re: How to register Font Files
Just compress these files... not possible?
No problem, please send 17 MB... if only gmail won't send such email....
No problem, please send 17 MB... if only gmail won't send such email....
Re: How to register Font Files
Gmail will not allow to send files greater and 10MB so I will have to upload it to some file server and send you the link.
Re: How to register Font Files
Just divide files on a two emails, no problemYogiYang wrote:Gmail will not allow to send files greater and 10MB so I will have to upload it to some file server and send you the link.
Re: How to register Font Files
Hello, do you have a solution to register font files ?
thanks
thanks
Re: How to register Font Files
I'm not sure it is possible at all. If font files are being used by another applications too, which are not packed, then EVB can't help there.
EVB does it's magic only under process of packed executable, or all other processes that it executes. It can't affect all processes or entire system.
EVB does it's magic only under process of packed executable, or all other processes that it executes. It can't affect all processes or entire system.
Re: How to register Font Files
In case of fonts what you can do is remove (uninstall) old fonts and then install new fonts.
I have been doing this for quite some time now in my VB6 based software.
Here is the sample code
Just my 2cents.
I have been doing this for quite some time now in my VB6 based software.
Here is the sample code
Code: Select all
Sub Install_TTF (FontName$, FontFileName$, WindSysDir$)
Dim Ret%, Res&, FontPath$, FontRes$
Const WM_FONTCHANGE = &H1D
Const HWND_BROADCAST = &HFFFF
FontPath$ = WindSysDir$ + "\" + FontFileName$
FontRes$ = Left$(FontPath$, Len(FontPath$) - 3) + "FOT"
Ret% = CreateScalableFontResource(0, FontRes$, FontFileName$, WindSysDir$)
Ret% = AddFontResource(FontRes$)
' Res& = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
' Ret% = WriteProfileString("fonts", FontName + " (TrueType)", FontRes$)
End Sub
' This sub will remove any True Type fonts installed
'
Sub Remove_TTF (FontName$, FontFileName$, WindSysDir$)
Dim Ret%, Res&, FontPath$, FontRes$
Const WM_FONTCHANGE = &H1D
Const HWND_BROADCAST = &HFFFF
FontPath$ = WindSysDir$ + "\" + FontFileName$
FontRes$ = Left$(FontPath$, Len(FontPath$) - 3) + "FOT"
'Ret% = CreateScalableFontResource(0, FontRes$, FontFileName$, WindSysDir$)
Ret% = RemoveFontResource(FontRes$)
Res& = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
' Ret% = WriteProfileString("fonts", FontName + " (TrueType)", FontRes$)
End Sub
Re: How to register Font Files
Thanks YogiYang,
I 'll try this
I 'll try this