Home » Tipps & Tricks » System » Systemfunktionen » Fonts installieren und deinstallieren

Fonts installieren und deinstallieren

Um TTF-Fonts zu installieren, muss man an die folgenden Funktionen den Dateinamen der TTF-Datei übergeben.Sollen die Fonts dauerhaft installiert werden, so ist ein vorheriges Kopieren in das entsprechendeFonts-Verzeichnis anzuraten.

function RegisterFont(Datei: String): String;
{ erstellt zuerst eine FOT-Datei und installiert diese dann }
var FotName: String;
  bErg: Boolean;
  iErg: Integer;
  a, b: Array[0..128] of Char;
begin
  Result:='';
  FotName:=ChangeFileExt(Datei, '.FOT');
  StrPCopy(A,FotName);
  StrPCopy(B, Datei);
  if not fileExists(Fotname) then
    bErg:=CreateScalableFontResource(0, a, b, '') else bErg:=true;
    if bErg then
    begin
      iErg:=AddFontResource(A);
      if iErg>0 then
      begin
        SendMessage(hwnd_broadcast, wm_fontchange, 0,0);
        Result:=FotName;
      end;
    end;
end;

function RemoveFont(Datei:String): boolean;
begin
  result:=RemoveFontResource(PChar(Datei));
  SendMessage(hwnd_broadcast, wm_fontchange, 0, 0);
end;

Ein Gedanke zu „Fonts installieren und deinstallieren“

  1.  

    Hallo!

    Danke, dass ihr diesen Code online gestellt habt. Er hat mir sehr geholfen.

    Eine Ergänzung dazu für alle, die auf diesen Artikel stoßen: (Zumindest unter Windows 7) ist es nicht notwendig, dass man die FOT-Datei erstellt. Eine TTF-Datei lässt sich direkt in die Funktion AddFontResource übergeben. Steht auch so in dem MSDN.

    Beste Grüße und Viel Erfolg!
    Markus Effenberger

Kommentare sind geschlossen.