[Creat0R]

как правильно удалить шрифт ? »

Примерно так:

Код:

Func _FileFontUnInstall($sFontFile)
    Local Const $HWND_BROADCAST = 0xFFFF
    Local Const $WM_FONTCHANGE = 0x1D

    Local $sFontsPath = @WindowsDir & "\fonts"
    Local $sFontName = StringRegExpReplace($sFontFile, "^.*\\", "")
    If @extended Then $sFontsPath = StringRegExpReplace($sFontFile, "\\[^\\]*$", "")

    Local $aRet = DllCall("Gdi32.dll", "Int", "RemoveFontResourceW", "wstr", $sFontsPath & "\" & $sFontName)

    If IsArray($aRet) And $aRet[0] > 0 Then
        Local $iEnum = 0, $sRegVal = "", $sRegRead
        Local $sRegFontsPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"

        While 1
            $iEnum += 1
            $sRegVal = RegEnumVal($sRegFontsPath, $iEnum)
            If @error <> 0 Then ExitLoop

            $sRegRead = RegRead($sRegFontsPath, $sRegVal)

            If $sRegRead = $sFontsPath & "\" & $sFontName Or $sRegRead = $sFontName Then
                RegDelete($sRegFontsPath, $sRegVal)
                DllCall("User32.dll", "Int", "SendMessage", "hwnd", $HWND_BROADCAST, "int", $WM_FONTCHANGE, "int", 0, "int", 0)
                ExitLoop
            EndIf
        WEnd
    EndIf

    Return 1
EndFunc