您的位置：程序门 -> vb ->



请问这段代码有什么作用？


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


请问这段代码有什么作用？
发表于：2007-05-11 11:13:42 楼主
private   declare   function   getprivateprofileint   lib   "kernel32 "   _
                                alias   "getprivateprofileinta "   _
                                （byval   lpapplicationname   as   string,   _
                                byval   lpkeyname   as   string,   _
                                byval   ndefault   as   long,   _
                                byval   lpfilename   as   string)   _
                                as   long
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   integer,   _
                                byval   lpfilename   as   string)   _
                                as   integer
private   declare   function   writeprivateprofilestring   lib   "kernel32 "   _
                                alias   "writeprivateprofilestringa "   _
                                （byval   lpapplicationname   as   string,   _
                                byval   lpkeyname   as   string,   _
                                byval   lpstring   as   string,   _
                                byval   lpfilename   as   string)   _
                                as   long
                               
private   declare   function   getprivateprofilesection   lib   "kernel32 "   _
                                alias   "getprivateprofilesectiona "   _
                                （byval   lpappname   as   string,   _
                                byval   lpreturnedstring   as   string,   _
                                byval   nsize   as   long,   _
                                byval   lpfilename   as   string)   _
                                as   long
private   declare   function   writeprivateprofilesection   lib   "kernel32 "   _
                                alias   "writeprivateprofilesectiona "   _
                                （byval   lpappname   as   string,   _
                                byval   lpstring   as   string,   _
                                byval   lpfilename   as   string)   _
                                as   long
发表于：2007-05-11 11:17:501楼 得分:0
读写ini文件的api
发表于：2007-05-11 21:46:192楼 得分:0
能不能说具体点，谢谢了！
发表于：2007-05-11 22:09:143楼 得分:0
declare   function   getprivateprofileint   lib   "kernel32 "   alias   "getprivateprofileinta "   （byval   lpapplicationname   as   string,   byval   lpkeyname   as   string,   byval   ndefault   as   long,   byval   lpfilename   as   string)   as   long  
说明  
为初始化文件中指定的条目获取一个整数值  
返回值  
long，找到的条目的值；如指定的条目未找到，就返回默认值。如找到的数字不是一个合法的整数，函数会返回其中合法的一部分。如，对于“xyz=55zz”这个条目，函数返回55。这个函数也能理解采用标准c语言格式的十六进制数字：用0x作为一个十六进制数字的前缀——所以0x55ab等价于vb的&h55ab  
参数表  
参数   类型及说明  
lpapplicationname   string，指定在其中查找条目的小节。注意这个字串是不区分大小写的  
lpkeyname   string，欲获取的设置项或条目。这个支持不区分大小写  
ndefault   long，指定条目未找到时返回的默认值  
lpfilename   string，初始化文件的名字。如果没有指定完整的路径名，windows就会在windows目录中搜索文件  
注解  
在windows   nt中，有些初始化文件实际是在注册表中。可在注册表的下面这个项处找到这些文件的一个列表：hkey_local_machine\software\microsoft\windows   nt\currentversion\inifilemapping
 
declare   function   getprivateprofilesection   lib   "kernel32 "   alias   "getprivateprofilesectiona "   （byval   lpappname   as   string,   byval   lpreturnedstring   as   string,   byval   nsize   as   long,   byval   lpfilename   as   string)   as   long  
说明  
获取指定小节所有项名和值的一个列表  
返回值  
long，装载到lpreturnedstring缓冲区的字符数量。如缓冲区的容量不够大，不能容下所有信息，就返回nsize-2  
参数表  
参数   类型及说明  
lpappname   string，欲获取的小节。注意这个字串不区分大小写  
lpreturnedstring   string，项和值字串的列表。每个字串都由一个null字符分隔，最后一个字串后面用两个null字符中止  
nsize   long，lpreturnedstring缓冲区的大小。在windows系统中最大值为32767  
lpfilename   string，初始化文件的名字。如没有指定完整路径名，windows就在windows目录中查找文件  
发表于：2007-05-11 22:12:064楼 得分:0
getprivateprofilestring&
说明  
为初始化文件中指定的条目取得字串  
返回值  
long，复制到lpreturnedstring缓冲区的字节数量，其中不包括那些null中止字符。如lpreturnedstring缓冲区不够大，不能容下全部信息，就返回nsize-1（若lpapplicationname或lpkeyname为null，则返回nsize-2）  
参数表  
参数   类型及说明  
lpapplicationname   string，欲在其中查找条目的小节名称。这个字串不区分大小写。如设为vbnullstring，就在lpreturnedstring缓冲区内装载这个ini文件所有小节的列表  
lpkeyname   string，欲获取的项名或条目名。这个字串不区分大小写。如设为vbnullstring，就在lpreturnedstring缓冲区内装载指定小节所有项的列表  
lpdefault   string，指定的条目没有找到时返回的默认值。可设为空（ " "）  
lpreturnedstring   string，指定一个字串缓冲区，长度至少为nsize  
nsize   long，指定装载到lpreturnedstring缓冲区的最大字符数量  
lpfilename   string，初始化文件的名字。如没有指定一个完整路径名，windows就在windows目录中查找文件  
注解  
如lpkeyname参数为vbnullstring，那么lpreturnedstring缓冲区会载入指定小节所有设置项的一个列表。每个项都用一个null字符分隔，最后一个项用两个null字符中止。也请参考getprivateprofileint函数的注解
 
writeprivateprofilestring&  
说明  
在初始化文件指定小节内设置一个字串  
返回值  
long，非零表示成功，零表示失败。会设置getlasterror  
参数表  
参数   类型及说明  
lpapplicationname   string，要在其中写入新字串的小节名称。这个字串不区分大小写  
lpkeyname   any，要设置的项名或条目名。这个字串不区分大小写。用vbnullstring可删除这个小节的所有设置项  
lpstring   string，指定为这个项写入的字串值。用vbnullstring表示删除这个项现有的字串  
lpfilename   string，初始化文件的名字。如果没有指定完整路径名，则windows会在windows目录查找文件。如果文件没有找到，则函数会创建它  

writeprivateprofilesection
说明  
为一个初始化文件（.ini）中指定的小节设置所有项名和值  
返回值  
long，非零表示成功，零表示失败。会设置getlasterror  
参数表  
参数   类型及说明  
lpappname   string，要设置的小节。这个字串不区分大小写  
lpstring   string，项和值字串的一个列表。每个字串都用一个null字符分隔，最后一个字串后面用两个null表示中止。如lpappname指定的小节不存在，则用那个名字新建一个小节，并将其追加到初始化文件的最后。如果存在，则当前的所有项名和值都会被这个缓冲区中指定的数据取代  
lpfilename   string，初始化文件的名字。如指定了一个完整路径，而且文件不存在，就会产生错误。如只指定了文件名，而且文件不存在，就在当前的windows目录中创建它  
发表于：2007-05-19 13:05:455楼 得分:0
读写配置文件的api
多用有好处。用配置文件写的程序会比较灵活

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击