home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / initut1a / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-24  |  1.1 KB  |  25 lines
  1. Attribute VB_Name = "Module1"
  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.