Schriftart aus *.ttf verwenden

[nailor]

//Textdatei mit folgendem Inhalt anlegen
MY_FONT SMILLY "SMILLY.ttf"

//Datei MyFont.rc speichern diese Datei mit folgendem Befehl kompilieren
BRCC32 MyFont.rc

Der Sourcecode der jetzt folgt ist ja OK, aber das was ich davor machen soll kapier ich nicht!!!

Delphi-Quellcode:

implementation


{$R *.dfm}
{$R MyFont.res} //das einfügen
 

procedure TForm1.FormCreate(Sender: TObject);
var
 res : TResourceStream;
begin
 res := TResourceStream.Create(hInstance, 'My_FONT', Pchar('SMILLY'));
 res.SaveToFile('SMILLY.ttf');
 res.Free;
 AddFontResource(PChar('SMILLY.ttf'));
 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
 

//So wird die Fontdatei aus der Resource aufgerufen
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Font.Name := 'SMILLY';
end;