+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تثبيت الخطوط مع أول تشغيل للبرنامج (/showthread.php?tid=3844)
تثبيت الخطوط مع أول تشغيل للبرنامج - SamirAloui - 29-01-2012
السلام عليكم
إستعملت في مشروعي مجموعة من الخطوط اللتي لا تكون مثبتة مع النظام العادي
بدى مشروعي مغاير تماماً لما أشغله في غير جهازي ، و المشكل هو في الخطوط ، و لما أثبت الخطوط الضرورية يحل المشكل
السؤال :
هل من طريقة برمجية لتثبيت الخطوط مع أول تشغيل للبرنامج ؟
تثبيت الخطوط مع أول تشغيل للبرنامج - أبو معاذ - 30-01-2012
[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]
تثبيت الخطوط مع أول تشغيل للبرنامج - SamirAloui - 09-02-2012
هل يمكن جعل المسار ديناميكي بدل من مسار ثابت ؟
أقصد هنا
'c:\FONTS\MyFont.TTF'
تثبيت الخطوط مع أول تشغيل للبرنامج - abdelali91 - 09-02-2012
جربت هذا الكود لكن سبب لي بط في تشغيل البرنامج بل لم يشتغل
تثبيت الخطوط مع أول تشغيل للبرنامج - getsource - 21-11-2013
السلام عليكم
بالنسة للمسار الديناميكي اليك التالي :
ExtractFilePath(Application.ExeName)+ 'FONTS\MyFont.TTF';
سلام