No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Usar una fuentre TrueType sin Instalarla.

delphi

procedure TForm1.FormCreate(Sender: TObject);
	begin
	 AddFontResource('c:\FONTS\MyFont.TTF');
	 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
	end;
 
	procedure TForm1.FormClose
	  (Sender: TObject; var Action: TCloseAction);
	begin
	 RemoveFontResource('C:\FONTS\MyFont.TTF');
	 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
	end;

Saludos!