Font Add

function FontAdd(const FontFilename: string): Boolean;
begin
 
result := (AddFontResource(PChar(ExtractFilePath(ParamStr(0) + FontFilename))) <> 0);
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 
end;