home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Webpage Maker 2000 / IniMod.bas < prev    next >
Encoding:
BASIC Source File  |  1999-12-13  |  1.0 KB  |  25 lines
  1. Attribute VB_Name = "IniMod"
  2. Public Declare Function GetPrivateProfileSection Lib "kernel32" _
  3.     Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, _
  4.     ByVal lpReturnedString As String, ByVal nSize As Long, _
  5.     ByVal lpFileName As String) As Long
  6.  
  7. Public Declare Function GetPrivateProfileString Lib "kernel32" _
  8.    Alias "GetPrivateProfileStringA" (ByVal lpApplicationName _
  9.    As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
  10.     ByVal lpReturnedString As String, ByVal nSize As Long, _
  11.     ByVal lpFileName As String) As Long
  12.  
  13. Public Declare Function WritePrivateProfileSection Lib "kernel32" _
  14.     Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, _
  15.     ByVal lpString As String, ByVal lpFileName As String) As Long
  16.  
  17. Public Declare Function WritePrivateProfileString Lib "kernel32" _
  18.     Alias "WritePrivateProfileStringA" (ByVal lpApplicationName _
  19.     As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
  20.     ByVal lpFileName As String) As Long
  21.     
  22.     Public gstrKeyValue As String * 256
  23.  
  24.  
  25.