请看下面一段代码：
Private Sub Command3_Click()
Dim str As String
GetPrivateProfileString "boot loader", "default", "", str, 256, "G:\copy\boot.ini"
Text1.Text = str
End Sub
G:\copy\boot.ini是我复制的C:\boot.ini，先拿它联系以免损坏系统文件
（函数已经声明过）
当我运行程序并按下Command3时，出现如下提示：
"0x7c832b26"指令引用"0x00000000"内存，该内存不能为"written"（别的api函数使用时都没有这个问题！！！）
着该如何解决！！！
各位大虾帮帮忙！！

你声明得对不对？

用api的吗?如果不是 自己写一个也可以,反正差不多了

Public Function Read_ini(fn As String, MyStr As String) As String
Dim TextLine
Dim Get_linetext
Open fn For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
If UCase(Left(TextLine, Len(MyStr))) = UCase(MyStr) Then
Get_linetext = Trim(Mid(TextLine, Len(MyStr) + 1, Len(TextLine) - Len(MyStr)))
Read_ini = Trim(Right(Get_linetext, Len(Get_linetext) - 1))
Exit Do
End If
Loop
Close #1 ' 关闭文件。
End Function

。。。

Option Explicit

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()
Dim ret As Long
Dim OutStr As String * 256
ret = GetPrivateProfileString("boot loader", "default", "", OutStr, 256, "C:\boot.ini")
Print OutStr
End Sub

自己想下原因吧

[此贴子已经被作者于2007-8-24 14:42:57编辑过]

这个是我以前做的。。。。你可以参照一下

Public 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 Type getini
strProvider As String
strServer As String
strUserid As String
strPassword As String
strDatabase As String
End Type
Public Sub main() '读取INI文件
With X '先给变量赋30个空格
.strProvider = Space(30)
.strServer = Space(30)
.strUserid = Space(30)
.strPassword = Space(30)
.strDatabase = Space(30)

GetPrivateProfileString "connectct-zx2", "provider", "sqloledb", .strProvider, 30, App.Path & "\Connect.ini"
GetPrivateProfileString "connectct-zx2", "server", "server", .strServer, 30, App.Path & "\Connect.ini"
GetPrivateProfileString "connectct-zx2", "User id", "sa", .strUserid, 30, App.Path & "\Connect.ini"
GetPrivateProfileString "connectct-zx2", "Password", "hushimiao", .strPassword, 30, App.Path & "\Connect.ini"
GetPrivateProfileString "connectct-zx2", "Database", "jxc", .strDatabase, 30, App.Path & "\Connect.ini"

'取消空格，截取回车符
.strProvider = Left(Trim(.strProvider), (Len(Trim(.strProvider)) - 1))
.strServer = Left(Trim(.strServer), (Len(Trim(.strServer)) - 1))
.strUserid = Left(Trim(.strUserid), (Len(Trim(.strUserid)) - 1))
.strPassword = Left(Trim(.strPassword), (Len(Trim(.strPassword)) - 1))
.strDatabase = Left(Trim(.strDatabase), (Len(Trim(.strDatabase)) - 1))

PobjCn.Open "provider=" & .strProvider & ";server=" & .strServer & ";user id=" & .strUserid & ";password=" & .strPassword & ";database=" & .strDatabase
End With
frmlogin.Show

以解决了，谢谢各位，原来我没有给str1变量赋初值阿，加上256个空格就行了，还是班主们厉害啊