| 发表于：2007-04-30 11:23:565楼 得分:0 |
option explicit
'lpbuffer : buffer for system directory
'usize : size of directory buffer
private declare function getsystemdirectory lib "kernel32 " alias "getsystemdirectorya " _
（byval lpbuffer as string, byval nsize as long) as long
'lpappname : section name
'lpkeyname : key name
'lpdefault : default string
'lpreturnedstring : destination buffer
'nsize : size of destination buffer
'lpfilename : initialization file name
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
'lpappname : section name
'lpkeyname : key name
'lpstring : string to add
'lpfilename : initialization file
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
'////////////////////////////////////////////////////////////////////////////////
'// 函数功能：从ini配置文件中读取指定段名、关键字名的值
'// 调用语法: getinikeyvalue（sectionname as string,keyname as string,filename as string)
'// 参数说明:
'// sectionname :段名
'// keyname :关键字名
'// filename :ini文件名包括路径
'// 返 回 值:
'// string :返回关键字值
'// 处理说明:
'// 调用api函数getprivateprofilestring
'//////////////////////////////////////////////////////////////////////////////
public function getinikeyvalue（byval sectionname as string, _
byval keyname as string, _
byval filename as string) as string
dim keyvalue$
dim strtmp as string
keyvalue$ = string$（512, " ")
getprivateprofilestring sectionname, keyname, " ", keyvalue$, 512, filename
strtmp = trim（keyvalue$)
getinikeyvalue = left（strtmp, len（strtmp) - 1)
end function
'////////////////////////////////////////////////////////////////////////////////
'// 函数功能：从ini配置文件中写入指定段名、关键字名及值
'// 调用语法: setinikeyvalue（sectionname as string,keyname as string,keyvalue as string ,filename as string)
'// 参数说明:
'// sectionname :段名
'// keyname :关键字名
'// keyvalue :关键字值
'// filename :ini文件名包括路径
'// 返 回 值:
'// 处理说明:
'// 调用api函数writeprivateprofilestring
'//////////////////////////////////////////////////////////////////////////////
public sub setinikeyvalue（byval sectionname as string, _
byval keyname as string, _
byval keyvalue as string, _
byval filename as string)
dim lng as long
lng = writeprivateprofilestring（sectionname, keyname, keyvalue, filename) | | |
|
