خواندن فونت از کنار برنامه

سلام دوستان منمیخواستم تو برنامم از فونت iran nastealigh استفاده کنم.حالا اگه روسیستم کاربر این فونت نباشه مشکل پیش میاد میخواستم ببینم چجور میتونم برنامهفونت رو از کنار خودش بخونه یا اون فونت رو رو سیستم طرف نصب کنه.به هر حال هر کدوم از این روشها کارم رو راه می اندازه.
ممنون:46:

با استفاده از تابع سیستمی AddFontResource میشه این کار رو انجام داد...!؟! فراخوانی این تابع به شکل زیره...!؟! :

کد:

---

Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

---

یه تابع دیگه هم هست... RemoveFontResource ... این یکی هم صورت زیر فراخوانی میشه...!؟! :

کد:

---

Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long

---

اینم یه مثال از نحوه کارکردن با این توابع...!؟! :

کد:

---

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Dim AppPath As String
Private Sub Form_Load()
    'The KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    AppPath = App.Path
    If Right$(AppPath, 1) <> "\" Then AppPath = AppPath + "\"
    'Add the font to the Windows Font Table
    AddFontResource AppPath + "myfont.ttf"
    'Write something on the form
    Me.AutoRedraw = True
    Me.FontName = "myfont"
    Me.Print "This is a test!"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Remove the font from the Windows Font Table
    RemoveFontResource AppPath + "myfont.ttf"
End Sub

---

موفق باشی...!؟!

یه راه دیگه
فکر کنم بشه با دستور filecopy اون فایل فونت رو داخل پوشه فونت سیستم کاربر کپی کرد