Thread: ini file 2
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim Thomlinson Jim Thomlinson is offline
external usenet poster
 
Posts: 5,939
Default ini file 2

Give this a look to see if it helps...

http://msdn.microsoft.com/library/de...filestring.asp
--
HTH...

Jim Thomlinson


"Christmas May" wrote:

Fellow Programmers,

I've gained some knowledge about ini files since my first posting. However,
I still have one question remaining. Why/How does the following code pull a
value out of the registry instead of from win.ini?

Private Declare Function GetPrivateProfileString _
Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Sub readFromINI()
Dim sFileName As String, sHeader As String, sKey As String
Dim buf As String * 256
Dim length As Long

sFileName = "C:\WINDOWS\WIN.INI"
sHeader = "intl"
sKey = "sCountry"

length = GetPrivateProfileString( _
sHeader, sKey, "<no value", _
buf, Len(buf), sFileName)
MsgBox Left$(buf, length)
End Sub


Thanks in advance,

Christmas May