关于在VB中利用API读取INI文件的问题!!帮主亲自卖大白菜!!80分一个!!
12.INI文件内容:
[SQL]
Driver=C:\WINNT\System32\sqlsrv32.dll
Setup=aaaa
32Bit=1
代码如下:
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
Private Sub Command1_Click()
Section = "SQL"
key = "Setup"
Dim ReturnStr,readstring As String
Dim ReturnLng As Long
ReadString = vbNullString
ReturnStr = Space(20)
ReturnLng = GetPrivateProfileString(Section,key,vbNullString,ReturnStr, 20, IniFileName)
ReadString = Left(ReturnStr, ReturnLng)
Text1.Text = readstring
End Sub
这只是其中的一部分代码,前提是12.INI是可读的,IniFileName显示是12.INI!!
但returnlng的值是零!!!TEXT1.TEXT的值也是零!!!
请高人帮帮拉!!!