Ich habs dochnoch gefunden!
Wie folgt installierst/deinstallierts du eine Schrift (im Quelltext eingeben):
Delphi-Quellcode:
program Project2;
uses
Forms, windows, sysutils, messages,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
// Anmelden der Schrift:
AddFontResource(Pchar(ExtractFilePath(ParamStr(0))+'NAME DER SCHRIFFT'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
// Schrift abmelden
RemoveFontResource(pchar(ExtractFilePath(ParamStr(0))+'NAME DER SCHRIFFT'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end.
Im Programm schreibst du dann einfach (als Beispiel):
Edit1.Font.Name := 'Name der Schrifft';