سوال از استید عزیز در باره فونت

[sanaei]

من برنامه دارم ومیخوام با زدن یک کلید ، یک فونت که در کنار برنامه ام رو CD رایت میکنم ان فونت را واسم نصب کنید.ممنون میشم از دوستان کمکم کنند
بی نهایت سپاس

[m.4.r.m]

اولا این کار موقعی که setup ساز برای برنامت میسازی خودش فونت ها رو اتوماتیک انتقال میده به پوشه فونت ویندوز اما دستی میتونی اینطوری بنویسی

Private Sub Command1_Click()

FileCopy App.Path & "/Fonts/B Titr.ttf", "C:\Windows\Fonts"

MsgBox "فونت با موفقیت نصب شد", vbInformation, ""

End Sub

[sanaei]

اولا این کار موقعی که setup ساز برای برنامت میسازی خودش فونت ها رو اتوماتیک انتقال میده به پوشه فونت ویندوز اما دستی میتونی اینطوری بنویسی

Private Sub Command1_Click()

FileCopy App.Path & "/Fonts/B Titr.ttf", "C:\Windows\Fonts"

MsgBox "فونت با موفقیت نصب شد", vbInformation, ""

End Sub

بی نهایت تشکر دوست عزیز من این کار انجام دادم فقط یک مشکل دیگه بوجود میاید اینکه فونت دقیق در پوشه فونت ها قرار میگیرد ولی مورد استفاده در برنامهای بخصوص قرار نمی گیرد و حتی ریسارت میکنم درست نمیشه و تنها باید بریم و پوشه فونت ویندوز را یکبار باز کنم و برگردم مبی بینم فونت در برنامه ها قابل استفاده است ممنون میشم ادامه کار را راهنماییم کنی