delphi4arab منتديات دلفي للعرب

السلام عليكم

إستعملت في مشروعي مجموعة من الخطوط اللتي لا تكون مثبتة مع النظام العادي
بدى مشروعي مغاير تماماً لما أشغله في غير جهازي ، و المشكل هو في الخطوط ، و لما أثبت الخطوط الضرورية يحل المشكل

السؤال :
هل من طريقة برمجية لتثبيت الخطوط مع أول تشغيل للبرنامج ؟

[INDENT]
وعليكم السلام ورحمة الله وبركاته ،
جرب الكود التالي :

كود :
procedure TForm1.FormCreate(Sender: TObject) ;
 begin

   AddFontResource('c:\FONTS\MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
 end;
 
 {Before application terminates we must remove our font:}
 procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
 begin
   RemoveFontResource('C:\FONTS\MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;

بالتوفيق إن شاء الله.
[/INDENT]

هل يمكن جعل المسار ديناميكي بدل من مسار ثابت ؟

أقصد هنا

'c:\FONTS\MyFont.TTF'

جربت هذا الكود لكن سبب لي بط في تشغيل البرنامج بل لم يشتغل

السلام عليكم
بالنسة للمسار الديناميكي اليك التالي :

ExtractFilePath(Application.ExeName)+ 'FONTS\MyFont.TTF';

سلام

SamirAloui

أبو معاذ

SamirAloui

abdelali91

getsource