salut
Peut-être inclure une ressource dans ton exe...
avec un bloc note tu écris ceci et tu le ferme...
TAFONT TEXT mafont.ttf
TAFONT=le nom interne de l'élément dans le fichier res.
nb:doit-être en majuscule
TEXT= le type de donné
nb:doit-être en majuscule
mafont.ttf = le fichier font que tu souhaite inclure dans le res.
le nom du fichier texte sera le nom de la res.
ensuite tu "ouvre avec" le compilateur de ressource de delphi
brcc32.exe
il devrais se trouvé par défaut dans
C:\Program Files\Borland\Delphi6\Bin
si tu ne l'as jamais utilisé il n'est pas dans ta liste de choix et tu dois parcourir manuellement ...
copie le res obtenu dans le répertoire de ton application
tu auras maintenant une ressource que tu inclueras dans ton programme à la compilation
implementation
{$R *.dfm}
{$R maressource.res}//c'étais le nom du fichier bloc note
//après au démarrage de l'application on vérifie si la
// font existe sinon on la créé.
procedure TForm1.FormCreate(Sender: TObject);
begin
if not(FileExists('C:\WINDOWS\Fonts\president.ttf'))then
begin
with TResourceStream.Create(hInstance,'TAFONT','TEXT') do
try
SaveToFile('C:\WINDOWS\Fonts\president.ttf');
finally
Free;
end;
end;
//autre code ?
end;
à noté que même si l'on change le nom du fichier de la font windows renomme automatiquement par son nom interne et donc ici: Si et Seulement Si president.ttf n'existe pas il sera créé même si l'on tente de créé abc.ttf ...
j'ai choisis une font true type
sinon il faudra trouvé le bon extension
avec l'option de recherche/fichier/par nom
tafont.a .b .c
jusqu'a ce que tu trouve son extension exacte
pour accélérer place lafont sur le bureau et ne
recherche que sur le bureau
bonne chance
yve