possible to install fonts?

[Alex K. Angelopoulos]

Here's a quote from a post by mrlee a few weeks ago:

<quote>

I chopped this out of my code, so there may be a bug.

find out on one machine the name of the entry in the registry when you
install it manually.
below in the code treplace "font Entry" with what you find. and replace
"myfont.ttf" with the actual name of your ttf file that you copy.
For Win NT It will be under : HKLM\Software\Microsoft\Windows
NT\Currentversion\Fonts
For Win 9x it will be: HKLM\Software\Microsoft\Windows\Currentversion\Fonts

' copy the file first, then determin if you're running on winnt or win9x.
' p.s "ldrive" is my netlogon directory, I store fonts and stuff in a
patches folder under that.
'I determine windows version before this and set the old Kix INWIN variable
to 1 if it's windows NT.

If not fso.FileExists(windir&"\Fonts\myfont.Ttf") then
fso.copyfile LDrive&"\Patches\myfont.Ttf",windir&"\Fonts\myfont.Ttf"
End If
If Inwin=1 Then
Reg="Windows NT"
Else
Reg="Windows"
End If
Result = WshShell.Regread
("HKLM\Software\Microsoft\"&Reg&"\Currentversion\Fonts","Font entry")
If Result <> "myfont.ttf" Then
Wshshell.RegWrite
("HKLM\Software\Microsoft\"&Reg&"\Currentversion\Fonts\Font Entry",
"myfont.TTF","REG_SZ")
End If

</quote>

"Endy" <gro...@yahoo.com> wrote in message news:2dfa01c1cb5c$bf6631e0$35ef2ecf@TKMSFTNGXA11...
: Hi people,
:
: I would like to know, if there's possible to install a new
: font using scripting? How?
:
: Thnaks

[Andrius Sniras]

Thanks, somehow I thought it wouldn't be enough to copy font file to the
font dir and to modify registry - I was wrong :)
Bye

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!