Если в системе нет шрифта

[NIKOLAYY2]

Если программа использует шрифт- тот который не стоял по умолчанию, то большая вероятность того что на другом компьютере при использовании данной программы мы получим ????? вопросики там где был текст.

Есть ли какой способ предотвратить такое? (ложить может шрифт в папку с проектом, устанавливать программным способом этот шрифт при старте программы) или что-то еще может предпринять?

[NetSpace]

можно и программным способом. в файл ресурсов запихнуть файл шрифта, а потом его создать и использовать. пример прилагаю

unit EXEFonts;
interface
uses Windows,Messages,Classes,Forms,Controls,StdCtrls;
type TForm1=class(TForm)
     Button1:TButton;
     Label1:TLabel;
     procedure LoadFont;
     procedure Button1Click(Sender:TObject);
     private{Private declarations}
     public{Public declarations}
end;
var Form1:TForm1;
implementation
{$R *.DFM}
{$R dialog.res}

procedure TForm1.LoadFont;
var Res:TResourceStream;
begin
   Res:=TResourceStream.Create(hInstance,'MYFONT',Pchar('ANYOL1'));
   Res.SavetoFile('Crystal.ttf');
   Res.Free;
   AddFontResource(PChar('Crystal.ttf'));
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
   LoadFont;
   Label1.Font.Name:='Crystal';
end;

end.

если что, исходник могу скинуть полностью

[NIKOLAYY2]

Это он в папке шрифтов прописывается в системе?

[NetSpace]

нет, он создаётся в папке рядом с программой и спокойно используется. в ситсему тут ничего не внедряется. хотя, можно его запилить в папку Windows\Font и устроить перезагрузку с прописью в реестре. но это долго и муторно. ведь пользователю хочется "рррраз!!! и полетел!!!!"

[kropotkina-alice]

Использование своего шрифта в программе

procedure TForm1.FormCreate(Sender: TObject);
begin
//объявляем свой шрифт
AddFontResource('IZHITSA.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
//применяем его
Form1.font.name := 'IZHITSA';
Form1.font.size := 10;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//ликвидируем
RemoveFontResource('IZHITSA.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;