怎么编程安装字体文件

应该是：SendMessage(HWND_BROADCAST,WM_FONTCHANGE, 0, 0);

使用应该是这样的：
1.使用 AddFontResource 把您的字体送入 Windows 字体列表。 
2.使用 SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0) 广播通知。 
3.这时候开始，您的字体才可以随意使用。
4.使用 RemoveFontResource 从 Windows 字体列表删除您的字体。 
5.SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0) 再通知一遍。

如果是使用资源中的字体，应该：
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. 

1.关于字体： 
  http://msdn.microsoft.com/library/en-us/gdi/fontext_371v.asp 
2.安装和删除字体 
  http://msdn.microsoft.com/library/en-us/gdi/fontext_2ylq.asp 

CreateScalableFontResource 为一种TureType字体创建一个资源文件，以便能用API函数AddFontResource将其加入Windows系统 ！

如果可以的话，你将你的程序源代码发给我，我看看能不能改好！
xia_qingqi@broadxent.com.cn

永久安装使用，类似下面的代码：  
CString  sSourceDir  =  "D:\\TT6\\";              
           //.TTF  file  name.  
           CString  sFontFileName  =  "TT6.TTF";              
           //Font  description  (as  it  will  appear  in  Control  Panel).  
           CString  sFontName  =  "金梅粗圓體(TrueType)";  
 
           TCHAR  sWinDir  [MAX_PATH];  
           GetWindowsDirectory(sWinDir,MAX_PATH);  
           CString  sFontDir(sWinDir);  
           sFontDir  +=  "\\Fonts\\";  
 
           CString  sFOTFile    =  sFontDir;  
 
           sFOTFile  +=    (sFontFileName.Left(sFontFileName.GetLength()-4)  +  ".FOT");  
             
           CopyFile((sSourceDir  +  sFontFileName),(sFontDir  +  sFontFileName),FALSE);  
           BOOL  Result;  
           Result  =  CreateScalableFontResource(0,  sFOTFile,  sFontFileName,  sFontDir);  
           Result  =  AddFontResource(sFOTFile);  
           HKEY  phkResult;  
           DWORD  RegResult;    
           LONG    Rlt  =  RegCreateKeyEx(HKEY_LOCAL_MACHINE,  
         "SOFTWARE\\Microsoft\\Windows  NT\\CurrentVersion\\Fonts",  0,  "REG_SZ",  
         0,  KEY_WRITE,  0,&phkResult  ,&RegResult);  
           if(Rlt  !=  ERROR_SUCCESS)  
           {  
                       AfxMessageBox("Create  Key  Failed!");  
           }  
             
           RegSetValueEx(phkResult,  sFontName,  0,  REG_SZ,  (CONST  BYTE*  )((LPCTSTR)sFontFileName),  sFontFileName.GetLength());  
           RegCloseKey(phkResult);  
           ::SendMessage  (HWND_BROADCAST,  WM_FONTCHANGE,  0,  0);  
           DeleteFile((sFontDir  +  sFontFileName));