installing a font by using code

[Willie jan]

Hi,
i tried to install a font by using code like:

res = CreateScalableFontResource(0, Fontlst.Item(i), Fontlst.Item(i),
String.Empty)
res = AddFontResource(Fontlst.Item(i))

That works fine when the pc does not reboot,
however after a reboot these added fonts disappear.

Is there a way to keep them installed also after a reboot?
There was a doc saying to find the fonts in the registry under the local
machine\microsoft\software\currentversion\fonts, but under xp this key does
not exist.

Thanks for your help.

Willie.

[Ken Tucker [MVP]]

Hi,

Here is an example that installs a barcode font and displays a
sample.

www.onteorasoftware.com/downloads/barcode.zip

Ken
------------------------------
"Willie jan" <un*****@unkown.com> wrote in message
news:41***********************@news.euronet.nl...
Hi,
i tried to install a font by using code like:

res = CreateScalableFontResource(0, Fontlst.Item(i), Fontlst.Item(i),
String.Empty)
res = AddFontResource(Fontlst.Item(i))

That works fine when the pc does not reboot,
however after a reboot these added fonts disappear.

Is there a way to keep them installed also after a reboot?
There was a doc saying to find the fonts in the registry under the local
machine\microsoft\software\currentversion\fonts, but under xp this key does
not exist.

Thanks for your help.

Willie.