怎以安装字体!急用!比如我想加一个Kkkkk.ttf字体,我该怎么办

解决方案 »

  1.   

    Screen.Fonts是一个TStrings对象,用IndexOf('文鼎彩云繁')
    方法可以知道是否安装了新字体。如果没有安装,则安装新字体:
         AddFontResource('c:\YouyFontFile.ttf');
         SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
      

  2.   

    AddFontResource(PChar(ExtractFilePath(Application.ExeName)+'Kkkkk.ttf'));
    SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
    不用问这么多遍吧,我都答了三遍了