Añadir a mi aplicación una true type especial

[manuweb]

Lo he conseguido. Simplemente asigno el tipo de letra en el FormCreate y no cuando estoy desarrollando:


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) ;
Label1.Font.Name:= 'Nombredelafuente';
end;