//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;