Windows a true type font eklemek


uses Registry;
procedure TForm1Button1Click(Sender: TObject);
var
reg: TRegistry;
b : bool;
begin CopyFile('C:\DOWNLOAD\FP000100TTF', 'C:\WINDOWS\FONTS\FP000100TTF', b);
reg := TRegistryCreate; regRootKey := HKEY_LOCAL_MACHINE;
regLazyWrite := false; regOpenKey('Software\Microsoft\Windows\CurrentVer sion\Fonts', false); regWriteString('TESTMICR (TrueType)','FP000100TTF');
regCloseKey; regfree;
AddFontResource('c:\windows\fonts\FP000100TTF'); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
RemoveFontResource('c:\windows\fonts\FP000100TTF' ); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

---