حذف و اضافه کردن فونت

[SamadYousefi]

function FontAdd(const FontFilename: string): Boolean;
begin


result := (AddFontResource(PChar(FontFilename)) <> 0);
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);


end;


function FontRemove(const FontFilename: string): Boolean;
begin


result := RemoveFontResource(PChar(FontFilename));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);


end;