نصب فونت در برنامه

[romixery]

سلام دوستان
من در برنامم از فونتي استفاده كردم كه خوب همه روي كامپيوترشون ندارن.
حالا اگه بخوام اين فونت رو نصب كنم بايد چيكار كنم
در انجمن جستجو كردم. چند تاپيك با اين نام بود كه ديدم. ولي براي نصب از كليدهاي ريجستري استفاده كرده بودن. مي خوام بدونم راهي به جز اينكه فونتها رو از طريق ريجستري به سيستم بشناسونيم وجود نداره؟
مثلا اگه فايل فونت رو در شاخه Windows>Font كپي كنيم كار حل ميشه؟

موفق باشين
باي

[F A R H A D]

سلام دوستان
من در برنامم از فونتي استفاده كردم كه خوب همه روي كامپيوترشون ندارن.
حالا اگه بخوام اين فونت رو نصب كنم بايد چيكار كنم
در انجمن جستجو كردم. چند تاپيك با اين نام بود كه ديدم. ولي براي نصب از كليدهاي ريجستري استفاده كرده بودن. مي خوام بدونم راهي به جز اينكه فونتها رو از طريق ريجستري به سيستم بشناسونيم وجود نداره؟
مثلا اگه فايل فونت رو در شاخه Windows>Font كپي كنيم كار حل ميشه؟

موفق باشين
باي

سلام
از تابع زیر استفاده کنید:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

help دلفی هم نتیجه میداد!
موفق باشی

[CPUSatan]

من خودم توي Windows > Fonts كپي كردم حاجت گرفتم!

ولي از اين كار هم مي توني استفاده كني:

توي OnCreate فرمت بنويس:

AddFontResource('c:\FONTS\MyFont.TTF') ;

SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

با اين كار فونت به Resource هايي كه برنامه ازشون استفاده مي كنه اضافه مي شه ولي يادت باشه موقع خروج از

برنامه بايد حذفش كني، پس تو رويداد OnDestroy فرمت بنويس:

RemoveFontResource('C:\FONTS\MyFont.TTF') ;

SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

خواهش مي كنم!

[The_matrix]

سلام دوستان

مثلا اگه فايل فونت رو در شاخه Windows>Font كپي كنيم كار حل ميشه؟

موفق باشين
باي

سلام
بله دوست عزیز تو ویندوز باید همین کارو کرد یه کپی پیست ساده!

[mojtabadj2007]

راه حل cpusatan مشکل داره اومدیم و ویندوز در درایو سی نصب نشده بود

[romixery]

راه حل cpusatan مشکل داره اومدیم و ویندوز در درایو سی نصب نشده بود

سلام
نه عزيزم. مشكلي نداره. چون با دستور GetwindowsDirectory اين مشكلم حل ميشه.
موفق باشي
باي