不知道大家使用没使用我前几天写的操作INI文件的COM呢？我把代码贴出来。

这个是vb的代码，自己新建一个activex dll，然后改变工程名称和类名称，然后在类中输入如下内容即可。

//////////////////////////////
中文名称：ini文件操作类
英文名称：blood_ini class
作者：blood
制作时间：2002.2.8
版本：1.0
版权所有 blood 2002-2003
//////////////////////////////

申明变量
private strappname as string              ini小节名称
private strkeyname as string              ini项目名
private strvaluestr as string             ini的项目值
private strfilename as string             ini文件名

申明操作ini文件的api
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 declare function writeprivateprofilestring lib "kernel32" alias "writeprivateprofilestringa" (byval lpapplicationname as string, byval lpkeyname as any, byval lpstring as string, byval lpfilename as string) as long

////////////////////
开始定义函数
////////////////////

定义写ini文件的函数
public function writeini() as long
    通过api将值写入ini文件
    writeini = writeprivateprofilestring(strappname, strkeyname, strvaluestr, strfilename)
end function

定义读ini文件的函数
public function getini() as string
const string_size = 255                       指定字符串长度
dim lnglength as long                         定义api函数返回的长度
dim strdefault as string * string_size        定义在没有找到指定的项目时返回的默认值
dim strreturn as string * string_size         定义一个字符串缓冲区

通过api函数取得ini文件的内容
lnglength = getprivateprofilestring(strappname, strkeyname, strdefault, strreturn, string_size, strfilename)

通过判断api函数返回的长度来确定返回的值
if (lnglength = 0) then
    getini = strvaluestr
else
    getini = mid(strreturn, 1, lnglength)
end if

end function

////////////////////
定义函数结束
////////////////////

////////////////////
开始定义属性
////////////////////

取得ini文件的名称
public property let filename(byval strfile as string)
    strfilename = strfile
end property

取得项目值
public property let valuestr(byval strvalue as string)
    strvaluestr = strvalue
end property

取得项目名称
public property let keyname(byval strkey as string)
    strkeyname = strkey
end property

取得小节名称
public property let appname(byval strapp as string)
    strappname = strapp
end property

////////////////////
结束定义属性
////////////////////