Foros Club Delphi - InstallShield + instalar fonts

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - InstallShield + instalar fonts (https://www.clubdelphi.com/foros/showthread.php?t=2254)

InstallShield + instalar fonts

Consulta:
Tengo una aplicacion desarrollada la cual se distribuye con un instalador generado desde InstallShield.
Esto anda perfecto, ahora lo que necesito es hacer es enviarle un fuente (fonts) de letra junto con la instalacion.
Esto se como resolverlo, a medias, porque como se el directorio de destino en el que lo tengo que dejar.
En la mayoria de las pcs es windows, pero puede estar cambiado, ademas puede ser win 98, me, xp o 2000 o 200n,
y creo que no podria ponerle un destino fijo.

Existe alguna variable que diga que va al directorio de fonts del windows, este donde este?
Gracias
Miguel

Sacado de Trucomania:

Código:

Para cargarlo, (por ejemplo en el evento OnCreate de tu form):



    procedure TForm1.FormCreate(Sender: TObject);

    begin 

      AddFontResource('c:\FONTS\FUENTE.TTF');

      SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

    end; 

 

 

Y al salir de tu aplicación, lo liberas con:

 

    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

    begin 

      RemoveFontResource('D:\FONTS\FUENTE.TTF');

      SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

    end;

Ademas creo que se puede instalar la fuente desde el InstallShield, nada mas dandole la ruta del FontsFolder (InstallShield Express 4) donde quieres guardar las fuentes que quieras.

Quise adjuntar la imagen, lo he intentado varias veces y nada, pero no puedo. Por eso te pongo el link a esta imagen:

Imagen