مساعده في نسخ الخط

لو الفكره مستحيله ارجو من احد المبرمجين اخباري حتي اوفر عناء البحث في شئ اخر

أخي الكريم . الخط عبارة عن ملف عادي كأي ملف أخر

ابحث عن اسمه واستخدم الدالة

filecopy لنسخ الخط

و الدالة kill لحذف الملف .

تحياتي

هذا مثال سريع للعلمية

fonts.rar

شكرا علي الرد

بس انا اعرف ان لازم يتم تعريف التغير اللي حصل (نسخ الخط )

هل الكلام ده صح ولا غلط

جاري تحميل المثال

مثال رائع بارك الله فيك

ما اريده في برنامجي ان اقوم بنسخ الخط من مجلد برنامجي الي الويندوز C:\WINDOWS\Fonts

ويقوم بالعمل دون ان اعيد تشغيل الجهاز

فهل يمكن ذلك من خلال الداله filecopy

شكرا علي الاهتمام

mkhaled كتب:

مثال رائع بارك الله فيك

ما اريده في برنامجي ان اقوم بنسخ الخط من مجلد برنامجي الي الويندوز C:\WINDOWS\Fonts

ويقوم بالعمل دون ان اعيد تشغيل الجهاز

فهل يمكن ذلك من خلال الداله filecopy

شكرا علي الاهتمام

نعم ممكن ذلك .. وبدون اعادة تشغيل الجهاز .

فقط قم بعكس العملية .

تحياتي

جزاك الله كل خير

:clapping:

حصلت علي هذا الكود هل له علاقه بالموضوع

Private Const HWND_BROADCAST = &HFFFF&
Private Const WM_FONTCHANGE = &H1D
Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Form_Load()
    Dim res As Long
    ' add the font
    res = AddFontResource("C:\Fonts\Nordic__.ttf")
    If res > 0 Then
        ' alert all windows that a font was added
        SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
        MsgBox res & " fonts were added!"
    End If
End Sub

mkhaled كتب:

حصلت علي هذا الكود هل له علاقه بالموضوع

Private Const HWND_BROADCAST = &HFFFF&
Private Const WM_FONTCHANGE = &H1D
Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Form_Load()
    Dim res As Long
    ' add the font
    res = AddFontResource("C:\Fonts\Nordic__.ttf")
    If res > 0 Then
        ' alert all windows that a font was added
        SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
        MsgBox res & " fonts were added!"
    End If
End Sub

نعم اخي الكريم . هذه الطريقة صحيحه مائة بالمائة .. وبها خاصية أفضل . فهي تعطي التأثير مباشرة . أي انه في حالة انك كنت فاتح برنامج مثلا الوورد . فعند نسخ الملف سوف يعمل الوورد بأن هناك ملف خط جديد تم تنصيبه في الجهاز .

أما طريقة FILECOPY فلن يعلم برنامج الوورد بأن الخط تمت اضافته إلا بعد أن تقوم بإعادة تشغيل برنامج الوورد .

تحياتي

شكرا اخي بارك الله فيك

انا عارف اني تعبتك معايا