|
Instalacja i deinstalacja czcionki.(przysłał SPECtrum) |
|
|
|
Napisał Administrator
|
|
sobota, 21 styczeń 2006 |
'Chyba łatwo się domyślić, co robi ta funkcja. (De)Instaluje czcionkę. Aby
'zainstalować: Czcionka "MojaCzcionna.TTF", True Ady zdeinstalować:
'Czcionka "MojaCzcionna.TTF", False
Option Explicit
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Function Czcionka(fntName As String, Optional addRem As Boolean = True) As Long
Dim ret As Long
If addRem = True Then
ret = AddFontResource(fntName)
Else
ret = RemoveFontResource(fntName)
End If
Czcionka = ret
End Function
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
