@Natcree
Ist die Frage rechtlich oder technisch gemeint?
Wenn technisch, und du die Schrift nur für dein Programm nutzen willst. Hier zwei Funktionen aus einem meiner Programme. Die Parameter-Beschreibung ist nur grob:
Delphi-Quellcode:
function AddFont(FileName: String): Boolean;
begin
//AddFontResourceEx entspricht etwa AddFontResource, hat aber einige Extras
//Param A: Name/Pfad einer gültigen Schriftdatei (nullterminierter String)
//Param B: FR_PRIVATE, FR_NOT_ENUM.
//- FR_PRIVATE: nur der eigene Prozess kann die Schrift nutzen.
//- FR_NOT_ENUM: Schrift wird nicht der Schriftliste hinzugefügt.
//Param C: Reserviert, muss 0 sein.
Result := AddFontResourceEx(PChar(FileName), FR_PRIVATE, 0) > 0;
end;
function RemoveFont(FileName: String): Boolean;
begin
//Param B: muss gleich sein wie bei AddFontResourceEx beim Hinzugefügen.
//Param C: Reserviert, muss 0 sein.
Result := RemoveFontResourceEx(PChar(FileName), FR_PRIVATE, 0)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AddFont(ExtractFilePath(ParamStr(0)) + 'test.ttf');
Label1.Font.Name := 'test';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RemoveFont(ExtractFilePath(ParamStr(0)) + 'test.ttf');
end;