怎样将字体设为当前目录下的字体文件的字体.(50分)

程序里边要用到特殊的字体,用户系统没有该字体如何指定程序中的字体为该字体.
不要告诉我,把字体文件copy到c:/windows/fonts中,
我想知道如何直接在当前目录下读取字体.

好象不太可能。
你可以自己来个算法。用象素来打印字体。

应该可以的.我看到一些软件(如一些英语学习软件的音标)就是自己带了字体文件
而又没有注册到系统中.

你必须先安装该字体！

uses
Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
b : bool;
begin
CopyFile('C:/DOWNLOAD/FP000100.TTF', 'C:/WINDOWS/FONTS/FP000100.TTF', b);
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Fonts', false);
reg.WriteString('TESTMICR (TrueType)','FP000100.TTF');
reg.CloseKey;
reg.free;
AddFontResource('c:/windows/fonts/FP000100.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
RemoveFontResource('c:/windows/fonts/FP000100.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

只安装指向字体文件的快捷方式就是了。
那样就不用copy到c:/windows/fonts中.