[manuweb]

Buscando por la red he encontroado esto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
sDirectorio: String;
sFichero1: String;
Begin
  sDirectorio:=ExtractFilePath(Application.ExeName);
  sFichero1:=sDirectorio+'\font\tipografia.TIF';
  AddFontResource(PChar(sFichero1)) ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var
sDirectorio: String;
sFichero1: String;
Begin
  sDirectorio:=ExtractFilePath(Application.ExeName);
  sFichero1:=sDirectorio+'\font\tipografia.TIF';
  RemoveFontResource(PChar(sFichero1)) ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

El caso es que esto no me funciona. Quizas con win 98. En Win XP no va.

Sé que se puede añadir usando Install Shield o QSetup (con este lo he probado y va bien).

Gracias.