www.pudn.com > 维文输入法源代码.rar > Module3.bas

Attribute VB_Name = "Module3" 
Option Explicit 
 
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
Declare Function GetVersion Lib "kernel32" () As Long 
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 
Public Const HWND_BROADCAST = &HFFFF& 
Public Const WM_FONTCHANGE = &H1D