I was challenged a couple of days ago to install a Type 1 font.
Here's how I did it:
- Open new Project in Installshield ( Flexera Software)
- INSTALLDIR = [ProgramFilesFolder]Lexicon Font
- Create new Feature - new Component ( Destination: INSTALLDIR)
- Add the Font files ( afm, inf, pfb, pfm ..) in component
- Create Custom Action (51)
Property Name = InstallFont
Property Value = [INSTALLDIR]
Location : after CostFinalize - Create CA ( 3110)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Property("CustomActionData"))
Set objFolderItem = objFolder.ParseName("LexiconNo1ATxt-Regular.pfm")
objFolderItem.InvokeVerb("Install") - Deferred Execution in System Context ( After StartServices )
- screenshots
- fonts show in a directory listing
- registry settings are as they should
But when I look in explorer into the windows fonts folder the fonts are not there. I've to call the pfm files from the DOS box and reinstall the fonts. Only then they show up and are usable.
Irlandbiker - Irlandbiker 10 years ago