Schriftart temporär installieren

[Dagon]

Wer eine eigene Schriftart nutzen will, die nicht im System angemeldet ist (also nicht installiert ist) und diese auch nur während der Ausführung des Programms nutzen will, der kann das wie folgt realisieren:

Wie folgt installierst/deinstallierts du eine Schrift (im Quelltext des Programms eingeben):

Delphi-Quellcode:

program FontTemporaerInstallieren; 

uses 
  Forms, windows, sysutils, messages, 
  
Unit1 in 'Unit1.pas' {Form1}; 

{$R *.RES} 

begin 
  // Anmelden der Schrift beim System: 
  AddFontResource(Pchar(ExtractFilePath(ParamStr(0))+'NAME DER SCHRIFFT')); 
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); 

  Application.Initialize; 
  Application.CreateForm(TForm1, Form1); 
  Application.Run; 
  
  // Schrift abmelden: 
  RemoveFontResource(pchar(ExtractFilePath(ParamStr(0))+'NAME DER SCHRIFFT')); 
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); 
end.

Die Schrift wird während des Gebrauchs installiert und steht der Anwendung zur Verfügung und nach dem Beenden wird sie wieder deinstalliert.

Genutzt wird sie dann wie jede andere auch (hier ein Beispiel):
Edit1.Font.Name := 'Echter Name der Schrift (nicht Dateiname)';