使用Windows API操作配置(.ini)文件

原创 2004年10月27日 10:26:00

Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (Byval lpApplicationName As String, _
lpKeyName As Any, Byval lpDefault As String, _
Byval lpRetunedString As String, Byval nSize As Long, _
Byval lpFileName As String) As Long

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

' In Initialize or whatever main code section you are using:
Dim OldValue As String
Dim NewValue As String

Const iniFile = "C:/Lotus/Notes/notes.ini"
Const iniSection = "Notes"
Const iniKey = "names"

Private Function GetStringFromINI(sApp As String, sKey As String, _
sFilename As String) As String
 Dim sRet As String
 Dim lSize As Long
 sRet = String$(255, Chr$(0))
 lSize = GetPrivateProfileString(sApp, Byval sKey, &H0, _
 sRet, 255, sFilename)
 GetStringFromINI = Left$(sRet, lSize)
End Function

Sub Initialize
 Dim s As New notessession

  Set db = s.getdatabase(s.currentdatabase.server,"lotusscriptcompilerwwww.nsf",False)
 Msgbox  Not db Is Nothing
 
 REM Read the current value for this section/key
 OldValue = GetStringFromINI( iniSection, iniKey, iniFile )
 Msgbox OldValue
 
REM Write a new value to this section/key
 Call WritePrivateProfileString( iniSection, iniKey, "JosephBloe.id", iniFile )
 
REM Read the current (new) value for this section/key
 NewValue = GetStringFromINI( iniSection, iniKey, iniFile )
 Msgbox NewValue
 
REM Write the old value back -- put the ini file back the way it was
 Call WritePrivateProfileString( iniSection, iniKey, OldValue, iniFile )
 
REM Read the current (final) value for this section/key
 OldValue = GetStringFromINI( iniSection, iniKey, iniFile )
 Msgbox OldValue
End Sub

Windows系统使用INI配置文件

INI文件的读写 Windows操作系统将win.ini作为记录当前系统状态,并根据其记录内容对系统进行配置的一种便捷的方法,且众多的应用软件也广泛的使用该类型的配置文件来对软件进行记录和配置。...
  • u012964993
  • u012964993
  • 2014年11月13日 17:57
  • 2389

使用win api 读写 ini配置文件

     游戏或者其他应用程序需要很多配置信息,比如:窗口的长宽,是否全屏显示。所以每一个游戏都支持配置文件的读取以及写入。     而ini文件因为其结构简单易懂,而被广泛应用。记得在实习培训的时...
  • hycoldrain
  • hycoldrain
  • 2010年09月17日 08:07
  • 1620

用 Windows API 创建和编辑 .ini 文件

1. 与 .ini 文件相关的 API 有两类: 1)操作系统配置文件 Win.ini 的函数 GetProfileSection GetProfileString GetProfileInt W...
  • g5dsk
  • g5dsk
  • 2011年10月10日 18:12
  • 4339

WIN32读写INI文件方法

概述 在程序中经常要用到设置或者其他少量数据的存盘,以便程序在下一次执行的时候可以使用,比如说保存本次程序执行时窗口的位置、大小、一些用户设置的 数据等等,在 Dos 下编程的时候,我们一般...
  • yangluoning
  • yangluoning
  • 2013年12月30日 12:11
  • 5479

c#之操作ini文件

原文地址:原文地址public class Win32API { #region INI文件操作 /* * 针对INI文件的API操作方法,其中的节点(Sectio...
  • kaikai_sk
  • kaikai_sk
  • 2016年07月20日 16:56
  • 1072

windows API 读写ini文件

ini文件中通常存放的是一个程序的初始化信息。ini文件由若干个节(Section)组成,每个Section由若干键(Key)组成,每个Key可以赋相应的值。读写ini文件实际上就是读写某个的Sect...
  • zzandyc
  • zzandyc
  • 2017年05月11日 21:40
  • 192

C++ Windows读写INI文件

C++ Windows读写INI文件 一:将信息写入到INI文件 所用函数: BOOL WritePrivateProfileString( LPCSTR lpAppName,   ...
  • yaoshenjie
  • yaoshenjie
  • 2015年12月13日 13:52
  • 1580

C#类库:ini文件操作类

C#类库——ini文件操作类1.类库介绍    在开发应用软件时,ini文件常用于软件的相关配置,以下为ini文件的相关结构及示例;ini文件具有节(section)和键(key)两个层级,节用”[]...
  • baidu_26678247
  • baidu_26678247
  • 2017年10月16日 21:49
  • 193

ini 的使用

在做项目过程中,有时需要保存一些简单的配置信息,可以使用xml,也可以使用INI文件。下面是C#中读取INI的方法,相信大部分朋友都使用过这种方式。 INI文件的存储方式如下, [cs...
  • lishk314
  • lishk314
  • 2014年03月17日 21:57
  • 721

VB读写INI文件的四个函数以及相关API详细说明

WritePrivateProfileString函数说明 在我们写的程序当中,总有一些配置信息需要保存下来,以便完成程序的功能,最简单的办法就是将这些信息写入INI文件中,程序初始化时再读入.具体应...
  • wjb9921
  • wjb9921
  • 2007年12月30日 16:56
  • 2430
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用Windows API操作配置(.ini)文件
举报原因:
原因补充:

(最多只允许输入30个字)