www.pudn.com > Bar_____________________Code.rar > CommModule.bas

Attribute VB_Name = "Module1" 
  Option Explicit 
     
  Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long 
  Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long 
     
  '自定义读取INI函數 
  Public Function getIni(ByVal pfileName As String, ByVal psection As String, ByVal pkey As String) As String 
          Dim x     As Long, Buff       As String * 128, i% 
          x = GetPrivateProfileString(psection, pkey, "", Buff, 128, pfileName) 
          i = InStr(Buff, Chr(0)) 
          getIni = Trim(Left(Buff, i - 1)) 
  End Function 
     
  '自定义写入INI函數 
  Public Function WriteIni(ByVal psection As String, ByVal pkey As String, ByVal pvalue As String, ByVal filePath As String) As Boolean 
          Dim x     As Long, Buff       As String * 128, i           As Integer 
          Buff = pvalue + Chr(0) 
          x = WritePrivateProfileString(psection, pkey, Buff, filePath) 
          WriteIni = x 
  End Function