نصب فونت [بایگانی] - برنامه نویس

alizanganeh

شنبه 21 تیر 1393, 13:05 عصر

با سلام خدمت اساتید محترم
میخواستم چطوری میتونم برنامه ای بنویسم که خودش فونت های مورد نظر رو نصب کنه ؟
چون امتحان کردم و با کپی کردن در پوشه ی فونت درایو ویندوز ، نمیشه کاری کرد
اگر کدش رو داشته باشید و بدید ممنون میشم ♥
ممنون

Rasul75

شنبه 21 تیر 1393, 13:32 عصر

تو سایت های ایرانی زیاد نمی تونی چنین کدهایی پیدا کنی ولی تو سایت های خارجی زیاد از این کد ها ریخته برای همین من این 2 تا ماژول رو پیدا کردم فقط زیاد تابع داره دیگه دست خودتو می بوسه خودت یه کاریش بکن.

hmbarnamenevis

شنبه 28 تیر 1393, 14:12 عصر

برای کپی در پوشه فونت ویندوز ابتدا باید این مسیر را بدست آورد برای این کار این تابع API را در بخش General قرار ده:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
یک تابع برای شما قرار دادم تا با آن مسیر پوشه ی ویندوز بدست آید:

Private Function GetAddressSysFont() As String
Dim s As String
Dim l As Long
s = Space(200)
l = GetWindowsDirectory(s, 200)
s = Left(s, l)
GetAddressSysFont = s & "\fonts"
End Function

کپی کردن فونت ها: من پیش فرض در نظر گرفتم که فونت ها در مسیر جاری (همان مسیری که نرم افزار اجرا می شود) و در پوشه ی MyFont قرار دارند.

Dim AddressSourceFont As String
AddressSourceFont = App.Path 'get root address
If Right(App.Path, 1) <> "\" Then AddressSourceFont = AddressSourceFont & "\" 'Add \ to address
FileCopy AddressSourceFont & "MyFont\Font1.ttf", GetAddressSysFont