'写关键值，失败返回0
Function INI_SetKey(IniFile as String, lSection as String, lKeyName as String, nValue as String) as Long
   'INI 文件中设置关键值
   Function = WritePrivateProfileStringA(StrPtr(lSection), StrPtr(lKeyName), StrPtr(nValue), StrPtr(IniFile))
End Function