在我們寫的程序當(dāng)中,總有一些配置信息需要保存下來,以便完成程序的功能,最簡單的辦法就是將這些信息寫入INI文件中,程序初始化時(shí)再讀入.具體應(yīng)用如下:
　　一.將信息寫入.INI文件中.
　　1.所用的WINAPI函數(shù)原型為:
BOOL WritePrivateProfileString(
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
LPCTSTR lpString,
LPCTSTR lpFileName
);
　　其中各參數(shù)的意義:
　　　LPCTSTR lpAppName 是INI文件中的一個(gè)字段名.
　　　LPCTSTR lpKeyName 是lpAppName下的一個(gè)鍵名,通俗講就是變量名.
　　　LPCTSTR lpString 是鍵值,也就是變量的值,不過必須為LPCTSTR型或CString型的.

LPCTSTR lpFileName 是完整的INI文件名.

2.具體使用方法:設(shè)現(xiàn)有一名學(xué)生,需把他的姓名和年齡寫入 c:\stud\student.ini 文件中.

CString strName,strTemp;
int nAge;
strName="張三";
nAge=12;
::WritePrivateProfileString("StudentInfo","Name",strName,"c:\\stud\\student.ini");

此時(shí)c:\stud\student.ini文件中的內(nèi)容如下:
[StudentInfo]

　　　Name=張三
　　3.要將學(xué)生的年齡保存下來,只需將整型的值變?yōu)樽址图纯?
strTemp.Format("%d",nAge);
::WritePrivateProfileString("StudentInfo","Age",strTemp,"c:\\stud\\student.ini");

　　二.將信息從INI文件中讀入程序中的變量.
　　1.所用的WINAPI函數(shù)原型為:
DWORD GetPrivateProfileString(
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
LPCTSTR lpDefault,
LPTSTR lpReturnedString,
DWORD nSize,
LPCTSTR lpFileName
);
　　其中各參數(shù)的意義:
　　　前二個(gè)參數(shù)與 WritePrivateProfileString中的意義一樣.

　　　lpDefault : 如果INI文件中沒有前兩個(gè)參數(shù)指定的字段名或鍵名,則將此值賦給變量.
　　　lpReturnedString : 接收INI文件中的值的CString對象,即目的緩存器.
　　　nSize : 目的緩存器的大小.
　　　lpFileName : 是完整的INI文件名.
　　2.具體使用方法:現(xiàn)要將上一步中寫入的學(xué)生的信息讀入程序中.
CString strStudName;
int nStudAge;
GetPrivateProfileString("StudentInfo","Name","默認(rèn)姓名",strStudName.GetBuffer(MAX_PATH),MAX_PATH,"c:\\stud\\student.ini");
　　執(zhí)行后 strStudName 的值為:"張三",若前兩個(gè)參數(shù)有誤,其值為:"默認(rèn)姓名".

　　3.讀入整型值要用另一個(gè)WINAPI函數(shù):
UINT GetPrivateProfileInt(
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
INT nDefault,
LPCTSTR lpFileName
);
　　這里的參數(shù)意義與上相同.使用方法如下:

nStudAge=GetPrivateProfileInt("StudentInfo","Age",10,"c:\\stud\\student.ini");

　　三.循環(huán)寫入多個(gè)值,設(shè)現(xiàn)有一程序,要將最近使用的幾個(gè)文件名保存下來,具體程序如下:
　　1.寫入:
CString strTemp,strTempA;
int i;
int nCount=6;
file://共有6個(gè)文件名需要保存

for(i=0;i {strTemp.Format("%d",i);
strTempA=文件名;
file://文件名可以從數(shù)組,列表框等處取得.
::WritePrivateProfileString("UseFileName","FileName"+strTemp,strTempA,"c:\\usefile\\usefile.ini");
}
strTemp.Format("%d",nCount);
::WritePrivateProfileString("FileCount","Count",strTemp,"c:\\usefile\\usefile.ini");
file://將文件總數(shù)寫入,以便讀出.

　　2.讀出:
nCount=::GetPrivateProfileInt("FileCount","Count",0,"c:\\usefile\\usefile.ini");
for(i=0;i {strTemp.Format("%d",i);

strTemp="FileName"+strTemp;
::GetPrivateProfileString("CurrentIni",strTemp,"default.fil", strTempA.GetBuffer(MAX_PATH),MAX_PATH,"c:\\usefile\\usefile.ini");

file://使用strTempA中的內(nèi)容.
}

　　補(bǔ)充四點(diǎn):

　　　1.INI文件的路徑必須完整,文件名前面的各級目錄必須存在,否則寫入不成功,該函數(shù)返回 FALSE 值.

　　　2.文件名的路徑中必須為 \\ ,因?yàn)樵赩C++中, \\ 才表示一個(gè) \ .

　　　3.也可將INI文件放在程序所在目錄,此時(shí) lpFileName 參數(shù)為: ".\\student.ini".

　　　4.從網(wǎng)頁中粘貼源代碼時(shí),最好先粘貼至記事本中,再往VC中粘貼,否則易造成編譯錯(cuò)誤,開始時(shí)我也十分不解,好好的代碼怎么就不對呢?后來才找到這個(gè)方法.還有一些代碼中使用了全角字符如:＜，＼等,也會(huì)
造成編譯錯(cuò)誤.

INI文件編程

      INI文件在系統(tǒng)配置及應(yīng)用程序參數(shù)保存與設(shè)置方面，具有很重要的作用，所以可視化的編程一族，如VB、VC、VFP、Delphi等都提供了讀寫INI文件的方法，其中Delphi中操作INI文件，最為簡潔，這是因?yàn)镈elphi3提供了一個(gè)TInifile類，使我們可以非常靈活的處理INI文件。

一、有必要了解INI文件的結(jié)構(gòu)：
;注釋
[小節(jié)名]
關(guān)鍵字=值
...
　 INI文件允許有多個(gè)小節(jié)，每個(gè)小節(jié)又允許有多個(gè)關(guān)鍵字， "="后面是該關(guān)鍵字的值。
　 值的類型有三種：字符串、整型數(shù)值和布爾值。其中字符串存貯在INI文件中時(shí)沒有引號(hào)，
布爾真值用1表示，布爾假值用0表示。
　 注釋以分號(hào)";"開頭。
二、定義
　 1、在Interface的Uses節(jié)增加IniFiles；
　 2、在Var變量定義部分增加一行：
myinifile:Tinifile;
　 然后，就可以對變量myinifile進(jìn)行創(chuàng)建、打開、讀取、寫入等操作了。

三、打開INI文件


myinifile:=Tinifile.create(‘program.ini‘);


　 上面這一行語句將會(huì)為變量myinifile與具體的文件 program.ini建立聯(lián)系，然后，就可以通過變量myinifile，來讀寫program.ini文件中的關(guān)鍵字的值了。值得注意的是，如果括號(hào)中的文件名沒有指明路徑的話，那么這個(gè)Program.ini文件會(huì)存儲(chǔ)在Windows目錄中,把Program.ini文件存儲(chǔ)在應(yīng)用程序當(dāng)前目錄中的方法是：為其指定完整的路徑及文件名。下面的兩條語句可以完成這個(gè)功能：

Filename:=ExtractFilePath(Paramstr(0))+‘program.ini‘;

myinifile:=Tinifile.Create(filename);

四、讀取關(guān)鍵字的值
　 針對INI文件支持的字符串、整型數(shù)值、布爾值三種數(shù)據(jù)類型，TINIfiles類提供了三種不同的對象方法來讀取INI文件中關(guān)鍵字的值。
　 假設(shè)已定義變量vs、vi、vb分別為string、 integer、boolean類型。  

vs:=myinifile.Readstring(‘小節(jié)名‘,‘關(guān)鍵字‘,缺省值);
vi:=myinifile.Readinteger(‘小節(jié)名‘,‘關(guān)鍵字‘,缺省值);
vb:=myinifile.Readbool(‘小節(jié)名‘,‘關(guān)鍵字‘,缺省值);

　 其中缺省值為該INI文件不存在該關(guān)鍵字時(shí)返回的缺省值。

五、寫入INI文件
　 同樣的，TInifile類也提供了三種不同的對象方法，向INI文件寫入字符串、整型數(shù)及布爾類型的關(guān)鍵字。  

myinifile.writestring(‘小節(jié)名‘,‘關(guān)鍵字‘,變量或字符串值);
myinifile.writeinteger(‘小節(jié)名‘,‘關(guān)鍵字‘,變量或整型數(shù)值);
myinifile.writebool(‘小節(jié)名‘,‘關(guān)鍵字‘,變量或True或False);
　 當(dāng)這個(gè)INI文件不存在時(shí)，上面的語句還會(huì)自動(dòng)創(chuàng)建該INI文件。
六、刪除關(guān)鍵字
　 除了可用寫入方法增加一個(gè)關(guān)鍵字，Tinifile類還提供了一個(gè)刪除關(guān)鍵字的對象方法：
myinifile.DeleteKey(‘小節(jié)名‘,‘關(guān)鍵字‘);

七、小節(jié)操作
　 增加一個(gè)小節(jié)可用寫入的方法來完成，刪除一個(gè)小節(jié)可用下面的對象方法：
     myinifile.EraseSection(‘小節(jié)名‘);
　 另外Tinifile類還提供了三種對象方法來對小節(jié)進(jìn)行操作：
　 myinifile.readsection(‘小節(jié)名‘,TStrings變量);可將指定小節(jié)中的所有關(guān)鍵字名讀取至一個(gè)字符串列表變量中；
　 myinifile.readsections(TStrings變量);可將INI文件中所有小節(jié)名讀取至一個(gè)字符串列表變量中去。
　 myinifile.readsectionvalues(‘小節(jié)名‘,TStrings變量);可將INI文件中指定小節(jié)的所有行（包括關(guān)鍵字、=、值）讀取至一個(gè)字符串列表變量中去。

八、釋放
在適當(dāng)?shù)奈恢糜孟旅娴恼Z句釋放myinifile：
myinifile.distory;
九、一個(gè)實(shí)例
　 下面用一個(gè)簡單的例子(如圖)，演示了建立、讀取、存貯INI文件的方法。myini.ini文件中包含有"程序參數(shù)"小節(jié)，和用戶名稱（字符串）、是否正式用戶（布爾值）和已運(yùn)行時(shí)間（整型值）三個(gè)關(guān)鍵字。程序在窗體建立讀取這些數(shù)據(jù)，并在窗體釋放時(shí)寫myini.ini文件。
　 附源程序清單
unit Unit1;
interface
uses
    Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,inifiles,StdCtrls,ExtCtrls;

type
    TForm1 = class(TForm)
      Edit1: TEdit;
      CheckBox1: TCheckBox;
      Edit2: TEdit;
      Label1: TLabel;
      Label2: TLabel;
      Timer1: TTimer;
      Label3: TLabel;
      procedure FormCreate(Sender: TObject);
      procedure FormDestroy(Sender: TObject);
      procedure Timer1Timer(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
var
    Form1: TForm1;

implementation
var
    myinifile:TInifile;
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var filename:string;
begin
    filename:=ExtractFilePath(paramstr(0))+‘myini.ini‘;
    myinifile:=TInifile.Create(filename);
    edit1.Text:= myinifile.readstring(‘程序參數(shù)‘,‘用戶名稱‘,‘缺省的用戶名稱‘);
    edit2.text:= inttostr(myinifile.readinteger(‘程序參數(shù)‘,‘已運(yùn)行時(shí)間‘,0));
    checkbox1.Checked:= myinifile.readbool(‘程序參數(shù)‘,‘是否正式用戶‘,False);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    myinifile.writestring(‘程序參數(shù)‘,‘用戶名稱‘,edit1.Text);

    myinifile.writeinteger(‘程序參數(shù)‘,‘已運(yùn)行時(shí)間‘,strtoint(edit2.text));
    myinifile.writebool(‘程序參數(shù)‘,‘是否正式用戶‘,checkbox1.Checked);
    myinifile.Destroy;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;

end.
　 程序在Pwin95、Delphi3下調(diào)試通過。