کسی نگفته که این فونت ها در ویندوز 2000 نمیتونه کار کنه.دوستان پیشنهاد دادند که استفاده از این فونتها در برنامه مناسب تره همین.از این کد برای نصب فونتت استفاده کن
rocedure AddFont(FontFile : string);
var
DestFile : string;
FontDir : string;
begin
//Find Fonts directory
SetLength(FontDir,Max_Path);
GetWindowsDirectory(PAnsiChar(FontDir),Max_Path);
SetLength(FontDir, StrLen(PAnsiChar(FontDir)));
FontDir := FontDir + '\Fonts\';
//Copy font file to the Fonts directory
DestFile := FontDir + ExtractFileName(FontFile);
CopyFile(PAnsiChar(FontFile),PAnsiChar(DestFile),T rue);
//True-Type fonts need a header file to be created before adding them to system
if ExtractFileExt(FontFile) = '.ttf' then
//Create the header file (.fot)
CreateScalableFontResource(0,
PAnsiChar(Copy(DestFile,1,Length(DestFile) - 3) + 'fot'),
PAnsiChar(DestFile),
nil);
//Add font to system
AddFontResource(PAnsiChar(DestFile));
//Notify other windows about new font
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;