نصب و حذف فونت

[programmermp]

سلام خسته نباشيد

من يك كد واستون مي زارم كه كار حذف و نصب فونت رو انجام مي ده اما مي خوام ببينم راهي ديگه اي واسه اين كار هست يا نه كه بهتر از اين باشه چون من با استفاده از اين كد واسه حذف بايد حتما فونت رو با يك خط كد اضافه حذف كنم تا از تو پوشه فونت ها كامل حذف بشه و بگيم ديگه نيست اون فونت و در برنامه ازش استفاده نمي شه و همچنين واسه نصب فونت اون تابع نصب به تنهايي فونت رو اضافه نمي كنه اول بايد با يك خط كد خود فونت رو تو پوشه فونت ها كپي كنم. نمي دونم شايد همين راهش باشه

لطفا كسي اگه راه بهتر يا كد بهتري داره ارائه بده با تشكر




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

' returns true if successful in installing the font
' returns false if fail
' example usage : InstallFont "C:\Font.ttf"
Public Function InstallFont(ByVal FileName As String) As Boolean

InstallFont = AddFontResource(FileName) <> 0

End Function

' returns true if succesful in uninstalling the font
' false if fail or the font is not installed yet
' it does not delete the file specified, but removes the
' corresponding font file in Windows fonts directory instead
Public Function UninstallFont(ByVal FileName As String) As _
Boolean

UninstallFont = RemoveFontResource(FileName) <> 0

End Function


اين هم لينكي كه ازش كد رو گرفتم

http://www.freevbcode.com/ShowCode.asp?ID=1945