Font Remove

function FontRemove(const FontFilename: string): Boolean;
begin
 
result := RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + FontFilename)));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 
end;