کپی فونت در سیستم و رفرش آن

[relax_cp]

با سلام
من برنامه ای را نوشتم و فونت های جدید را در پوشه فونت کپی می کنم ولی حتما باید سیستم ریستارت شود وگرنه فونت ها خراب نمایش داده می شود.
می خواستم ببینم کسی می تونه راهنمایی کنه باید چکار کنم تا بعد از کپی فونت ها نیازی به راه اندازی مجدد نباشه؟

[HAMRAHSOFT.IR]

شاخه فوت داخل Control Panel را باز بسته كني مشكلت حل ميشه

[relax_cp]

مرسي ولي اين يك ضعف هست. خودم مي دونم . مي خوام بدونم راه حل بهتري غير از باز و بسته كردن پوشه هم وجود دارد مثل دستورات وي بي.؟؟؟؟؟

[مهران رسا]

این واسه Add کردن فونت جدید :




Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Sub Form_Load()
AddFontResource "c:\Fontname.fon"
End Sub


این هم Refresh کردن سیستم :




Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long
Private Sub Command1_Click()
InvalidateRect 0&, 0&, False
End Sub




البته خودم تست نکردم . ولی احتمالاً مشکلت حل میشه .

[relax_cp]

متشكرم. حتما امتحان مي كنم. تشكر.

[xxxxx_xxxxx]

تابع AddFontResource فونت رو به برنامه ميشناسونه و در هر بار اجراي برنامه و قبل از نمايش تكستها (همونطور كه آقاي M8SPY تو رويداد لود برنامه نوشتند) بايد فونت رو از طريق اين تابع به برنامه بشناسونيد چون فونت به داخل پوشه فونت كپي نميشه.

[majjjj]

سلام مگه شما از برنامتون ستاپ نمیسازی؟
ستاپ سازها (مثلwise اینستالر)این کار رو بخوبی براتون انجام میدن