Eigene Schriftart benutzen

[xaromz]

Hallo,

wenn Du die Schriftart ins Programmverzeichnis speicherst, kannst Du die Schriftart beim Programmstart laden und beim Beenden wieder entladen.
Hier ein kleines beispiel:

Delphi-Quellcode:

procedure AddFontRes(const FileName: WideString);
begin
  AddFontResourceW(PWideChar(FileName));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

procedure RemoveFontRes(const FileName: WideString);
begin
  if RemoveFontResourceW(PWideChar(FileName)) then
  begin
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  end;
end;

Gruß
xaromz