Function register: string; {Erstellt Zuerst Dien} var fotname: String; Berg: boolean; IERG: Integer; A, B: Array [0..128] of char; becom Result: = '; fotname: = CHANGEFILEXT (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 SENDMESSAGE (HWND_Broadcast, WM_FONTCHANGE, 0, 0); result: = fotname; End; end; Function RemoveFont: Boolean; Begin Result: = RemoveFontResource (Pchar (Datei)); SendMessage (hwnd_broadcast, wm_fontchange, 0, 0); end;
