المشاركات : 75
المواضيع 26
:
: 0
الإنتساب : Dec 2011
السلام عليكم
إستعملت في مشروعي مجموعة من الخطوط اللتي لا تكون مثبتة مع النظام العادي
بدى مشروعي مغاير تماماً لما أشغله في غير جهازي ، و المشكل هو في الخطوط ، و لما أثبت الخطوط الضرورية يحل المشكل
السؤال :
هل من طريقة برمجية لتثبيت الخطوط مع أول تشغيل للبرنامج ؟
المشاركات : 1,252
المواضيع 170
:
: 1,500
الإنتساب : Jul 2009
[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]
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
المشاركات : 75
المواضيع 26
:
: 0
الإنتساب : Dec 2011
هل يمكن جعل المسار ديناميكي بدل من مسار ثابت ؟
أقصد هنا
'c:\FONTS\MyFont.TTF'
المشاركات : 71
المواضيع 38
:
: 0
الإنتساب : Aug 2010
جربت هذا الكود لكن سبب لي بط في تشغيل البرنامج بل لم يشتغل
المشاركات : 35
المواضيع 6
:
: 1
الإنتساب : Mar 2008
السلام عليكم
بالنسة للمسار الديناميكي اليك التالي :
ExtractFilePath(Application.ExeName)+ 'FONTS\MyFont.TTF';
سلام
