AddFontResource

[dataspider]

Hi,
ich kann nicht sagen, wo der Fehler liegt. Aber vielleicht geht ja mein Code:

Delphi-Quellcode:

function RegisterFont(const Datei: String): string;
var FotName: String;
  bErg: Boolean;
  iErg: Integer;
  a, b: Array[0..128] of Char;
begin
  Result:='';
  if not FileExists(Datei) then
    Exit;
  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 UnRegisterFont(const Datei: string): Boolean;
begin
  Result := RemoveFontResource(PChar(Datei));
  SendMessage(hwnd_broadcast, wm_fontchange, 0, 0);
end;

Gruß, Frank