Font.name mitliefern?

[Popov]

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