WritePrivateProfileString的问题啊 -----------------------

ketao_78 2002-10-11 12:02:07
大家有遇到WritePrivateProfileString在98下文件没有产生的情况么

而且不管文件产生了没有,返回值老是1
为什么
...全文
157 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
Eden 2002-10-20
  • 打赏
  • 举报
回复
又捡着了。
ketao_78 2002-10-16
  • 打赏
  • 举报
回复
其实是我自己没有看清文档,因为是在cathe 中没有释放
GetWindowPos 2002-10-16
  • 打赏
  • 举报
回复
我也研究过这个问题,不过不用弄这么复杂呀
先在模块写一个过程,得出INI里面的数据,如果返回空字符串那就代表没产生过INI,我做过的,不到10行就行做出来了,真的!
ketao_78 2002-10-15
  • 打赏
  • 举报
回复
大家快来啊,给分--------------
griefforyou 2002-10-12
  • 打赏
  • 举报
回复
捡分
water_j 2002-10-12
  • 打赏
  • 举报
回复
hehe
ketao_78 2002-10-12
  • 打赏
  • 举报
回复
问题已经解决了,哎,白费了,干脆散分得了,来的给分阿 ---------------------------------
ketao_78 2002-10-12
  • 打赏
  • 举报
回复
的确是有时候没有产生,有时候可以产生
在WIN2K下没有问题
ketao_78 2002-10-12
  • 打赏
  • 举报
回复
是不是WIN98参数设置不正确,就是有时候这样调用有时候不成功,文件没有产生
zyl910 2002-10-11
  • 打赏
  • 举报
回复
是你没调用好!
我这里一直用Win98,没问题



Option Explicit
Private Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
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


'FileName:Ini文件
'PathName:小节名
'KeyName:值名
'WriteValue:值
Public Function WriteIni(FileName As String, _
PathName As String, _
KeyName As String, _
WriteValue As String) As Long
Dim Rc As Long

Rc = WritePrivateProfileString(PathName, KeyName, WriteValue, FileName)

WriteIni = Rc

End Function

'FileName:Ini文件
'PathName:小节名
'KeyName:值名
'BackValue:返回值
'Default:默认字符
Public Function ReadIni(FileName As String, _
PathName As String, _
KeyName As String, _
BackValue As String, _
Optional Default As String = "缺省") As Long
Dim Rc As Long
Dim TempNum As String
Dim TempStr As String

TempStr = String$(255, Chr$(0))
TempNum = 255

Rc = GetPrivateProfileString(PathName, KeyName, Default, TempStr, TempNum, FileName)

If Rc <> 0 Then
BackValue = Left$(TempStr, TempNum)

End If

ReadIni = Rc

End Function

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧