안녕 하세요?

BacTeria 박종민 입니다.

폰트 화일을 등록하고 해제 하신다구요? 아래의 코드를 참고 하세요.

자료실에 등록 되어 있는 "델파이 프로그래밍 기술 정보" 자료 중

"FONT 등록 추가" 항목에서 슬쩍(?) 했습니다.
(정상 실행 여부는 저도 아직 테스트 못 해 봤심더~~ 아마 되겠죠???)

이만... 청주에서 박종민...


PS. 이제보니 강좌란의 275번에 설명 되어 있네요.
    무작정 질문 하시지 말고 한번만이라도 찾아보셨으면 좋겠습니다. - 종민생각 -

------------------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

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;

  {Add the font resource}
  AddFontResource('c:\windows\fonts\FP000100.TTF');
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

  {Remove the resource lock}
  RemoveFontResource('c:\windows\fonts\FP000100.TTF');
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

end.