Używając notatnika utwórz plik *.rc z następującą treścią:
MOJ_FONT MOJA1 "Arial.ttf"
Dwa pierwsze parametry mogą mieć inną nazwę. Będą wykorzystane później w programie.
Następnie użyj kompilatora BRCC32.EXE który jest dołączany wraz z Delphi, służy on do tworzenia plików *.res. Aby skompilować plik MojFont.rc w linii komend wpisz:
BRCC32 MojFont
Do programu musisz dodać dyrektywę włączającą plik do programu:
{$R MojFont.res}
Możesz ją wpisać zaraz po dyrektywie {$R *.DFM} w sekcji implementacji.
Aby użyć plik zasobu wpisz procedurę:
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MOJ_FONT', Pchar('MOJA1'));
Res.SavetoFile('czciona.ttf');
Res.Free;
AddFontResource(PChar('czciona.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;
Teraz możesz przypisać czcionkę:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Name := 'Bauhaus 93';
end;
W każdej chwili możesz usunąć czcionkę z programu:
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar("Arial.ttf"))
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;