home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Audio_Reco210496362008.psc / INI.bas < prev    next >
BASIC Source File  |  2007-11-17  |  2KB  |  45 lines
  1. Attribute VB_Name = "modINI"
  2. Option Explicit
  3.  
  4. Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" Alias "GetPrivateProfileIntA" ( _
  5.     ByVal lpApplicationName As String, _
  6.     ByVal lpKeyName As String, _
  7.     ByVal nDefault As Long, _
  8.     ByVal lpFileName As String) As Long
  9.  
  10. Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" ( _
  11.     ByVal lpApplicationName As String, _
  12.     ByVal lpKeyName As String, _
  13.     ByVal lpDefault As String, _
  14.     ByVal lpReturnedString As String, _
  15.     ByVal nSize As Long, _
  16.     ByVal lpFileName As String) As Long
  17.  
  18. Private Declare Function WritePrivateProfileSection Lib "kernel32.dll" Alias "WritePrivateProfileSectionA" ( _
  19.     ByVal lpAppName As String, _
  20.     ByVal lpString As String, _
  21.     ByVal lpFileName As String) As Long
  22.  
  23.  
  24. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
  25.     ByVal lpApplicationName As String, _
  26.     ByVal lpKeyName As String, _
  27.     ByVal lpString As String, _
  28.     ByVal lpFileName As String) As Long
  29.  
  30.  
  31.  
  32. Public Function WriteINI(Section As String, Variable As String, Value As String, File As String) As Long
  33.     WriteINI = WritePrivateProfileString(Section, Variable, Value, File)
  34. End Function
  35.  
  36. Public Function GetINIString(Section As String, Variable As String, File As String) As String
  37.     Dim temp As String * 255
  38.     
  39.     GetINIString = Left(temp, GetPrivateProfileString(Section, Variable, "", temp, 255, File))
  40. End Function
  41.  
  42. Public Function GetINILong(Section As String, Variable As String, File As String, Optional ByVal nDefault As Integer) As Long
  43.     GetINILong = GetPrivateProfileInt(Section, Variable, nDefault, File)
  44. End Function
  45.