無論是安裝一些系統字型還是自定義的字型檔案，本方法都是適用的。需要注意的是目前網路上介紹的使用AddFontResource實現安裝字型，但是僅僅對本次設定有效，重啟之後字型還是會消失。使用本文方法可永久實現字型的安裝。

看看MSDN中關於安裝字型的介紹：

To install unique hidden font resources follow these steps:
1 Copy the TrueType font file to a temporary file with a unique filename such as "ttfont01.ttf" that can be owned by the instance of the application. 
2、 Call the CreateScalableFontResource() function to create a uniquely named temporary hidden font resource file that can also be owned by the instance of the application. 
3、Call the AddFontResource() function to install this uniquely named font resource file for this instance of the application. 
4、Use the font in the application as desired.
5 When the instance of the application terminates or is otherwise finished with the font file, it should uninstall the font resource by calling the RemoveFontResource() function until it fails. 
6 Lastly, the instance of the application should delete the temporary font resource file and the temporary TrueType font file that it created. 

根據介紹，使用Delphi來實現：

procedure TForm11.Button12Click(Sender: TObject);
var
  sysDir, sFontFileName, sFontName, sFontDir, sFOTFile: string;
  ssourceDir: string;
  reg: TRegistry;
begin
  sFontFileName := 'msyh.ttf';//測試字型（微軟雅黑）
  sysDir := GetWinDir;
  sFontDir := sysDir + '\Fonts\';
  sFOTFile := sFontDir + ChangeFileExt(sFontFileName, '.FOT');
  ssourceDir := ExtractFilePath(ParamStr(0)) + sFontFileName;
  //將字型檔案複製到系統Fonts目錄下
  CopyFile(PChar(ssourceDir), PChar(sFontDir+ sfontfileName), false);
  //建立字型資原始檔
  CreateScalableFontResource(0, PChar(sFOTFile), PChar(sFontFileName), PChar(sFontDir));
  //新增字型資源
  AddFontResource(PChar(sFOTFile));
  //新增登錄檔項
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  try
    if reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', false) then
    begin
      if not reg.ValueExists('微軟雅黑 (TrueType)') then
        reg.WriteString('微軟雅黑(TrueType)', sFontFileName);
    end;
  finally
    reg.Free;
  end;
  //通知系統更新字型列表
  PostMessage(HWND_BROADCAST,  WM_FONTCHANGE,  0,  0);
end;