Font的安装与卸载

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;