Schriftart einbinden

[p80286]

zum Einlesen:http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Zum kopieren:

Delphi-Quellcode:

var
  selfont: string;
  wsel   : pchar;
begin
..
        selfont:=selfont+#0;
        wsel:=@selfont[1];
        if addfontresource(wsel)>0 then begin
          ttf_selfontlist.add(selfont);
          sendmessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
        end

ggf entfernen:

Delphi-Quellcode:

removefontresource(wsel));
sendmessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

Gruß
K-H